erreur effacé une ligne code

[jmcr]

bonjour le forum
je viens vous voir car j'ai commis une gros erreur j'ai du effacé un ligne de code mais voila j'ai un code qui fonctionne plus quand je clique sur le bouton effacé tout les textbox et labelle de mon useforme voila et toujours au même endroit voila le bug
Sub efface()
Dim I As Integer
For I = 1 To 11
If I <> 5 Then
Me.Controls("textbox" & I) = ""
End If
Next
lbl_nouveau.Visible = False
Cb_race.Value = ""
ligne_1 = 0
ligne_2 = 0
num_natio_1 = ""
num_natio_2 = ""
TextBox2.SetFocus

End Sub j arrive pas a trouvé l erreur ??????

 

[jmcr]

j ai essayé cette autre formule même chose

Sub efface()
Dim i As Integer
For i = 1 To 17
If i <> 5 Then
Me.Controls("textbox" & i) = ""
End If
Next

lbl_nouveau.Visible = False
Cb_race.Value = ""
ligne_1 = 0
ligne_2 = 0
num_natio_1 = ""
num_natio_2 = ""
TextBox2.SetFocus

End Sub

 

[job75]

Bonjour jmcr,

La 1ère macro fonctionnera à 2 conditions :

- elle doit être dans le code de l'UserForm

- les 10 TextBox : TextBox1 à TextBox4 et TextBox6 à TextBox11 doivent exister dans cet UserForm.

Vérifiez bien leurs noms...

A+

 

[jmcr]

merci job75 j ai vérifier déjà tout les tex box et labelle un par un tout est normal
mais je revérifie une deuxième fois par sécurité