Discussion :

[DenisHen]

Bonjour à tous,

Voilà, j'ai un petit souci de contrôle lors d'exportations. J'ai donc une macro qui exporte les données de différentes cellules mais je ne sais pas comment faire pour vérifier si la Cellule B5 par exemple contient bien une date et non un texte ou autre...

Si quelqu'un a une solution, je suis preneur...

Denis...

[Philippe Tulliez]

Bonjour,
De mémoire, la fonction IsDate devrait t'aider

Code :

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

Debug.Print IsDate(Range("C2"))

Renverra VRAI ou FAUX

[DenisHen]

Merci Philippe, ça fonctionne nikel...

Denis...

[DenisHen]

Re,

Je pensais qu'un temps (h:mm) était aussi une valeur de "date"...

IsDate ne fonctionne pas avec un temps. Est-ce normal ?

L'aide en ligne dit le contraire, "Cet exemple utilise la fonction IsDate pour déterminer si une expression est reconnue comme une valeur de date ou d'heure."

Faut-il transformer mon temps "01:20:00" en date ?

Denis...

[Philippe Tulliez]

Bonjour,
Effectivement si la cellule contient une date IsDate renvoie VRAI mais si elle contient une heure elle renvoie FAUX.
Par contre une date additionnée d'une heure renvoie bien VRAI mais évidemment c'est normal puisque la date s'y trouve.
Une heure sans date = 0,xx une date plus une heure donne un nombre entier supérieur à 0
En additionnant l'heure contenue dans une cellule avec 1 et avec le formatage adéquat tu l'obtiendras VRAI
Exemple

Code :

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

Debug.Print IsDate(format(range("B3").Value + 1,"d/m/y"))

Attention tout de même de ne pas faire ce test avec des nombres car alors tous les tests renverront VRAI

[joe.levrai]

Bonjour,

si la cellule contient une "hh:mm", on peut détecter que c'est une date ainsi :

Code :

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

MsgBox IsDate(Format(ActiveCell, "d/m/y hh:mm"))

mais ne va-t-on pas générer des faux positifs comme dans l'exemple de Philippe ?