Discussion :

[neninio31]

Voici mon problème, j'utilise une boucle for pour supprimer des procédures dans mon code vb.
Ces procédures se nomment sub VOIRi_Click()

Mon code est le suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim k As Long
k = Sheets("BD").Range("Z2").Value
Dim NomMacro As String, Wb As Workbook
 
Set Wb = Workbooks("BON2TRAV v3.xls")
 
 
                    For i = 0 To k
                        NomMacro = "VOIR" & i & "_Click"
                        SupprimerMacroPrecise Wb, "SELRESULT", NomMacro
                    Next i

Bilan erreur d'execution '35'
Sub ou Fonction non définie


Seulement si au lieu de k je mets une valeur ex 13 (dans mon cas)

Code :

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

1
2
3
4
For i = 0 To 13
                        NomMacro = "VOIR" & i & "_Click"
                        SupprimerMacroPrecise Wb, "SELRESULT", NomMacro
                    Next i

la ça plante pas pourtant j'ai bien testé les valeurs, k est bien egal a 13 !

bizarre le truc !

de l'aide svp !

merci.

[aalex_38]

Bonjour,


Ton numéro d'erreur laisse plutôt penser que le plantage se fait sur l'appel de la macro NomMacro et donc un plantage sur la ligne suivante :

Code :

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

SupprimerMacroPrecise Wb, "SELRESULT", NomMacro

As-tu vérifier ce qu'il se passait avec le debuggueur ?

[neninio31]

Re encore désolé c'est ma valeur de k que je n'arriva pas a suivre
elle est tellement dynamique !!!

[aalex_38]

Un exemple pour tester l'erreur (a adapter)

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test_erreur()
On Error GoTo fin
k = 99
For i = 1 To k
    Debug.Print Worksheets(i).Name 'juste pour l'exemple
Next i
Exit Sub
fin:
MsgBox "i=" & i
End Sub