Microsoft 365 Userform Filtres ne fonctionne pas

jcf6464 · 2 Août 2025

Bonjour à vous toutes et tous,

Je désire un éclaircissement sur le pourquoi le userform filtres ne fonctionne pas ,

Détail ; j'ai récupérer un classeur de (Partick toulon) je les mis à mon gout tout fonctionne ah j'ai mis dans le userform avec une listview à la place d'une listBox plus agréable à la vue,
Pour Patrick quand on valide une ligne de la listview normalement la cellule index ce met en jaune les premières jusqu’à 21 cela est aléatoire soit cet sur la date ou une autre cellule,

Notre amis ChTi160 à créer un code pour les filtres sur un autre classeur sur l’autre tout fonctionne,
Post :https://excel-downloads.com/threads/filtre-avec-userform-sur-tableau-structure.20086946/

J'ai voulu le transposer sur le nouveau classeur avec ses modules et là il ne fonctionne plus, dans les modules j'ai changer le nom du tableau et de la feuille,

Bonne soirée bon WE jcf6464

ChTi160 · 10 Août 2025

Bonjour le Fil,
Le fichier sur lequel , j'ai travaillé !
( perfectible bien sûr )
Tester et me dire s'il ne fonctionne pas !
Bonne Journée
Jean marie

job75 · 3 Août 2025

Attention avec .DataBodyRange, s'il n'existe pas il créera un bug, pour l'éviter on peut utiliser :

VB:

    With [Tbl_ListBowling].ListObject
        If .DataBodyRange Is Nothing Then .Range(2, 1) = " "
        TabBDD = .DataBodyRange
    End With

Par ailleurs il faudrait éviter aussi l'erreur de compilation dans Module_ControlScroll sur :

VB:

Private Classe_ControlScroll As New Classe_ControlScroll

ChTi160 · 3 Août 2025

re
Gérard ,
Je suis allé voir le Fichier source que j'ai fourni à jcf6464 et j'y fait ceci .

VB:

With Range("T_Base").ListObject 'Avec le Tableau de la base de Données
         If Not (.DataBodyRange Is Nothing) Or .ListRows.Count = 0 Then  'Si Non Vide
                  If .AutoFilter.FilterMode Then .AutoFilter.ShowAllData 'On supprime les filtres eventuels
               '******
               '******
         End If 'Not (.DataBodyRange Is Nothing) Or .ListRows.Count = 0
 End With 'Range("T_Base").ListObject

Une habitude Lol !
Bonne fin de Soirée
Jean marie

jcf6464 · 4 Août 2025

ChTi160 à dit:
Bonjour le Fil ,
j'ai eu un message d'erreur lors de l'utilisation du Fichier au Niveau de la Ligne

VB:

DateDebut = TabBDD(1, 2) DateFin = TabBDD(UBound(TabBDD, 1), 2) 'ici

j'ai remarqué qu'il y a des espaces autour de certaine Dates : il y a plusieur Solution !
mettre :

VB:

DateDebut = CDate(TabBDD(1, 2)) DateFin = CDate(TabBDD(UBound(TabBDD, 1), 2))

tu peux aussi supprimer les espaces éventuels en introduisant des Trim() lors de l'enregistrement des Dates depuis ton Userform : "Liste_Bowling".
exemple :

Code:

ws.Range("B" & L).Select 'Ici j'ai supprimé ok ws.Range("B" & L).Value = CDbl(Me.Txt_NumC) ws.Range("C" & L).Value = CDate(Trim(Me.Txt_Date)) 'Ici ok

Bien que résolu je poste !
Bonne Journée
Jean marie

Bonjour jean marie et le forum,
Merci
J'ai modifier les lignes cela fonctionne avec le formatage de la colonne comme je l'avais fait ( Columns(3).NumberFormat = "dd/mm/yyyy")

Je voie que cela à discuter ce WE merci à vous tous,

Tout fonctionne reste à voir si Patrick passe par là
pour Pour Patrick quand on valide une ligne de la listview normalement la cellule index ce met en jaune les premières jusqu’à 21 cela est aléatoire soit cet sur la date ou une autre cellule,

Bonne semaine jcf6464

ChTi160 · 5 Août 2025

Bonjour le Fil ,
Bonjour à jcf6464
tu dis :

quand on valide une ligne de la listview normalement la cellule index ce met en jaune les premières jusqu’à 21 cela est aléatoire soit cet sur la date ou une autre cellule,

Parles tu de la procédure du Bouton "Enregistrer" ?
Bonne Journée
Jean marie

jcf6464 · 5 Août 2025

