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.