118 résultats trouvés

par pdm
2 décembre 2019, 16:00
Forum : Excel - VBA
Sujet : Macro pour remplacer du texte dans une formule
Réponses : 3
Vues : 68

Re: Macro pour remplacer du texte dans une formule

Bonjour à tous,

Merci pour votre collaboration.
Cependant je précise que je ne souhaite pas remplacer "1-Trend" par "*" mais "[INTRADAY CAT.];""1-Trend""", par "[INTRADAY CAT.];""*""" et inversement.
Dans ce cas précis vos suggestions ne semblent pas fonctionner.
par pdm
2 décembre 2019, 14:58
Forum : Excel - VBA
Sujet : Macro pour remplacer du texte dans une formule
Réponses : 3
Vues : 68

Macro pour remplacer du texte dans une formule

Bonjour à tous. Contexte: J'ai un onglet avec un nombre important de formule du type somme.si.ens. Certains des critères de sélection de ces formules sont "1-Trend" ou "*". Problème: Lorsque je fais un remplacement manuel de "*" par "1-Trend" je ne rencontre aucune difficulté. Lorsque j'enregistre c...
par pdm
25 novembre 2019, 10:17
Forum : Excel - VBA
Sujet : Renomer une série de TCD
Réponses : 1
Vues : 28

Re: Renomer une série de TCD

Bonjour, Voici la solution que j'ai finalement trouvé : Sub ChangePivotName04() Dim PT As PivotTable Dim PT_COL As Integer Application.Calculation = xlManual For Each PT In ActiveSheet.PivotTables PT_COL = PT.TableRange1.Column PT.Name = "KL_PRICE_PT_" & Cells(10, PT_COL).Value Next PT Application.C...
par pdm
25 novembre 2019, 09:43
Forum : Excel - VBA
Sujet : Renomer une série de TCD
Réponses : 1
Vues : 28

Renomer une série de TCD

Bonjour à tous, Dans un onglet j'ai une très longue série de TCD (+200). Ils sont tous positionné en colonne à partir de la ligne 21. Je souhaite pouvoir les renommer avec la valeur qui se trouve ligne 10 de la première colonne de chaque TCD. Je bute sur comment identifier la première colonne de cha...
par pdm
29 novembre 2017, 13:03
Forum : Excel - VBA
Sujet : Msgbox vbYesNoCancel avec timer
Réponses : 2
Vues : 194

Re: Msgbox vbYesNoCancel avec timer

Merci h2so4

Problème parfaitement résolu.
Merci pour ton aide.

Cordialement
Patrick
par pdm
29 novembre 2017, 12:02
Forum : Excel - VBA
Sujet : Msgbox vbYesNoCancel avec timer
Réponses : 2
Vues : 194

Msgbox vbYesNoCancel avec timer

Bonjour à tous, J'utilise le code suivant pour activer un Timer sur une Msgbox, et cela fonctionne très bien : Private Declare PtrSafe Function MsgBoxTimeout _ Lib "user32" _ Alias "MessageBoxTimeoutA" ( _ ByVal hwnd As LongPtr, _ ByVal lpText As String, _ ByVal lpCaption As String, _ ByVal wType As...
par pdm
29 novembre 2017, 11:46
Forum : Excel - VBA
Sujet : Importation de fichier / Format date
Réponses : 1
Vues : 166

Re: Importation de fichier / Format date

Bonjour à tous,

N'ayant reçu aucune réponse de quiconque je vous fais part du fruit de mes recherches.

Il faut ajouter Local = True à la fin pour que le format d'importation soit correct.

Cordialement.
Patrick
par pdm
29 novembre 2017, 11:42
Forum : Excel - VBA
Sujet : Macro pour filter un tableau
Réponses : 2
Vues : 264

Re: Macro pour filter un tableau

Bonjour à tous,

N’ayant pas eu de réponse de quiconque je vous fais part du fruit de mes recherches:

La fonction Advancefilter s'avère extrêmement plus rapide que la fonction Autofilter.
Mes temps de traitement sont maintenant de 10 secondes au lieu de 3 à 4 minutes.

Cordialement
Patrick
par pdm
14 novembre 2017, 10:03
Forum : Excel - VBA
Sujet : Macro pour filter un tableau
Réponses : 2
Vues : 264

Macro pour filter un tableau

Bonjour à tous, J'ai une macro dont voici une partie du code. Application.EnableEvents = False Application.DisplayAlerts = False Application.ScreenUpdating = False Application.Calculation = xlCalculationManual With ActiveSheet.ListObjects("BASE").Range .AutoFilter Field:=66, Criteria1:=">=" & Cells(...
par pdm
19 octobre 2017, 18:29
Forum : Excel - VBA
Sujet : Robot ouvrir fichier exécuter macro
Réponses : 2
Vues : 210

Re: Robot ouvrir fichier exécuter macro

Bonjour
C'est une bonne idée.
Je vais creuser la question.
Je dois m'assurer que le robot n'ouvre qu'un fichier à la fois.
Je vous tiens au courant.
Cordialement