Microsoft 365 Userform Filtres ne fonctionne pas

[jcf6464]

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

 

[vgendron]

bonjour
pourquoi veux-tu tester la présence de la ligne de filtre avant de faire un tri? quel intérêt?
ensuite, dans ta syntaxe, tu confonds le nom de la feuille avec le nom de la table
puis tu fais appel à des fonctions non définies.. (Tri_Date)

 

[vgendron]

en ignorant les "filtres" sur la feuille

 

[jcf6464]

bonjour
pourquoi veux-tu tester la présence de la ligne de filtre avant de faire un tri? quel intérêt?
ensuite, dans ta syntaxe, tu confonds le nom de la feuille avec le nom de la table
puis tu fais appel à des fonctions non définies.. (Tri_Date)

Bonjour
merci de ta réponse exact pour le (Tri_Date) j'ai oublié de l'enlever
Pour la syntaxe je ne voie pas ou ...
bonne soirée jcf6464

 

[jcf6464]

en ignorant les "filtres" sur la feuille

Re

Merci de ta réponse

J'ai réintégrer toute la base sur celle que tu ma fait parvenir et la cela ne fonctionne pas alors que le tiens fonctionne je m’arrache les cheveux qui me reste
Classeur avec toute la base
bonne soirée

 

[jcf6464]

en ignorant les "filtres" sur la feuille

Re

Après des essais en copiant les lignes jusqu’à 188 cela fonctionne la 189 mes le bazard
ou ai je fait la bétise
A+ jcf

 

[jcf6464]

en ignorant les "filtres" sur la feuille

Encore moi
j'ai trouvé le pourquoi des dernières date pas conforme nul je suis
J'avais mis cela ('Columns(3).NumberFormat = "dd/mm/yyyy")
car les dates dans excel c'est le foutoir je suis obligé de reformaté les dates après les saisie

Sur le classeur définitif cela fonctionne aussi
merci infiniment
Bon WE jcf

 

[ChTi160]

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

         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 :

         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 :

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

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

 

[vgendron]

Hello

Dans l'initialise du formulaire, tu tries le tableau et tu détermines les dates de début et fin.. ce qui ne sert à rien puisque tu recommences juste après dans le Initialize_Periode1

 

[ChTi160]

re ,
Question : Pourquoi une Colonne "Index" ?
que ce passe t'il lorsque l'on supprime Une Ligne du Tableau ?
Bonne Journée
Jean marie

 

[job75]

Bonjour le forum,

Je vois que dans la macro UserForm_Initialize de usfFiltres il est écrit :

         With Range("Tbl_ListBowling").ListObject
            If .AutoFilter.FilterMode Then .AutoFilter.ShowAllData 'On supprime les filtres eventuels

Ce n'est pas comme cela qu'on procède avec un tableau structuré, remplacez ce code par :

         With [Tbl_ListBowling].ListObject
            .Range.AutoFilter
            .Range.AutoFilter

Par ailleurs à la fin l'instruction Initialise_PERIODE_1 crée un bug, supprimez-la.

A+

 

[vgendron]

@job75 hello

si tu supprimes son instruction, les combo ne sont plus remplis...
son instruction bug parce qu'il confond le nom de la table avec le nom de la feuille et qui'l n'utilise pas la bonne syntaxe pour utiliser les listobjects

 

[job75]

Bon j'ai corrigé la fonction Initialise_PERIODE_1 maintenant on peut l'utiliser avec ce fichier.

 

[ChTi160]

Bonjour Gérard ,
C'est en effet une des Façons de faire référence à un Tableau structuré !

[Tbl_ListBowling].ListObject

tout comme :

Worksheets("ListeBowling").ListObjects("Tbl_ListBowling")

ou même comme je l'ai adopté :

Range("Tbl_ListBowling").ListObject

il y a des avantages et des Inconvénients d'utiliser l'une ou L'autre contre chacune d'elles Lol
Exemple Comment fait on référence a une Plage Nommée ?
faites votre Choix Lol
Bonne Journée
Gérard

 

[ChTi160]

Re
Donc tu as dans la procédure changé pour mettre :

  With [Tbl_ListBowling].ListObject
               TabBDD = .DataBodyRange.Value
  End With

Chez Moi , ça fonctionne tout comme les deux autres méthodes!
Bonne Journée
Jean marie