Erreur d'éxecution '1004'

Bonjour,

Au lancement de ce code pour une Userform censée : afficher une liste de clients ayant un nb de points > 6000 (colonne 6 dans le tableau de la fiche client) dans une ListBox
On m'affiche " Erreur d'exécution '1004' , Erreur définie par l'application pour l'objet

Voici le code en question :

Code:

---

1 2 3 4 5 6 7 8

Private Sub UserForm_Activate() While Sheets("client").Cells(i + 1, 1) <> "" If Sheets("client").Cells(i, 6) > 6000 Then liste6000.AddItem Sheets("client").Cells(i, 4) + " " + Sheets("client").Cells(i, 2) + " " + Sheets("client").Cells(i, 3) + " " + Sheets("client").Cells(i, 5) i = i + 1 End If Wend End Sub

---

Lorsque je lance le débogage, il commence à cette ligne
If Sheets("client").Cells(i, 6) > 6000 Then

Merci d'avance pour votre aide

Bonjour,

La variable i n'est pas déclarée dans le code donné.
Vu ce qu'on voit, ça commence à 0 alors que la première ligne est 1.

Effectivement, la première ligne est 1 merci, mais en modifiant le code ainsi (j'ai également essayé sans la ligne Dim i As Integer qui n'est peut-être pas utile) à présent quand je lance la macro associée l'userform s'affiche blanche "ne répond pas" et EXCEL plante à tous les coups ne répond plus et se ferme.

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub UserForm_Activate() Dim i As Integer i = 1 While Sheets("client").Cells(i + 1, 1) <> "" If Sheets("client").Cells(i, 6) > 6000 Then liste6000.AddItem Sheets("client").Cells(i, 4) + " " + Sheets("client").Cells(i, 2) + " " + Sheets("client").Cells(i, 3) + " " + Sheets("client").Cells(i, 5) i = i + 1 End If Wend End Sub

---

Bonjour,
L'incrémentation de la variable I (I=I+1) doit évidemment être faite en dehors du If sinon il boucle sans fin

Citation:

---

Envoyé par Philippe Tulliez

Bonjour,
L'incrémentation de la variable I (I=I+1) doit évidemment être faite en dehors du If sinon il boucle sans fin

---

Merci beaucoup, effectivement c'est ce gros oubli qui bloquait