XL 2010 trie avec deux critère

[teddy33130]

bonjour a tous
dans le fichier joint
une fois cliquer sur le bouton trier
puis dans l'userform qui s'affiche en rentrant dans critère 1 (mai) par exemple & dans critère 2 (2019) par exemple , que cela trie apartir de la colonne B2 jusqu'a la derniere ligne remplie
la ligne 1 doit contenir des titre de colonne donc ne doit pas etre prise en compte
j'ai essayer avec l'enregistreur de macro mais cela ne fonctionne pas

amicalement

 

[Staple1600]

Bonjour


Justement pourquoi la ligne d'entêtes est-elle vide sur la feuille Base de données?

 

[teddy33130]

re ce n'est pas le fichier d'origine (plus de 500 lignes & 32 colonnes) mais un fichier allegé la premiere ligne me sert a mettre des entete a partir de la colonne D

 

[Staple1600]

Re

Test OK chez moi
(mais j'ai mis des entêtes, comme on le fait classiquement dans tout fichier Excel)

Private Sub CommandButton1_Click()
If CBT1 = "" Then
MsgBox "Entrez votre premier critère": CBT1.SetFocus
Else
If CBT2 = "" Then
MsgBox "Entrez votre second critère": CBT1.SetFocus
Else
Cells(1).CurrentRegion.AutoFilter Field:=2, Criteria1:="=*" & CBT1.Value & "*", Operator:=xlAnd, Criteria2:="=*" & CBT2.Value & "*"
End If
End If
End Sub

PS: Le mois de mais n'existe pas 😉
Tu aurais tout avantage d'utiliser des vraies dates
(auquel tu pourrais affecter le format d'affichage de ton choix)
Cela simplifiera grandement les choses pour utiliser les filtres chronologiques.

 

[teddy33130]

re
merci tout fonctionne tres bien

 

[job75]

Bonjour teddy33130, JM,

merci tout fonctionne tres bien

Ah bon, pourtant à vue de nez Criteria2 n'est pas correct...

A+

 

[Staple1600]

Bonjour job75

C'est mon copier/coller qui n'est pas correct
(mais dans mon VBE, c'était bon)
J'ai corrigé le message.
Merci pour l'œil de lynx.
😉