Reconnaître le format date

Résolu
Signaler
Messages postés
33
Date d'inscription
mardi 6 décembre 2005
Statut
Membre
Dernière intervention
23 mars 2007
-
Messages postés
33
Date d'inscription
mardi 6 décembre 2005
Statut
Membre
Dernière intervention
23 mars 2007
-
Bonjour à tous !
Je travaille sur un petit fichier Excel dans le cadre de mon travail. J'ai programmé une macro pour faire une mise à jour quotidienne.
Et voici mon problème :
Dans ma cellule A1, j'ai la date au format "d mmmm yyyy". Mais parfois, je dois rentrer la date manuellement et mettre quelque chose du genre "6-7 février 2006".
J'aimerais que quand je lance ma macro, elle reconnaisse le format de la cellule A1, et, si elle est bien au format "d mmmm yyyy", elle passe au jour suivant. Par contre, si le format est différent, elle doit effacer le contenu de la cellule.
J'ai essayé quelque chose du genre :
If Range("A1") <> Format(Date, "d mmmm yyyy") Then
Range("A1").ClearContents
Else
Range("A1") = Range("D2") + 1
End If
Mais ça ne fonctionne pas, à chaque fois le contenu de la cellule A1 est effacé...

Pouvez-vous m'aider ?

D'avance merci.

3 réponses

Messages postés
133
Date d'inscription
mardi 24 décembre 2002
Statut
Membre
Dernière intervention
8 juin 2012
4
Bonjour,

If IsDate([A1]) Then
[A1] = [D2] + 1
Else
[A1].ClearContents
End If

ctac
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
33
Date d'inscription
mardi 6 décembre 2005
Statut
Membre
Dernière intervention
23 mars 2007
3
Merci. Ca fonctionne !
Messages postés
33
Date d'inscription
mardi 6 décembre 2005
Statut
Membre
Dernière intervention
23 mars 2007
3
Une petite question au passage : peux-tu me dire quelle est la différence entre Range("A1") et [A1] ?