Modifier Code VBA avec macro

Version imprimable

Bonjour le forum,

Après avoir fait des recherches dans le forum, j'ai trouvé cette discussion :

http://www.developpez.net/forums/sho...ouver+code+VBA

J'aimerais comprendre et donc essayer le code proposé par kiki, mais j'ai une erreur de compilation.

Je mets le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Option Explicit
 
'======================================================================================
'   Cocher Outils | Reférence Microsoft Visual Basic for Applications Extensibility 5.3
'======================================================================================
 
'   Détruit Macro nommée Essai dans module nommé ModuleA de ThisWorkbook
Sub DelMacro()
Dim Debut As Long
Dim NbLignes As Long
Dim VBCodeMod As CodeModule
On Error GoTo Erreurs
 
    Set VBCodeMod = ThisWorkbook.VBProject.VBComponents("ModuleA").CodeModule
    With VBCodeMod
        Debut = .ProcStartLine("Essai", vbext_pk_Proc)
        NbLignes = .ProcCountLines("Essai", vbext_pk_Proc)
        .DeleteLines Debut, NbLignes
    End With
    Exit Sub
Erreurs:
    Debug.Print Err.Number & " " & Err.Description
End Sub
 
'   Crée la Macro nommée Essai dans module nommé ModuleA dans ThisWorkbook
Sub CreerMacro()
Dim VBCodeMod As CodeModule
Dim x As Long
 
    Set VBCodeMod = ThisWorkbook.VBProject.VBComponents("ModuleA").CodeModule
    With VBCodeMod
        x = .CountOfLines + 1
        .InsertLines x, ""
        .InsertLines x + 1, "Sub Essai()"
        .InsertLines x + 2, "      Msgbox ""Nouvelle Procedure"""
        .InsertLines x + 3, "End Sub"
    End With
End Sub
 
'   Alternative
'   Crée la Macro nommée Essai dans module nommé ModuleA de ThisWorkbook
Sub CreerMacro2()
Dim VBCodeMod As CodeModule
Dim x As Long, str As String
    str = ""
    Set VBCodeMod = ThisWorkbook.VBProject.VBComponents("ModuleA").CodeModule
    With VBCodeMod
        str = "Sub Essai()" & vbCrLf
        str = str & "      Msgbox ""Nouvelle Procedure""" & vbCrLf
        str = str & "End Sub" & vbCrLf
        x = .CountOfLines + 1
        .InsertLines x, str
    End With
End Sub

Du coup, je n'ai pas tout à fait saisi ce que ses macros font exactement.
Si quelqu'un peut m'éclairer un peut.

Ce que je cherche à faire, moi, c'est de modifier le texte "aaa" par le texte "bbb" dans le code VBA.

Merci de votre aide

27/08/2007, 11h02
Invité

Bonjour

Quel est l'erreur de compliation (message, code) ?
As-tu bien référencé la bibliothèque ? (tu as le nom dans les premières lignes du code).

Starec
27/08/2007, 11h05
yadla

Oups :oops:,

Bonjour Starec, désolée, je suis un peu distraite... Autant pour moi...

Du coup, je vois, la nouvelle macro "Essai()" n'a que le Msgbox.
Comment faire pour récupérer l'ancien code et le modifier en cherchant un texte précis ?

Salut,

Le code tu as trouvé est un début de piste pour pouvoir modifier le module.
En utilisant l'aide tu peux progresser.

Voici un exemple que j'ai écrit pour trouver des valeurs dans le code et les remplacer par d'autres.
Code:

1 2 3 4 5 6 7 8 9 10 11 Dim VBComp As VBComponent Dim Ancien As String, Nouveau As String, Cible As String With ActiveWorkbook.VBProject.VBComponents("Nom du module").CodeModule ' pour le remplacement d'une ligne entière For i = 1 To .CountOfLines Cible = .Lines(i, 1) If Cible = "texte cherché" Then .ReplaceLine i, "Nouveau texte" End If Next
Modifie ce code pour chercher une valeur dans le module et inspire toi de cette Q/R.
http://excel.developpez.com/faq/inde...emplacerMotVBE

27/08/2007, 11h18
yadla

Bonjour Lou Pitchoun,

J'avais fait un .find... et je trouvais bien le texte que je cherchais... Maintenant je regardais pour rempalcer... en fat c'est facile "ReplaceLine" faut que je vois si c'est possible pour autre qu'un ligne enitère.

Merci en tout cas.

Bonne journée à tous
27/08/2007, 11h20
Invité

Re

En complément, as-tu lu ce tuto http://silkyroad.developpez.com/VBA/VisualBasicEditor/ de SilkyRaod.

Starec
27/08/2007, 11h26
yadla

Merci :king:

Je découvre encore de nouvelles choses...
Il faudrait que je prenne le temps de visiter le site en ENTIER...
Il est vraiment génial.

Je lis le tutoriel. En plus il est est vraiment simple à comprendre, vraiment bien fait, encore merci