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

Fab117 · 20 Mars 2018

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 ?

Code:

'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 · 20 Mars 2018

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 · 20 Mars 2018

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

Bonne fin de journée

Fab

Chris24 · 20 Mars 2018

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 · 20 Mars 2018

Bonjour,

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

pierrejean · 21 Mars 2018

Re

Avec la macro complete

Fab117 · 21 Mars 2018

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

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

Fab117

XLDnaute Impliqué

pierrejean

XLDnaute Barbatruc

Fab117

XLDnaute Impliqué

Pièces jointes

Chris24

XLDnaute Impliqué

eriiic

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

Pièces jointes

Fab117

XLDnaute Impliqué

Discussions similaires