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 : Sélectionner tout - Visualiser dans une fenêtre à part
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