CelluleVide
XLDnaute Occasionnel
J’avais un pb de syntaxe que Lapix m’a résolu ( je l’en remercie vivement !)
Mais maintenant autre souci :
je demande à l'aide des 2 inputbox de me donner des dates mini et maxi, ces dates sont rentrées au format jj/mm/aaaa, mais quand je vais voir les valeurs du filtre, la restitution du format se fait en format US c'est à dire mm/jj/aaaa, comment faire pour imposer mon format "français".
Voici mon code:
Sub filtre()
'Variables:
Dim DateFinFab As Date
Dim DateFinFab2 As Date
Dim DateCreation As Date
DateCreation = InputBox("ENTREZ LA DATE DE CREATION", "DATE DE CREATION")
DateFinFab = InputBox("ENTREZ LA DATE DE FIN FAB", "Date de Fin")
DateFinFab2 = DateFinFab + 7
Selection.AutoFilter Field:=5, Criteria1:=">= " & DateFinFab, operator:=xlAnd, Criteria2:="< " & DateFinFab2
Selection.AutoFilter Field:=4, Criteria1:="<" & DateCreation
End Sub
merci de votre aide
Mais maintenant autre souci :
je demande à l'aide des 2 inputbox de me donner des dates mini et maxi, ces dates sont rentrées au format jj/mm/aaaa, mais quand je vais voir les valeurs du filtre, la restitution du format se fait en format US c'est à dire mm/jj/aaaa, comment faire pour imposer mon format "français".
Voici mon code:
Sub filtre()
'Variables:
Dim DateFinFab As Date
Dim DateFinFab2 As Date
Dim DateCreation As Date
DateCreation = InputBox("ENTREZ LA DATE DE CREATION", "DATE DE CREATION")
DateFinFab = InputBox("ENTREZ LA DATE DE FIN FAB", "Date de Fin")
DateFinFab2 = DateFinFab + 7
Selection.AutoFilter Field:=5, Criteria1:=">= " & DateFinFab, operator:=xlAnd, Criteria2:="< " & DateFinFab2
Selection.AutoFilter Field:=4, Criteria1:="<" & DateCreation
End Sub
merci de votre aide