XL 2016 problème de filtre dans listbox

[saidoush]

Bonjour à tous !!!

J'ai fais un petit formulaire de saisie pour suivre les locations de véhicule perso.
en revanche je ne trouve pas le moyens de rajouter une fonction modifier et filtrer.

j'ai beau rajouter ce code...en vain.

Private Sub FilterListBox()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Synthèse")

Dim LastRow As Long
LastRow = ws.Cells(ws.Rows.Count, "I").End(xlUp).Row

Dim filterValue As String
filterValue = UCase(ComboBox4.Value)

' Supprimer tous les éléments actuels de la ListBox1
Dim i As Long
For i = ListBox1.ListCount - 1 To 0 Step -1
ListBox1.RemoveItem i
Next i

Dim rowCounter As Long
rowCounter = 0

For i = 11 To LastRow
If InStr(1, UCase(ws.Cells(i, "I").Value), filterValue) > 0 Then
ListBox1.AddItem ws.Cells(i, "A").Value
ListBox1.List(rowCounter, 1) = ws.Cells(i, "B").Value
ListBox1.List(rowCounter, 2) = ws.Cells(i, "C").Value
ListBox1.List(rowCounter, 3) = ws.Cells(i, "D").Value
ListBox1.List(rowCounter, 4) = ws.Cells(i, "E").Value
ListBox1.List(rowCounter, 5) = ws.Cells(i, "F").Value
ListBox1.List(rowCounter, 6) = ws.Cells(i, "G").Value
ListBox1.List(rowCounter, 7) = ws.Cells(i, "H").Value
ListBox1.List(rowCounter, 8) = ws.Cells(i, "I").Value
ListBox1.List(rowCounter, 9) = ws.Cells(i, "J").Value
ListBox1.List(rowCounter, 10) = ws.Cells(i, "K").Value
ListBox1.List(rowCounter, 11) = ws.Cells(i, "L").Value
rowCounter = rowCounter + 1
End If
Next i
End Sub

 

[saidoush]

Merci!!! à vous 2...

 

[job75]

Bonjour saidoush, le forum,

Avec cette solution on ajoute une 13ème colonne de repérage au tableau :

    ws.Range("M11") = 1
    ws.Range("M11:M" & LastRow).DataSeries 'numérotation (repèrage)
    ListBox1.List = ws.Range("A11:M" & LastRow).Value

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dim i&, j&
    With ListBox1
        i = .ListIndex
        If i = -1 Then Exit Sub
        If MsgBox(.List(i, 0) & " " & .List(i, 1) & " du " & .List(i, 4) & " sera supprimé de la base ?", 4) = 7 Then Exit Sub
        j = Application.Match(.List(i, 12), [Tableau1].Columns(13), 0) 'repère en 13ème colonne
        [Tableau1].Rows(j).Delete xlUp
        .RemoveItem i
    End With
End Sub

A+

 

[ChTi160]

Bonjour le Fil
tu dis au post #41

j'ai vu un bouton suppression, et mes hormones se sont affolées

Pourquoi ?
Jean marie

 

[saidoush]

Bonjour le Fil
tu dis au post #41

Pourquoi ?
Jean marie

Jean marie,
Au moment où je l'ai vu, j'ai cru que c'était l'aboutissement... il est arrivé quand même
Bonne soirée

 

[saidoush]

Bonjour le Fil
tu dis au post #41

Pourquoi ?
Jean marie

Jean marie...
J'espère que toi et le reste du forum vous vous portez pour le mieux.

Si je reviens aujourd'hui c'est que j'ai revu ta dernière proposition qui m'a paru plus que très bien...
mais je n'arrive pas à mener ce projet à son terme pour qu'il soit opérationnel.

encore un petit coupe de main ?...

 

[ChTi160]

Bonsoir saidoush, le Forum
je pensais que tu avais terminé ton projet !
que veux tu faire ?
Bonne fin de soirée
Jean marie

 

[saidoush]

Bonsoir saidoush, le Forum
je pensais que tu avais terminé ton projet !
que veux tu faire ?
Bonne fin de soirée
Jean marie

Je croyais aussi.
Mais après avoir fait un peu de rangement dans mes fichiers, j'ai consulté ce que tu avais envoyé en dernier et... je me suis rendu compte que tu avais introduit pas mal de fonctionnalités très ludique.
Des gadgets ! Mais qui font leur effet et ultra pratique.
Bien à toi.