A voir également:
- Remplacer une valeur dans un sub dans un module
- Remplacer dans word - Guide
- Remplacer disque dur par ssd - Guide
- Faites afficher avec un fond coloré les cellules qui contiennent une valeur comprise entre 250 et 350. quel nombre est dessiné en surbrillance ? ✓ - Forum Excel
- Igfxtray module ✓ - Forum Virus
- Pas de module ci - Forum TV & Vidéo
3 réponses
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
Est ce possible?
Oui, voir
https://silkyroad.developpez.com/VBA/VisualBasicEditor/ chapitre IV-C. Modifier