Reconnaître le format dateRésolu

Question

Bonjour &#224; tous !
Je travaille sur un petit fichier Excel dans le cadre de mon travail. J'ai programm&#233; une macro pour faire une mise &#224; jour quotidienne. 
Et voici mon probl&#232;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&#233;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&#233;rent, elle doit effacer le contenu de la cellule.
J'ai essay&#233; 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 &#231;a ne fonctionne pas, &#224; chaque fois le contenu de la cellule A1 est effac&#233;...

Pouvez-vous m'aider ?

D'avance merci.

CTAC · Accepted Answer

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

lenemmasque · Answer

Merci. Ca fonctionne !

lenemmasque · Answer

Une petite question au passage : peux-tu me dire quelle est la diff&#233;rence entre         Range("A1") et [A1] ?

Reconnaître le format date

3 réponses

Discussions similaires