XL 2016 problème de filtre dans listbox

saidoush

XLDnaute Junior
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
 

Pièces jointes

  • SUIVI LOCATIONS 2024.xlsm
    50.7 KB · Affichages: 9

job75

XLDnaute Barbatruc
Bonjour saidoush, le forum,

Avec cette solution on ajoute une 13ème colonne de repérage au tableau :
VB:
    ws.Range("M11") = 1
    ws.Range("M11:M" & LastRow).DataSeries 'numérotation (repèrage)
    ListBox1.List = ws.Range("A11:M" & LastRow).Value
VB:
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+
 

Pièces jointes

  • SUIVI LOCATIONS 2024.xlsm
    56.6 KB · Affichages: 3

saidoush

XLDnaute Junior
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 ?...
 

Pièces jointes

  • SUIVI LOCATIONS 2024 Chti160-4 (1).xlsm
    80.7 KB · Affichages: 2

saidoush

XLDnaute Junior
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.
 

Discussions similaires

Réponses
0
Affichages
180
Réponses
1
Affichages
201
Réponses
2
Affichages
319

Statistiques des forums

Discussions
312 560
Messages
2 089 657
Membres
104 247
dernier inscrit
pegaso