Ereur "variable non definie"

[gildas lechat]

Bonjour,

Vous trouverez ci dessous une macro premettant de copier les données de textbox sans des cellules d'une page excel.
Elle a fonctionné, mais j'ai actuellement un message d'erreur

variable non définie sur la ligne i=3

Private Sub CommandButton2_Click()

Sheets("RECAP").Select
'Selection de la premiere ligne vide
i = 3
While Not Sheets("RECAP").Range("b" & i & "").Value = ""
i = i + 1
Wend
' Vérification ligne existante
ligne = 3
While Not Sheets("RECAP").Range("b" & ligne & "").Value = ""
If Sheets("RECAP").Range("b" & ligne & "").Value = TextBox11.Text Then
reponse = MsgBox("ligne existante, voulez vous valider les modifications ?", vbYesNo)
If reponse <> 6 Then End
i = ligne
End If
ligne = ligne + 1
Wend

'Copie des données sur la feuil RECAP
With ActiveSheet
.Unprotect
'Datecode/OF
.Cells(i, 2) = TextBox11.Text
.Cells(i, 3) = TextBox88.Text
end with
end sub

Si vous avez une idée pour m'aider
Merci
Gildas

 

[sousou]

Re : Ereur "variable non definie"

Bonjour
tu dois avoir un problème de déclaration des varaiables.
Elles sont sans doutes en explicite, tu doit alors toutes les déclarer en début de macro

 

[gildas lechat]

Re : Ereur "variable non definie"

Bonjour sousou,

OK, c'est bien ça
Merci
Gildas