ChTi160 à dit:
Bonjour le Fil ,
Bonjour à jcf6464
tu dis :

Parles tu de la procédure du Bouton "Enregistrer" ?
Bonne Journée
Jean marie

Bonjour jean marie et le forum,

Non ce que je veut dire c'est quand tu sélectionne une ligne dans la listview (pour supprimer ou modifier) sur la base normalement cela met en jaune le numéro index de la ligne sélectionner,
une anomalie sur le classeur (attention classeur récupère de Patrick Toulon), cela ne gêne en rien le fonctionnement du classeur c'est juste un repère visuel,

merci
bonne journée jcf6464
Je joint une photo

ChTi160 · 5 Août 2025

Re
regarde ce que cela donne chez moi .
J'ai modifié quelques choses : j'ai supprimé la Colonne des Index qui ne me sert pas ! j'ai optimisé l'utilisation du Tableau structuré "Tbl_ListBowling" je continue à faire quelques trucs et je poste le Fichier des que Possible!
Quelle est l'utilité de mettre une cellule en couleur alors qu'on a les données de la ligne affichées sur le userform ?
Bonne fin de Journée
Cordialement
Jean marie

TooFatBoy · 6 Août 2025

Bonjour,

jcf6464 à dit:
Non ce que je veut dire c'est quand tu sélectionne une ligne dans la listview (pour supprimer ou modifier) sur la base normalement cela met en jaune le numéro index de la ligne sélectionner

Une proposition de modification de ton code initial :

VB:

Private Sub ListView_List_ItemClick(ByVal Item As MSComctlLib.ListItem)
'
Dim LigneSel As Long, r, Lg

    Application.ScreenUpdating = False

    Lg = ListView_List.SelectedItem.Index

    ' *****************Alimenter les Textbox"*************************
    Me.Txt_NumC = Item                          ' Numéro Ligne
    Me.Txt_Date = Item.ListSubItems(1)          ' Date
    Me.CmbLieux = Item.ListSubItems(2)          ' Lieux
    Me.TextDepDivers = Item.ListSubItems(3)     ' Dépenses diverses
    Me.TextInscription = Item.ListSubItems(4)   ' Inscription
    Me.TextMtParties = Item.ListSubItems(5)     ' MtPartie
    Me.TextBoisson = Item.ListSubItems(6)       ' Boisson
    Me.CmbMode = Item.ListSubItems(7)           ' Mode
    Me.TextObservation = Item.ListSubItems(8)   ' Observation
    Me.TextAutre = Item.ListSubItems(9)         ' Autre
    Me.TextCompet = Item.ListSubItems(10)       ' Compet
    Me.TextPau = Item.ListSubItems(11)          ' Pau
    Me.TextQLIbre = Item.ListSubItems(12)       ' QLibre
    Me.CmbDescripCompet = Item.ListSubItems(13) ' DescripCompet

    Range("Tbl_ListBowling").ListObject.Range.Interior.Color = xlNone   ' Avec le tableau structuré

    Combo.Value = Format(ListView_List.ListItems(Lg), "0")
    LigneSel = CLng(Combo.Value)    ' ListView_List.SelectedItem
    Set r = Range("Tbl_ListBowling[Index]").Find(LigneSel)
    r.Interior.ColorIndex = 27      ' 42 est le code couleur qui permet de changer la couleur de la cellule sélectionnée

    Application.ScreenUpdating = True

End Sub

[edit]
Le classeur ci-joint fonctionnait même lors du clic sur la première ligne de la ListBox, mais maintenant ça ne marche plus pour cette première ligne... 🤪 Peut-être un bug dans l'usine à gaz qui tente de gérer la ListView ???
Si quelqu'un sait pourquoi, je suis volontiers preneur. Merci. 🙂
[/edit]

ChTi160 · 6 Août 2025

Bonjour TooFatBoy,Le Fil
ce que j'ai mis et qui Fonctionne . je ne passe pas par Combo ((pourquoi un Combobox d'ailleur?)
2 possibilités : (Mais y'en a peut être d'autres Lol)

VB:

    Range("Tbl_ListBowling").ListObject.Range.Interior.Color = xlNone   ' Avec le tableau structuré on efface les Couleurs
 
 LigneSel = ListView_List.ListItems(Lg).Text 'On récupére l'index de la Ligne Cible
 Range("Tbl_ListBowling").ListObject.ListRows(LigneSel).Range.Cells(1).Interior.ColorIndex = 27 'On colore la Cells(1) de la Ligne ainsi definie
 
