Format de dates dans VBA

Version imprimable

21/01/2019, 14h56
mikhaelN

Format de dates dans VBA

Bonjour,

Les dates jouent souvent des tours dans VBA. Une date saisie comme 01/11/2018 peut etre interprétée dans une macro comme 11/01/2018.
Je m'en sors habituellement, un peu au petit bonheur la chance a coup de Dateserial, Cstr, Cdate...
Mais existe-t-il un paramétrage, ou un reformatage qui marche à tous les coups ?
Ou un brillant exposé qui l'expliciterait ?

Merci d'avance
21/01/2019, 14h57
Patrice740

Bonjour

Il suffit généralement d'utiliser une variable typée Date
Voir :
http://didier-gonard.developpez.com/...-excel-et-vba/
21/01/2019, 15h25
mikhaelN
Merci Patrice pout ta réponse qui ne résout cependant pas totalement mon problème.

J'utilise la formule suivante pour filtrer dans un tableau les lignes dont la date est comprise ente D_Deb et Date_Fin.
Dans le tableau le champ date est en colonne 6
Les valeurs D_Deb et D_fin sont saisies dans une Userform (ou une Inputbox)
Code:

1 2 ActiveSheet.Range("$A$2:$F$1000).AutoFilter Field:=6, Criteria1:= _ ">=" & D_deb, Operator:=xlAnd, Criteria2:="<=" & D_Fin
Que je déclare D_Deb et D_Fin ou pas, n'a pas d'incidence : 1/11/2018 est interprétée comme 11/1/2018

Merci encore. Peut être d'autres idées ??

Cordialement
21/01/2019, 15h30
MarcelG

Bonjour,

Jean Philippe André (JPCheck) a rédigé un tutoriel au sujet du formatage des dates
21/01/2019, 16h20
Menhir

Citation:

Envoyé par mikhaelN

Mais existe-t-il un paramétrage, ou un reformatage qui marche à tous les coups ?

A ma connaissance, non.
Je pense qu'il faut s'adapter au cas par cas.
21/01/2019, 16h53
mikhaelN

Merci à tous pour vos réponses. Je crois que je vais continuer a traiter les problèmes de dates au cas par cas.
Au pire on m'a suggéré de décomposer les dates en 3 colonnes Day, Month, Year puis de faire des filtres composés sur les 3 colonnes! Comme ultime recours...
21/01/2019, 17h39
Patrice740
Re,

Citation:

Envoyé par mikhaelN

Les valeurs D_Deb et D_fin sont saisies dans une Userform ...
Que je déclare D_Deb et D_Fin ou pas, n'a pas d'incidence : 1/11/2018 est interprétée comme 11/1/2018

Je ne répèterais jamais assez :
A force d'utiliser des propriétés implicites, on oublie les fondamentaux !

Un textbox (ou combobox ou listbox) contient du texte, pas une date.
Pour transformer du texte en date : CDate
Code:

1 2 3 4 5 Private Sub CommandButton1_Click() Dim D As Date D = CDate(Me.tbxDate_deb.Value) MsgBox D End Sub

merci encore Patrice, mais je cherchais si il existait une méthode générale qui m'aurait éviter de tester tous les reformatages possibles chaque fois que je dois traiter des dates dans un programme VBA.
Dans le cas qui m'intéresse aujourd'hui le CDate ne fonctionne pas

J'utilise finalement
Code:

1 2 3 4 5 6 Sub test() D_DEb = Format(InputBox("DEB ?"), "0") D_Fin = Format(InputBox("FIN ?"), "0") ActiveSheet.Range("$A$2:$U$1000").AutoFilter Field:=6, Criteria1:= _ ">=" & D_DEb, Operator:=xlAnd, Criteria2:="<=" & D_Fin End Sub
Pour sélectionner dans un tableau A2:A1000, les lignes dont le champ date (colonne F) est compris entre D_Deb et D_Fin, valeurs saisies dans des Inputbox(es)