Bonjour,

J'ai une listbox ou je peux supprimer et ajouter des lignes à l'aide de bouton
sur le bouton supprimer j'ai mi le code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Private Sub CommandButton3_Click()
Dim i As Long
For i = ModifList.ListBoxList.ListCount - 1 To 0 Step -1
If ModifList.ListBoxList.Selected(i) Then
ModifList.ListBoxList.RemoveItem (i)
i = i - 1
End If
Next i
End Sub
cependant il me renvoi l'erreur :
Erreur d'exécution'-2147467259(80004005)'
Erreur non répertoriée
à la ligne :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
ModifList.ListBoxList.RemoveItem (i)
Mon userform s'appel bien ModifList, ma Listbox s'appel bien ListBoxList, et le I renvoi bien le numéro de ligne sélectionner.

Je ne comprend pas ce qui se passe ..
Pouvez vous m'aider ?
Cordialement,
Passepartout007