XL 2016 Identifier une date au format mmm.aa dans une plage de cellules

[Fab117]

Hello,
Ma macro scanne une plage de cellule à la recherche de cellules contenant une date (qui est au format Custom "mmm.aa").
Je n'ai pas réussi à trouver la bonne formule.
Quelqu'un saurait-il comment m'aider ?

'i boucle sur les lignes
'j boucle sur les colonnes
For j = 2 To Dercol
    For i = 4 To 16
        If Sheets("Feuille de test").Cells(i, j).NumberFormat = "mmm.aa" Then
            Cells(i, j).Select
            ...
        End If
    Next i
Next j

Merci d'avance

Fab

 

[pierrejean]

Bonjour Fab

Peut être avec isdate !
Mais qu'y a-t-il dans les cellules autres ?
Un petit fichier exemple sans données confidentielles permettrait d'y voir plus clair

 

[Fab117]

Hello Pierre Jean,
Merci de t'interresser à mon problème.
Je joins un fichier exemple.

Bonne fin de journée

Fab

 

[Chris24]

Bonjour Fab117, pierrejean

Comme te l'a suggérer pierrejean avec IsDate tu as la solution

"If IsDate(Sheets("Test 20 mars 18").Cells(i, j)) Then"

Le format n'est qu'un format d'affichage


Cdt

 

[eriiic]

Bonjour,

vba est en anglais, c'est yy pour l'année dans le format.
eric

 

[pierrejean]

Re

Avec la macro complete

 

[Fab117]

Hello,
Un grand merci à vous 3 pour votre aide.
Comme toujours Pierre Jean, ta macro clé en main fonctionne exactement comme attendu.

Bonne fin de journée.

Fab