kijx
Messages postés45Date d'inscriptionmercredi 30 décembre 2009StatutMembreDernière intervention 2 avril 2014
-
12 nov. 2013 à 14:09
kijx
Messages postés45Date d'inscriptionmercredi 30 décembre 2009StatutMembreDernière intervention 2 avril 2014
-
12 nov. 2013 à 15:33
Bonjour,
J'ai un petit problème pour terminer ma macro, j'aimerai tester la valeur d'une cellule, si celle-ci est différente d'un format date :
Exemple : il n'y a pas écrit 12/11/2013 mais Supprimé le ...
alors on met le fond sans couleur et on passe à la suite.
voici ce que j'ai, je ne met pas la macro en entière le reste n'est pas forcement intéressant :
'Compare si la valeur de la cellule est différent d'une date
If monRange.Value <> Date Then
monRange.Interior.ColorIndex = xlNone
GoTo cellulevide
End If
Problème c'est que ici il détecte la date du jour, n'y a t-il pas une commande qui permette de définir seulement le "format" date ?
kijx
Messages postés45Date d'inscriptionmercredi 30 décembre 2009StatutMembreDernière intervention 2 avril 2014 12 nov. 2013 à 15:19
ça peut être pas mal mais comment est-ce que sa s'utilise ?
J'ai tenté quelque chose mais sans succès :
'Compare si la valeur de la cellule est différent d'une date
If monRange.Value <> IsDate Then
monRange.Interior.ColorIndex = xlNone
GoTo cellulevide
End If
ou alors déclaré une variable en boolean
Dim valeurcellule as boolean
formatdate = #12/11/2013#
valeurcellule = isdate(valeurcellule)
Mais la il va me retourner juste True pour valeurcellule et en prenant en compte la date que je lui ai indiqué ? et pas un format de date ?
kijx
Messages postés45Date d'inscriptionmercredi 30 décembre 2009StatutMembreDernière intervention 2 avril 2014 12 nov. 2013 à 15:33
Merci Jordane45, j'avais trouvé également mais en beaucoup plus compliqué :)
Dim formdate As Boolean
'Défini si la valeur de la cellule est une date ou non, renvoi vrai ou faux
formdate = IsDate(monRange.Value)
'Si la valeur de la cellule est faux donc pas au format d'un date on ne met aucune remplissage
If formdate = False Then
monRange.Interior.ColorIndex = xlNone
GoTo cellulevide
End If