Bonjour à tous,
J’ai une erreur de type 1004 dans le code ci-dessous, sur la ligne soulignée.
Qui peux m’expliquer pourquoi et comment la supprimer.
Merci d’avance,
Dans l’attente,
Bonne journée à tous
A+ PAD
Private Sub OptionButton1_Click()
Dim r
List1.Clear
titre = List1.ListIndex * 20 + 2
For r = titre To titre + 19
If Feuil5.Cells(r, 2) = '' Then Exit Sub
List1.AddItem Feuil5.Cells(r, 2)
Next
J’ai une erreur de type 1004 dans le code ci-dessous, sur la ligne soulignée.
Qui peux m’expliquer pourquoi et comment la supprimer.
Merci d’avance,
Dans l’attente,
Bonne journée à tous
A+ PAD
Private Sub OptionButton1_Click()
Dim r
List1.Clear
titre = List1.ListIndex * 20 + 2
For r = titre To titre + 19
If Feuil5.Cells(r, 2) = '' Then Exit Sub
List1.AddItem Feuil5.Cells(r, 2)
Next