Supprimer une ligne excel et listbox à l'aide d'une listbox multicolonne

bonjour,

je crée actuellement une bibliothèque imformatique permettant de référencer les instruments de métrologie de mon entreprise et de pouvoir les emprunter et les rendres.

Lors de la reservation toute mes données selectionnées s'enregistrent dans un tableau excel.

Lors du rendu de l'outil, j'arrive à trier mes données de ce tableau en fonction du numéro de l'utilisateur.
j'aimerai que lorsque l'utilisateur selectionne un outil à rendre(ligne entière de ma listbox), puis sur le "bouton rendre l'outil" , la ligne excel correspondante à une valeur de la "colonne 4 de ma listbox" soit supprimé

mon problème de syntaxe :

i = toutes les valeurs de la colonne A, feuille 3
dire que lorsque la listbox (colonne 4) = i on supprime la ligne excel correspondante à i

Merci pour votre attention
cordialement

Bonjour Matthieu, bonjour le forum,

Peut-être comme ça (à adapter) :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim F3 As Worksheet   Set F3 = Sheets("Feuil3") For I = 1 To F3.Range("A" & Rows.Count).End(xlUp).Row 'If ListBox1.Column(3, ListBox1.ListIndex) = F3.Cells(I, 1).Value Then 'si 4ème colonne de la ListBox If ListBox1.Column(4, ListBox1.ListIndex) = F3.Cells(I, 1).Value Then 'si 5ème colonne de la ListBox = colonne 4 F3.Rows(I).Delete Exit For End If Next I

---

Salut le forum et salut Thauthème

Ton code me parait vraiment intéressant, mais je ne sais pourquoi il ne supprime pas la ligne excel.
J'ai cherché de multiples façons de l'améliorer mais rien n'y fait

je vous donne en pièce jointe mon fichier, le bouton "rendre l'outil" se trouve dans la macro sortie

Bonjour Matthieu, bonjour le forum,

Le problème venait du fait que F3.Cells(I, 1) est de type Integer alors que ListBox2.Column(3, ListBox2.ListIndex) renvoie une donnée de type String. L'égalité est impossible, 1 <> "1". La solution, convertir le contenu de la cellule en texte :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub CommandButton2_Click() Dim F3 As Worksheet Dim I As Integer   Set F3 = Sheets("feuil3") Label4.Visible = True For I = 2 To F3.Range("A" & Rows.Count).End(xlUp).Row If ListBox2.Column(3, ListBox2.ListIndex) = CStr(F3.Cells(I, 1).Value) Then F3.Rows(I).Delete Exit For End If Next I End Sub

---

Je ne sais comment te remercier ...

Bonjour Matthieu, bonjour le forum,

Arf ! Remercie le forum....