Recherche/Remplacer code VBA par VBA
Joėl
Dans le menu Edition de Visual Basic Editor de Excel il y a 2 outils :
L'outil « Rechercher »(CTRL+F) et l'outil « Remplacer » (Ctrl +H).
Quelqu'un sait il comment on peut utiliser cet outil avec du code VBA...
L'idée que j'ai derrière la tête est d'essayer d'utiliser ces outils avec
une InputBox pour rechercher puis modifier un élément d'une ligne de code VB
dans une procédure.
En effet dans un mail récent (4/7/02) Denis Michon m'a indiqué comment
ajouter du code VBA avec du code VBA avec une inputBox. La méthode
fonctionne mais possède une contrainte forte : il faut connaître et indiquer
le N° de la ligne de code à remplacer
Ne peut on pas plutôt utiliser une fonction recherche /remplacer dans le
code VBA?
Quelqu'un a-il déjà fait ce genre de truc ?!!!!
A+ Joël
popi
autre dans tous les modules du classeur actif, fonctionne aussi pour une xla
en remplaçant ActiveWorkbook par ThisWorkbook :
Sub ChangeLineInSubs2()
Dim vbc As VBComponent
Dim i, j
For Each lygne In ActiveWorkbook.VBProject.VBComponents
For i = 1 To ActiveWorkbook.VBProject.VBComponents.Count
For j = 1 To
ActiveWorkbook.VBProject.VBComponents(i).CodeModule.CountOfLines
If
ActiveWorkbook.VBProject.VBComponents(i).CodeModule.Lines(j, 1) = "bidule"
Then
ActiveWorkbook.VBProject.VBComponents(i).CodeModule.DeleteLines j
ActiveWorkbook.VBProject.VBComponents(i).CodeModule.InsertLines j, _
"machin truc"
End If
Next j
Next i
Next lygne
End Sub
Sub test5689()
bidule
End Sub
--
@+ popi
"Quadra ressoudeur"
W2000Pro - OfficeXP - VB6 - OE6
http://popiweb.chez.tiscali.fr
.
"Joël" <aj...@planetis.com> a écrit dans le message de news:
ag548v$2a7p$1...@news5.isdnet.net...
Joėl
Merci pour ton code qui parait interessant, je vais regarder ce que je peux
en tirer.....
Si quelqu'un d'autre à des suggestions je suis preneur!
Trés cordialement Joël
"popi" <po...@infonie.fr> a écrit dans le message de news:
eYK60kOJCHA.2096@tkmsftngp12...