Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 problème de filtre dans listbox

S

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
Trier par date Trier par votes

job75

XLDnaute Barbatruc
J'ai revu la ListBox du fichier joint et créé cette macro :
VB: 
Sub filter_data_in_listbox()
Dim x$, n&, tablo, liste(), i&, j%
With [A9].CurrentRegion
    x = UCase(ComboBox4)
    n = Application.CountIf(.Columns(9), x)
    If n = 0 Then ListBox1.Clear: Exit Sub
    tablo = .Resize(, 12)
    ReDim liste(1 To n, 1 To 12)
End With
n = 0
For i = 3 To UBound(tablo)
    If UCase(tablo(i, 9)) = x Then
        n = n + 1
        For j = 1 To 12
            liste(n, j) = tablo(i, j)
        Next j
    End If
Next i
ListBox1.List = liste
End Sub
 

Pièces jointes

  • SUIVI LOCATIONS 2024.xlsm
    52.5 KB · Affichages: 4
Vote positif 0 Vote négatif
S

saidoush

XLDnaute Junior
ChTi160 à dit:
Re
regarde la vidéo de ce qui se passe chez Moi Lol
Jean marie
Cliquez pour agrandir...
oui Jean marie,

Mais à la base je voulais que la combobox4 se charge à partir de la colonne mission (11) de la listbox. Lorsque je sélectionne une "mission", la listbox doit me retourner les résultats filtrés de cette mission.


D'autre part je ne sais pourquoi mais toutes les mises en forme Majuscule, dates, etc..) que j'avais paramétrées se sont envolées LOL…

Et pas mal... ta vidéo
 
Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc
re
tu dis : D'autre part je ne sais pourquoi mais toutes les mises en forme Majuscule, dates, etc..) que j'avais paramétrées se sont envolées LOL
Cliquez pour agrandir...
de quoi tu parles (paramètres , mises en forme Majuscule, dates, etc.) c'est où ? dans quoi ?
chez moi colonne "Mission" c'est la 9 ???????????????????

Jean marie
 
Vote positif 0 Vote négatif
S

saidoush

XLDnaute Junior
ChTi160 à dit:
re
une autre question
dans ta colonne "Mission" sont ce des Misions établies qui dépendent d'une Liste ou ces missions peuvent être de tout ordre ?
Jean marie
Cliquez pour agrandir...
oui ces missions sont amenées à s'étendre lorsque quelqu'un d'autre effectuera une location il faudra pouvoir rajouter son nom dans la combobox4. ce qui est le cas maintenant grâce à vous 2.

désolé, mais comme je vous le disais je suis novice...
un peu de maladresse,
beaucoup de temps pour coder et donc plus pour répondre!!

Bravo à vous!!!
Maintenant je m'attèle sur la partie sélection et modification.

Toute ma reconnaissance.
 

Pièces jointes

  • SUIVI LOCATIONS 2024 (1).xlsm
    62.8 KB · Affichages: 1
Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc
Re
regarde la vidéo
tu me dis , mais je ne sais pas a quoi ca dois servir Lol
que veux tu faire ?
des réponses à #20 ?
Jean marie
 

Pièces jointes

  • Saidoush-2.gif
    292.8 KB · Affichages: 10
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
re
Bonjour a tous
j'ai cherché mais j'ai pas trouvé un truc qui me titille

