Remplacer un mot dans une procédure

Bonjour à tous,

j'ai un classeur avec plusieurs procédures. Dans ces procédures, de nombreux mots sont communs.

je recherche une procédure qui modifierai un mot mais dans "une procédure spécifique".

j'ai trouvé ce type de procédure (qui est pratique) mais elle remplace le mot dans toutes les procédures du classeur

Cet exemple remplace la chaîne "Feuil1" par "Feuil3".

Sub RemplacementMotDansProcedure()

'Nécéssite d'activer la référence

'"Visual basic For Application Extensibility 5.3"

'

Dim Ancien As String, Nouveau As String, Cible As String

Dim VBComp As VBComponent

Dim i As Integer

Dim Wb As Workbook

Set Wb = Workbooks("NomClasseur.xls")

Ancien = "Feuil1"

Nouveau = "Feuil3"

For Each VBComp In Wb.VBProject.VBComponents

For i = 1 To VBComp.CodeModule.CountOfLines

Cible = VBComp.CodeModule.Lines(i, 1)

Cible = Replace(Cible, Ancien, Nouveau)

VBComp.CodeModule.ReplaceLine i, Cible

Next i

Next VBComp

End Sub

Si quelqu'un peut m'aider , merci d'avance!

Bonjour Michaël, bonjour le forum,

Heu... Avec VBE (Visual Basic Editor) ça me paraît plus simple. Tu sélectionnes le mot à remplacer puis tu combines les touches [CTRL] + [H]. Tu coches les bonnes options et le tour est joué...

I LOVE YOU

Merci Thau Thème.

En effet tu as raison c'est beaucoup plus simple