'   Set r = Range("Tbl_ListBowling").ListObject.ListRows(LigneSel).Range.Cells(1, 1) 'On récupére la Cellule Cible
'        r.Interior.ColorIndex = 27      ' 27 est le code couleur qui permet de changer la couleur de la cellule sélectionnée

Bonne fin de Journée
Cordialement
Jean marie

TooFatBoy · 6 Août 2025

ChTi160 à dit:
ce que j'ai mis et qui Fonctionne .

Vu que ListView_List.SelectedItem.Index donne le rang de la ligne cliquée dans la ListView, perso j'aurais directement colorié la cellule de même rang dans la colonne Index du TS.

Je me suis donc demandé pourquoi il y avait une telle complication du code et perte de temps inutiles, et la seule raison que j'ai trouvée c'est que la ListView et le TS peuvent ne pas être dans le même ordre, ce qui oblige à rechercher dans le TS l'index inscrit sur la ligne cliquée de la ListView. 🫤

ChTi160 · 6 Août 2025

Re
si on filtre le Tableau : tu dis :

vu que ListView_List.SelectedItem.Index donne le rang de la ligne cliquée dans la ListView

ca donnerait quoi ?
car le Numéro de la Ligne Cible récupéré se trouve au Niveau du ListItem de la Ligne .et ne correspond pas à L'index de la ligne sélectionnée dans la LIstView ; si j'ai bien Compris ! Lol
a voir donc
Bonne fin de Journée
Jean marie

TooFatBoy · 6 Août 2025

ChTi160 à dit:
si on filtre le Tableau

Oui. Tu parles de filtrer le TS et je parle de le trier, mais l'idée est la même : les Index ne correspondent plus, ce qui oblige à effectuer une recherche de l'Index de la ListView dans le TS.

ChTi160 · 6 Août 2025

Re ,
J'ai pris l'habitude de charger les lignes du TS dans mes ListBox ,ListView ,Combobox . Et je m'en sert pour faire référence au ligne du TS Dans les procédures.
Bonne journée
Jean marie

TooFatBoy · 7 Août 2025

TooFatBoy à dit:
Le classeur ci-joint fonctionnait même lors du clic sur la première ligne de la ListBox, mais maintenant ça ne marche plus pour cette première ligne... 🤪 Peut-être un bug dans l'usine à gaz qui tente de gérer la ListView ???
Si quelqu'un sait pourquoi, je suis volontiers preneur. Merci. 🙂

Personne ne sait me dire pourquoi quand je clique dans la ListView sur la ligne contenant l'index 1, c'est l'index 10 qui colorié dans le TS ?

Pourquoi la recherche me donne-t-elle la ligne 10 au lieu de 1 ?
Est-ce un problème de tous ces "Option Base 1" ou autre ???

ChTi160 · 7 Août 2025

Bonjour el Fil ,
les méandres de VBA ! Lol
j'ai mis :

VB:

   Combo.Value = ListView_List.ListItems(Lg)
    LigneSel = CLng(Combo.Value)  
'    Set r = Range("Tbl_ListBowling[Index]").Find(CLng(LigneSel)) 'ancienne Ligne
    Set r = Range("Tbl_ListBowling[Index]").Find(what:=CLng(LigneSel), LookIn:=xlValues, lookat:=xlWhole) 'Nouvelle Ligne
    r.Interior.ColorIndex = 27      ' 42 est le code couleur qui permet de changer la couleur de la cellule sélectionnée

et cela Fonctionne , l'ajout des deux arguments de la Fonction .Find() soit LookIn:=xlValues, lookat:=xlWhole assure la recherche de la valeur exacte et Non comme ca ce produit 10,11,00
a voir donc
Bonne fin de Journée
Jean marie

TooFatBoy · 7 Août 2025

ChTi160 à dit:
l'ajout des deux arguments de la Fonction .Find() soit LookIn:=xlValues, lookat:=xlWhole assure la recherche de la valeur exacte et Non comme ca ce produit 10,11,00

Génial ! Merci. 👍

J'avais pensé à LookIn=xlValues, mais pas à LookAt=xlWhole dont je crois je n'avais jamais vraiment compris la portée... 🙁

Microsoft 365 Userform Filtres ne fonctionne pas

jcf6464

XLDnaute Impliqué

Pièces jointes

ChTi160

job75

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

jcf6464

XLDnaute Impliqué

ChTi160

XLDnaute Barbatruc

jcf6464

XLDnaute Impliqué

ChTi160

XLDnaute Barbatruc

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

Pièces jointes

ChTi160

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Discussions similaires

Microsoft 365 Userform Filtres ne fonctionne pas

XLDnaute Impliqué

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency