Trouver si format cellule est Date

[BOUCHEZ JD]

Bonjour

IsDate(ActiveCell) permet de savoir si le CONTENU d'une cellule est une date.

Mais comment savoir si une cellule vide est dans un format date ?

Merci d'avance

 

[tototiti2008]

Re : Trouver si format cellule est Date

Bonjour BOUCHEZ_JD,

peut-être :

    If UCase(ActiveCell.NumberFormat) Like "*Y*" Or _
        UCase(ActiveCell.NumberFormat) Like "*M*" Or _
        UCase(ActiveCell.NumberFormat) Like "*D*" Then
        MsgBox "Format Date"
    End If

 

[BOUCHEZ JD]

Re : Trouver si format cellule est Date

Merci de la réponse

OK, cela marche.

Mais avant d'interroger le forum, j'ai cherché et pas trouvé une syntaxe
plus simple qui permette de trouver directement le format appliqué sur
une cellule.

Bon W.E

 

[tototiti2008]

Re : Trouver si format cellule est Date

Re,

le format appliqué à une cellule est Activecell.NumberFormat, mais comme il y a pleins de codes formats possibles...