Remplacer une valeur dans un sub dans un module
Fermé
sormick
-
23 févr. 2015 à 15:04
f894009 Messages postés 17239 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 10 février 2025 - 23 févr. 2015 à 16:46
f894009 Messages postés 17239 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 10 février 2025 - 23 févr. 2015 à 16:46
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() ?
A voir également:
- Remplacer une valeur dans un sub dans un module
- Remplacer dans word - Guide
- Remplacer disque dur par ssd - Guide
- Quel site pour remplacer coco - Accueil - Réseaux sociaux
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Google Docs
- Faites afficher avec un fond coloré les cellules qui contiennent une valeur comprise entre 250 et 350. quel nombre est dessiné en surbrillance ? - Forum VB / VBA
3 réponses
f894009
Messages postés
17239
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
10 février 2025
1 713
Modifié par f894009 le 23/02/2015 à 15:30
Modifié par f894009 le 23/02/2015 à 15:30
Bonjour,
Fenetre VBA: Comme sur les feuilles excel il y a les jumelles (menu en dessous de affichage)
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
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
f894009
Messages postés
17239
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
10 février 2025
1 713
23 févr. 2015 à 16:46
23 févr. 2015 à 16:46
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
Si c'est utiliser une macro pour plusieurs feuilles, vaudrait mieux passer le nom de la feuille en parametre que de reecrire la macro
23 févr. 2015 à 15:31
Est ce possible?
23 févr. 2015 à 15:50
Oui, voir
https://silkyroad.developpez.com/VBA/VisualBasicEditor/ chapitre IV-C. Modifier