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 ?

[DenisHen]

Bonsoir à tous, et merci de répondre,

Effectivement, si on ajoute 1 à n'importe quel nombre, ça donnera toujours une date, mais comme mes cellules "temps" sont formatées "[h]:mm", ça ne devrai pas poser de problèmes à l'utilisateur lambda, qui sont en fait mes collègues, car je teste juste pour savoir s'ils n'ont pas saisi un texte à la place d'une date ou d'un temps avant d'exporter ces données dans un autre fichier.

En tout cas, merci à tous, je testerais tous ça demain...

Denis...

[Philippe Tulliez]

Bonjour Denis,

je teste juste pour savoir s'ils n'ont pas saisi un texte à la place d'une date ou d'un temps avant d'exporter ces données dans un autre fichier.

Pourquoi passer par une procédure VBA pour effectuer ce type de vérification alors que l'outil Validation de données est fait pour cela et peut parfaitement vérifier l'encodage des heures dans les cellules et empêcher d'entrer un autre valeur.

[DenisHen]

Bonjour Philippe,

Je n'avais absolument pas pensé à ça... C'est effectivement la meilleur solution...

Merci encore,

Denis...

[DenisHen]

Bonjour à tous,

Juste une petite observation, au sujet de la validation de données, j'ai une cellule qui ne comporte qu'une variable "temps". Mon tableau se comportait impeccablement depuis le conseil de Philippe Tulliez. Mais aujourd'hui, un collègue essai de saisir un temps de 40h00. Chose impossible puisqu'Excel n’accepte que les temps inférieur à 24h...

Comment faire ?

Si quelqu'un a une astuce ou un conseil... Je suis preneur.

Denis...

[Philippe Tulliez]

Bonjour,
Une astuce parmi d'autres, en imaginant que l'on souhaite limiter l'encodage des heures comprises entre 01:00 et 40:00 et ce dans les cellules de la plage B2:B16.

1. Prévoir sur une feuille paramètres, deux cellules nommées respectivement StartTime et EndTime où seront encodées les heures de début (01:00) et de fin (40:00) au format personnalisé [hh]:mm
2. Sélectionner la plage B2:B16
3. Dans l'outil Validation de données-Heure, choisir Données comprise entre Heure de début = StartTime et Heure de fin =EndTime
4. Confirmer par OK

[DenisHen]

Bonjour,

Effectivement, il y a une belle astuce...

Ca fonctionne NIKEL ! ! !

Un grand merci Philippe...

Denis...