XL 2021 VBA - Est-ce que le format d'une cellule est un format de type Date (quelconque)

[Dudu2]

Bonjour,

Est-ce que cette fonction répond de manière sûre à la question ?

Function FormatCellIsDate(Cell As Range) As Boolean
    If IsDate(Format(0, Cell.NumberFormat)) Then
        'Return Value
        FormatCellIsDate = True
    End If
End Function

 

[vgendron]

bonjour

et pourquoi pas simplement

Function FormatCellIsDate(Cell As Range) As Boolean

        FormatCellIsDate = isdate(cell)

End Function

ce qui n'apporte rien de plus à la fonction excel "estdate"

quels sont les cas que tu comptes traiter avec ta fonction?

 

[sylvanu]

Bonjour Dudu2, Cousinhub, Vgendron,
A vérifier mais sur mon vieux XL2007 VBA6.3, 06/07/2025 répond VRAI, mais dimanche 6 juillet 2025 répond FAUX.

( j'ai vérifié, les deux cellules contiennent bien la même valeur )
Addon :
En approfondissant :

Mais en reprenant la fonction de Vgendron, c'est mieux :

 

[Dudu2]

Merci pour vos retours.

@Cousinhub,
Bonne remarque. ll faudrait éventuellement virer les formats heures mais pas simple car ça fait partie du format date.
Ceci dit, ce n'est pas majeur.

@vgendron
Je souhaite tester le format, pas la valeur.

@sylvanu,
Tu as trouvé un cas où effectivement ça ne fonctionne pas !

 

[sylvanu]

Tu as trouvé un cas où effectivement ça ne fonctionne pas !

Pas 1 mais 3.
Il semblerait que le jour en lettres lui déplait. 😉

 

[vgendron]

Mais en reprenant la fonction de Vgendron, c'est mieux :

c'est bien trop d'honneur que tu me fais la.. il s'agit juste d'une fonction Excel..
vu que dans ton tableau, "estdate" renvoie vrai à chaque fois , je présume que la colonne testée, c'est toujours la même valeur, mais avec un format d'affichage différent
et donc @Dudu2 , ca teste bien le format, pas la valeur

 

[Dudu2]

et donc @Dudu2 , ca teste bien le format, pas la valeur

IsDate() teste si la valeur est une date. Ça ne présume en rien du format.
Mets "Toto et Titi" dans une cellule que tu mets en format date, IsDate() = False. Et heureusement parce que j'aurais quelques kilos de code à revoir !

 

[vgendron]

IsDate() teste si la valeur est une date. Ça ne présume en rien du format.
Mets "Toto et Titi" dans une cellule que tu mets en format date, IsDate() = False. Et heureusement parce que j'aurais quelques kilos de code à revoir !

bah oui, on est d'accord...
mais je ne comprend toujours pas ce que tu veux tester...
ta fonction retourne Vrai ou False.. ca ne te dit pas quel format est appliqué...

 

[dysorthographie]

Bonjour,
Isdate renvoie true pour tous numérique.

Pour le dimanche 6 juillet 2025 ça ne peut fonctionner qu'avec un dates et numberforma car sinon c'est du texte et non une date.

Lance toi dans une usine à gaz VBA pour identifier tout ce qui ressemble de près ou de loin à une date.

 

[vgendron]

Isdate renvoie true pour tous numérique.

ha bon??

Sub test() 'me renvoie FALSE

MsgBox IsDate(10)

End Sub



Sub test() 'me renvoie TRUE
MsgBox IsDate(Format(10, "dd/mm/yyyy"))
End Sub

 

[Dudu2]

mais je ne comprend toujours pas ce que tu veux tester...

Je ne veux pas tester si la valeur de la cellule est une date, ce que teste IsDate() quelque soit d'ailleurs le format de la cellule.
Je veux savoir si le format de la cellule est un format de type date. Ça me parait clair.
Le titre du sujet: VBA - Est-ce que le format d'une cellule est un format de type Date (quelconque)

ta fonction retourne Vrai ou False.. ca ne te dit pas quel format est appliqué...

Ma fonction est sensée retourner Vrai si le format de la cellule est un format Date.
Malheureusement, il y a des lacunes.

 

[Dudu2]

Pourquoi ?
Parce que dans des fichiers de Compta j'ai des colonnes qui parfois contiennent des cellules du type de la cellule A2 du fichier joint.
Dès qu'on y accède ce sont des erreurs #6 - Dépassement de capacité parce que la cellule a un format Date et que le nombre qu'elle contient ne peut pas être converti en date => erreur #6.

Je me propose donc de les corriger en m'assurant que la cellule en question est bien en format date (pour les passer en format Standard).
D'où le sujet.

 

[Dranreb]

Bonjour.
Testez ça :

If VarType(Cel.Value) = vbDate Then

 

[vgendron]

Bonjour.
Testez ça :

If VarType(Cel.Value) = vbDate Then

j'étais en train de chercher du coté de "typeof" :-D

 

[dysorthographie]

ha bon??

oui tu raison et j'aurais du préciser ma pensé avec le même genre exemple que toi bravo.