cs_jeannot45
Messages postés112Date d'inscriptiondimanche 6 janvier 2002StatutMembreDernière intervention27 décembre 2004 9 sept. 2002 à 12:36
Salut,
Voici une petite procédure qui répond en partie à ton problème. La boucle se plante si il y a une cellule Texte dans la série consultée.
Sub TrouverDate()
Range("a1").Select
Do While ActiveCell <> ""
If Format(ActiveCell) <> FormatDateTime(ActiveCell, vbShortDate) Then
ActiveCell.Interior.Color = 255
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub