Bonjour,

Je voudrais supprimer une ou les lignes d’un tableau structuré en fonction des Items sélectionnés dans une ListBox alimenté par un autre tableau.

N'ayant pas trouvé de réponse claire sur le net, je m'adresse encore une fois à vous.

Voici mon code mais qui ne fonctionne pas comme je le souhaiterai :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Dim I As Integer
'boucle sur les éléments sélectionnés de la ListBox d'un tableau et supprimer lignes correspondantes dans un autre tableau
For I = 0 To Source.ListCount - 1
     If Source.Selected(I) = True Then
         Range("ZoneSaisieBCAchats[Réf]").Find(What:=Source.List(I),SearchOrder:=xlByRows).ListObject.ListRows(1).Delete
     End If
Next I
C'est certainement
Code : Sélectionner tout - Visualiser dans une fenêtre à part
ListObject.ListRows(1).Delete
qui ne convient pas ?

Avez-vous une sujétion, merci d'avance pour votre aide.