1° (puisque c'est le sujet) filtrer une listbox
Ok mais les lignes du tableau ne correspondront plus alors on fait quoi avec le bouton modifier?
quelqu'un a pensé a rajouter une colonne dans la listbox pour les index de ligne ?
punaise comme ça me titille

2° d'ailleurs le bouton valider et modifier il servent à quoi?
a quel moment on est en mode modif ou valider(ajout)?

3° punaise il y a 10/12 controls qui se battent en duel
vous pouvez pas les renommer afin qu'ils soient facilement repérables dans le module du userform

4° vous travailler avec un listobject le "Tableau1"
a quoi ça sert puisque vous fonctionnez comme si vous travaillez avec un range
et des .end(xlup) et tout icointi (je meurs là)

Ah non mais j'agonise là

votre bidule tel que je le conçoit
vite fait en brouillon
1° je vire tout code de l'userform je reprends tout
2°comme je l'ai dit j'ajoute une colonne a ma liste(ma variable tableau) avec les indexs de ligne
3° comme je l'ai dit aussi je renomme les textbox et combo
4° je change un peu son look
5° comme c'est un formulaire (je suppute) d'ajout et/ou modification alors
un item sélectionné dans la listbox sera le signal pour le mode modif
6° le filtre a oui le filtre ben un dico sur la colonne voulue et le .list c'est le dico.keys
7° ah oui au fait le bouton Annuler il sert à quoi?
à marquer "ANNULER" en colonne immatriculation (comme c'est déjà le cas dans certaines lignes)
ou à annuler une action quelconque

Çà en fait des questions hein
 
Vote positif 0 Vote négatif
S

saidoush

XLDnaute Junior
 
Vote positif 0 Vote négatif
S

saidoush

XLDnaute Junior
SUPER!!!

La réalisation que j'ai obtenu me convient, je pense supprimer le bouton "modifier".
le bouton "annulé" sert pour supprimer l'ensemble des donnée saisies sans le supprimer 1 par 1...
(un gadget...)

Merci pour ta bonne humeur...
 
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Encore une chose et ce sera ma dernière intervention.

Avec la méthode .List les formats des colonnes monétaires ne sont pas conservés.

Pour les conserver on peut revenir à la méthode .RowSource.

Mais pour cela il faut utiliser la feuille auxiliaire Filtre, voyez le fichier joint et cette macro :
VB: 
Sub filter_data_in_listbox()
Dim x$, n&
Sheets("Filtre").Cells.Delete
With [Tableau1] 'tableau structuré
    x = ComboBox4.Value
    n = Application.CountIf(.Columns(9), x)
    If n = 0 Then ListBox1.RowSource = "": Exit Sub
    .ListObject.Range.AutoFilter 9, x 'filtre automatique
    .ListObject.Range.SpecialCells(xlCellTypeVisible).Copy Sheets("Filtre").[A1]
    .ListObject.Range.AutoFilter 'ôte le filtre
    ListBox1.RowSource = "Filtre!A2:L" & n + 1
End With
End Sub
 

Pièces jointes

  • SUIVI LOCATIONS 2024.xlsm
    54.5 KB · Affichages: 3
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
@saidoush
donc à ajouter
et si tu Valide et que tu te rends compte que tu t'es trompé ,tu fait comment ???
et herts ou avis t'appelle et te dit que la Renault malheureusement n'est pas dispo because en panne et qu'il te propose un autre véhicule tu fait quoi là aussi
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Résolu(e)
XL 2016 Erreur dans code VBA
4 5 6
Réponses
76
Affichages
2 K
patricktoulon
T
  • Question
XL 2016 Erreur d'exécution 1004 : Impossible de définir la propriété Hidden de la classe Range
Réponses
3
Affichages
287
Phil69970
G
  • Résolu(e)
XL 2021 VBA dates au mauvais format
Réponses
5
Affichages
231
vgendron
S
  • Question
Microsoft 365 créer un macro vba
Réponses
0
Affichages
329
souhaib ad
S
S
  • Question
XL 2021 macro VBA excel
Réponses
1
Affichages
416
crocrocro
C
G
  • Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
18
Affichages
1 K
GClaire
G
M
  • Question
XL 2010 Aide à la suppression d'un produit en double dans un magasin spécifique avec conditions
Réponses
9
Affichages
704
Mody200
M
  • Question
Microsoft 365 VBA export Excel vers Word : Bnq congé 0
Réponses
5
Affichages
604
Phil69970
T
  • Résolu(e)
XL 2016 macro et feuille protégé
2
Réponses
18
Affichages
529
laurent950
E
  • Résolu(e)
Microsoft 365 Problème d'organisation des colonnes dans une ListBox en VBA Excel
Réponses
2
Affichages
779
eCHO
E
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…