Bonjour à tous,
J'essai de coder un Userform, j'obtiens un l'erreur suivante:
ERREUR DE COMPILATION:
Variable non définie
[color=#FFFF00]Private Sub TextBox17_Change()[/color]
ListBox1.Clear 'ListBox1 étant la ListBox ou l’on va retrouver le choix des communes
If TextBox17 * 1 > 1000 Then 'TextBox 17 étant la TextBox où l’on rentre le CP
For[color=#0080FF] k[/color] = 2 To Sheets("CP").Range("A" & Rows.Count).End(xlUp).Row
If Sheets("CP").Range("C" & k) = TextBox17 * 1 Then 'TextBox 17 étant la TextBox où l’on rentre le CP
ListBox1.AddItem Sheets("CP").Range("C" & k).Offset(0, -1) 'ListBox1 étant la ListBox ou l’on va retrouver le choix des communes
'ListBox1 étant la ListBox ou l’on va retrouver le choix des communes, ne pas oublier de mettre dans propiétés de la ListBox : « VISIBLE » à False
End If
Next I
ListBox1.Visible = True 'ListBox1 étant la ListBox ou l’on va retrouver le choix des communes
End If
End Sub
Pourriez-vous m'aider à résoudre cette erreur?