Discussion :

[mikhaelN]

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

[Patrice740]

Bonjour

Il suffit généralement d'utiliser une variable typée Date
Voir :
http://didier-gonard.developpez.com/...-excel-et-vba/

[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 :

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

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

[Patrice740]

Re,

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 :

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

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

[mikhaelN]

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 :

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

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)

[MarcelG]

Bonjour,

Jean Philippe André (JPCheck) a rédigé un tutoriel au sujet du formatage des dates

[Menhir]

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.

[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...