Rechercher un format date vba

[gautierbg]

bonjour a tous

je cherche a rechercher au sein d'une plage de cellule celles dont le formet est celui d'une date
j'ai essayé cells()/numberformat = jj/mm/yyyy sans succes
avez vous une idée?
cdt

 

[Hervé]

Re : Rechercher un format date vba

bonjour

peut etre comme ceci :

MsgBox ActiveCell Like "##/##/####"

renvoi vrai ou faux

salut

 

[job75]

Re : Rechercher un format date vba

Bonjour gautierbg,

Tout dépend de ce que vous voulez dire.

Si vous recherchez le format de la cellule (au menu Format => Cellule) :

Dim cel As Range
'---------
For Each cel In [plage]
  If cel.NumberFormat = "m/d/yyyy" Then
    '---------
  End If
Next

Les valeurs pouvant être n'importe quoi.

Si maintenant vous recherchez les valeurs qui apparaissent sous ce format :

Dim cel As Range
'---------
For Each cel In [plage]
  If IsDate(cel) And cel.Text Like "##/##/####" Then
    '---------
  End If
Next

On aura préalablement nommé (menu Insertion-Nom) plage la plage où se fait la recherche.

Edit : salut Hervé, pas rafraîchi...

A+