Discussion :

[neninio31]

Re

Bon j'ai essayé mais ca ne veux pas
voici mon code test qui doit supprimer les macros de la feuille 1 se nommant monBouton1_Click(), monBouton2_Click(),....... monBouton25_Click(),

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Bouton223_QuandClic()
 
Dim Debut As Integer, Lignes As Integer
Dim NomMacro As String
 
NomMacro = "monBouton" & i
 
For i = 1 To 25
 
    With ThisWorkbook.VBProject.VBComponents("Feuil1").CodeModule
    Debut = .ProcStartLine(NomMacro, 0)
    Lignes = .ProcCountLines(NomMacro, 0)
    .DeleteLines Debut, Lignes
End With
 
 Next i
 
End Sub

total erreur d'execution '35'
sub ou fonction non definie a la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Debut = .ProcStartLine(NomMacro, 0)

un ptit indice serait le bienvenue.

[Krovax]

Est ce que tuas bien activé la référence
Microsoft Visual Basic for Applications Extensibility 5.3.
???

Je suppose que le code viens de la
A par la référence le code ma l'air bon.

[ouskel'n'or]

Je ne comprends pas ton code
Tu mets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NomMacro = "monBouton" & i

avant de donner une valeur à i... Tu peux expliquer ?

[neninio31]

re
oui la reference en question est bien activée sur vba

en ce qui concerne le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NomMacro = "monBouton" & i

c'est que mes macros a supprimer portent toute le même nom a savoir

private sub monBouton1_Click(),
private sub monBouton2_Click(),
.
.
.
private sub monBoutoni_Click(),


Voila j'espere avoir repondu a vos question

[Invité]

Bonjour

Je crois que tu n'as pas compris ce que te disait ouskel'n'or

La ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NomMacro = "monBouton" & i

devrait se trouver dans la boucle, car le i ne change pas à l'extérieur de celle-ci.


De plus il s'agit de procédure évènementielle sur des boutons, hors juste en mettant le nom du bouton et son numéro, cela ne devrait pas passer (en théorie), il faut une concaténation avec le click (à vérifier).

Philippe

[neninio31]

re
bon j'ai essayé ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Bouton223_QuandClic()
 
Dim Debut As Integer, Lignes As Integer
Dim NomMacro As String
 
NomMacro = "monBouton" & i
 
For i = 1 To 25
 
 NomMacro = "Sub monBouton" & i & "_Click()"
 
    With ThisWorkbook.VBProject.VBComponents("Feuil1").CodeModule
    Debut = .ProcStartLine(NomMacro, 0)
    Lignes = .ProcCountLines(NomMacro, 0)
    .DeleteLines Debut, Lignes
End With
 
 Next i
 
End Sub

puis ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Bouton223_QuandClic()
 
Dim Debut As Integer, Lignes As Integer
Dim NomMacro As String
 
NomMacro = "monBouton" & i
 
For i = 1 To 25
 
 NomMacro = "monBouton" & i & "_Click()"
 
    With ThisWorkbook.VBProject.VBComponents("Feuil1").CodeModule
    Debut = .ProcStartLine(NomMacro, 0)
    Lignes = .ProcCountLines(NomMacro, 0)
    .DeleteLines Debut, Lignes
End With
 
 Next i
 
End Sub

mais toujours la meme erreur d'execution '35'

sub ou fonction non définie

a la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Debut = .ProcStartLine(NomMacro, 0)

Voila ou j'en suis