Discussion :

[MatthieuT42]

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

[Thautheme]

Bonjour Matthieu, bonjour le forum,

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

Code :

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

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

[MatthieuT42]

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

[Thautheme]

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 :

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

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

[MatthieuT42]

Je ne sais comment te remercier ...

[Thautheme]

Bonjour Matthieu, bonjour le forum,

Arf ! Remercie le forum....