Discussion :

[modus57]

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.

[Philippe Tulliez]

Bonjour,
Plusieurs syntaxes possibles pour un tableau nommé t_Montableau se trouvant dans la feuille nommée Translation dont on supprime la ligne 10

Syntaxe 1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Translation").ListObjects("t_Montableau").ListRows(10).Delete

Syntaxe 2 si le tableau est le seul dans la feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Translation").ListObjects(1).ListRows(10).Delete

Syntaxe 3

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("t_MonTableau").ListObject.ListRows(10).Delete

Pour les syntaxes 1 et 2, il est toujours préférable d'ajouter le parent de la feuille (le classeur). Syntaxes à privilégier si plusieurs classeurs sont ouverts et que l'on n'est pas certain que le tableau se trouve dans le classeur actif.
Pour la syntaxe 3, c'est obligatoirement le tableau nommé t_Montableau du classeur actif qui est concerné.

Petite précision : Le numéro de ligne définit dans l'argument de la collection ListRows concerne le numéro de ligne de la partie des données (DataBodyRange). Ne pas oublié que les lignes d'un ListBox ou ComboBox commence à l'indice 0

[modus57]

Bonjour Philippe Tulliez et merci pour votre réponse,

Aucun souci pour supprimer une ligne précise par exemple la 10 dans la feuille où se trouve le premier tableau.

Une petite précision mon tableau "ZoneSaisieBCAchats[Réf]" peut contenir tout ou partie de l'autre tableau qui alimente la ListBox qui contient toutes lignes de la RowSource.

C'est à partir de cette Listbox que je veux supprimer une ou les lignes du tableau ""ZoneSaisieBCAchats[Réf]" en fonction des Items sélectionnés.

J'ai l'impression ListObject.ListRows(1).Delete supprime toujours la première ligne du tableau "ZoneSaisieBCAchats[Réf]"

@+

[mfoxy]

Bonjour Modus,

Ne sachant pas comment est remplie ta ListBox (données filtrées, au autre), je trouve que ton souhait de récupérer la ligne dans le tableau structuré, par Matching, est la façon dont il faut travailler. Il est possible que l'index (-1) de ta liste ne soit peut-être pas l'index de la listRow de ton tableau structuré.

Ta manière de travailler, via le find, t'assures de conserver le même code : que tes données soit oui ou non filtrée dans ton listbox.

Pierre Fauconnier, donne Ici, une fonction qui pourrait être utile pour récupérer l'index de la ligne que tu ajouterais au lieu de ton 1 dans le .delete de Philippe (perso je préfère la version 3).


Attention que cela s'arrêtera à la première valeur identique de ton tableau, donc s'il y a des doublons...
La clef devrait donc pour bien faire être un identifiant unique dans la base.

Bat,

[joe.levrai]

Bonjour,

pour éviter d'aller chercher la ligne concernée, il serait plus pratique d'ajouter une colonne masquée dans ta listbox, contenant le numéro de ligne (ligne de la feuille OU mieux : ligne du databodyrange).

Ainsi, à la sélection d'un élément, il suffit d'utiliser le numéro de ligne dans la commande de suppression (syntaxe 1 à 3 de Philippe)

[modus57]

Bonjour et merci à mfoxy & joe.levrai pour vos réponses.

mfoxy j'ai été sur lien que vous indiquez, je n'ai pas trouvé la réponse et pas compris comment utiliser la fonction qui pourrait être utile pour récupérer l'index de la ligne.

Dans mon cas comment récupérer et indiquer le numéro de la ligne dans ListObject.ListRows(?).Delete.

@+

[Philippe Tulliez]

Bonjour,
Code de la procédure qui charge le ListBox. En première colonne, le n° d'enregistrement (N° de la ligne dans la liste)
La variable Rng de type Range représente l'objet DataBodyRange

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub LoadListBox(LookupValue As String)
  ' Argument
  '   LookupValue  Valeur à filtrer
  Dim r As Long
  Me.ListBox1.Clear
  With rng_Data
   For r = 1 To .Rows.Count   ' Nbre de lignes de la liste de données
    If LCase(Left(.Cells(r, 2).Value, Len(LookupValue))) = LCase(LookupValue) Then
     Me.ListBox1.AddItem r    ' N° de l'enregistrement
     Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = .Cells(r, 2).Value
     Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = .Cells(r, 3).Value
    End If
   Next r
  End With
End Sub

Code de la procédure événementielle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub ListBox1_Click()
 Dim RowNumber As Long
 With Me.ListBox1
   RowNumber = .List(.ListIndex, 0)
   MsgBox "N° de la ligne sélectionnée " & RowNumber
 End With
End Sub

donc pour supprimer la ligne sélectionnée ListObject.ListRows(RowNumber).DeleteCe code n'est valable que pour une seule sélection.
Il y a lieu de l'adapter si la propriété MultiSelect du ListBox a pour valeur la constante fmMultiSelectMulti