Bonjour cher forum ,
J'ai fait plus bas une petite macro qui me permet de supprimer des lignes d'un tableau (et plus par la suite) en fonction de mes sélections dans la listbox de mon formulaire. Seulement, quand je sélectionne tout dans ma listbox, seulement la dernière ligne est prise en compte.
Pouvez-vous me dire ce qui cloche?
Merci beaucoup !
Ps: mon code fonctionne très bien si je ne souhaite supprimer qu'une ligne.
J'ai fait plus bas une petite macro qui me permet de supprimer des lignes d'un tableau (et plus par la suite) en fonction de mes sélections dans la listbox de mon formulaire. Seulement, quand je sélectionne tout dans ma listbox, seulement la dernière ligne est prise en compte.
Pouvez-vous me dire ce qui cloche?
VB:
Private Sub bouSupprimer_Click()
Dim Ligne As Byte
For i = 0 To lbPrenom.ListCount - 1
If lbPrenom.Selected(i) = True Then
Sheets("Inscriptions").Activate
Range("Cell_Inscriptions").Select
Ligne = Application.WorksheetFunction.Match(lbPrenom.List(i), Range("L_Prenoms"), 0)
Selection.ListObject.ListRows(Ligne).Delete
End If
Next i
Unload Me
End Sub
Merci beaucoup !
Ps: mon code fonctionne très bien si je ne souhaite supprimer qu'une ligne.