Remplacer une valeur dans un sub dans un module
sormick
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Dans un module sub etiquettes() j'ai plusieurs fois inscrit le mot (Janvier)
Est t'il possible via une autre macro de remplacer toutes les valeurs (Janvier)
par (Février) dans la sub etiquettes() ?
Dans un module sub etiquettes() j'ai plusieurs fois inscrit le mot (Janvier)
Est t'il possible via une autre macro de remplacer toutes les valeurs (Janvier)
par (Février) dans la sub etiquettes() ?
3 réponses
-
Bonjour,
Fenetre VBA: Comme sur les feuilles excel il y a les jumelles (menu en dessous de affichage) -
super!! j'ai réussi à remplacer un texte sur un module vba !!
mais je souhaiterais remplacer le texte uniquement sur une SUB
et non un module complet!!
je n'y arrive pas.
Pouvez vous m'aider?
Voici mon code:
Dim i As Integer
Dim Ancien As String
Dim Nouveau As String
Ancien = "micky"
Nouveau = "worky"
MsgBox "work"
For i = 1 To ThisWorkbook.VBProject.VBComponents("module70").CodeModule.CountOfLines
Cible = ThisWorkbook.VBProject.VBComponents("module70").CodeModule.Lines(i, 1)
Cible = Replace(Cible, Ancien, Nouveau)
ThisWorkbook.VBProject.VBComponents("module70").CodeModule.ReplaceLine i, Cible
Next i -
Re,
Si c'est utiliser une macro pour plusieurs feuilles, vaudrait mieux passer le nom de la feuille en parametre que de reecrire la macro
