Discussion :

[flear]

salut a tous,

voila mon probleme,dans un fichier excel j'ai mis 2 boite de dialogue demandant 1 la date de debut et de 2 la date de fin,pour ca tout va bien le probleme c'est que j'aimerais bien faire un tri SELON ces dates....mais je ne sais pas comment....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim A As Date
Dim B As Date
Datedeb = InputBox("Entrez la date de debut  (jj/mm/aaaa)")
Datefin = InputBox("Entrez la date de fin  (jj/mm/aaaa)")
 
Application.Dialogs.Item(xlDialogOpen).Show
 
    Selection.AutoFilter
    Selection.AutoFilter Field:=3, Criteria1:=">=Datedeb"", Operator:=xlAnd", Criteria2:="<=Datefin"

j'ai essaye comme ca mais excel m'as envoye paitre (falait bien tester quelque chose....)donc voila si vous pouviez m'aide ce serait sympa^^

[wilfried_42]

bonjour

Les boites de dialogues renvoie du format texte or tes variable sont en format date

essaye ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Datedeb = CDate(InputBox("Entrez la date de debut  (jj/mm/aaaa)"))
Datefin = CDate(InputBox("Entrez la date de fin  (jj/mm/aaaa)"))

bonne journée

[flear]

hummm j'ai plus d'erreur (c'est deja pas mal) mais la il trie pas sur ce qui est definie sur la variable (donc une date) mais sur "Datedeb" , Operator:=xlAnd" et sur "Datefin" donc sur le nom de la variable....

(au fait merci pour l'info de la boite de dialogue ca va mettre tres utile^^)

[wilfried_42]

re:

je ne suis pas familier de ces ordres mais je verrai bien yne syntaxe de ce type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Selection.AutoFilter Field:=3, Criteria1:=">=" & format(Datedeb,"dd/mm/yyyy"), _
Operator:=xlAnd", Criteria2:="<=" & format(Datefin,"dd/mm/yyyy")

regarde et dis nous

@ te lire

[flear]

Selection.AutoFilter Field:=3, Criteria1:=">=" & format(Datedeb,"dd/mm/yyyy"), _
Operator:=xlAnd", Criteria2:="<=" & format(Datefin,"dd/mm/yyyy")

a part une petite erreur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Operator:=xlAndpas de ", Criteria2:="<=" & Format(Datefin, "dd/mm/yyyy")

tout marche tres bien merci beacoup^^