VBA Test valeurs autres que date dans une colonne

bonjour

Je cherche en VBA à tester dans une colonne si au moins une cellule non vide n'est pas une date auquel cas je ne la masque pas. Si par contre que des dates dans cette colonne, on la masque.

Mais je n'arrive pas à tester.

En gros l'idée :

If Not IsDate ........ then
    Sheets ("Feuill1").Range("A:A").EntireColumn.Hidden = False
Else
    Sheets ("Feuill1").Range("A:A").EntireColumn.Hidden = True
End if

Merci d'avance

Bonjour,

Un essai :

Sub TestColonne()

Dim LigMax As Long, Lig As Long, ColDate As Boolean

ColDate = True
With Sheets("Feuill1")
    LigMax = .Range("A" & Rows.Count).End(xlUp).Row 'Dernière ligne avec données
    For Lig = 2 To LigMax 'Boucle sur les lignes
        If Not IsEmpty(.Range("A" & Lig)) And Not IsDate(.Range("A" & Lig)) Then ColDate = False
    Next Lig
    If ColDate Then .Columns(1).Hidden = False Else .Columns(1).Hidden = True
End With

End Sub

Merci Pedro

C'est parfait

Juste une inversion entre true et false à la fin

merci encore

boby63 a écrit :

Juste une inversion entre true et false à la fin

J'ai suivi ton exemple un peu plus haut.