[XL-2007] Supprimer cellules contenant du texte en format date [Résolu]

[Runsh63]

Bonjour le forum !

Je m'adresse à vous pour bénéficier de vos conseils avisés sur le problème suivant sur lequel je bloque.

Après compilation de données, je me retrouve avec des données dont certaines lignes sont à supprimer. Je me base sur la colonne B, qui au final ne doit comporter que des dates. Le fichier est pollué par certaines lignes dont la cellule B est soit vide, soit contenant du texte, au format "dd/mm/yyyy".
Avec le code suivant :

Code :

1
2
3
4
5
6
7
Dim FormDate As Long
 
            For FormDate = LR1 To 2 Step -1
                If .Cells(FormDate, 2).NumberFormat <> "dd/mm/yyyy" Or .Cells(FormDate, 2).Value = "" Then
                    .Cells(FormDate, 2).EntireRow.Delete
                End If
            Next FormDate

mes lignes dont la cellule Bx est vide sont bien supprimées mais celles contenant du texte au format date ne le sont pas...
Avez-vous une idée de la façon dont je pourrai également supprimer ces lignes SVP ?

Merci d'avance pour votre aide !

PS : LR1 a été défini plus haut dans le code.

[Runsh63]

J'ai finalement trouvé tout seul. Toutes mes cellules exceptées les vides étant au format date, j'ai opté pour :

Code :

1
2
3
4
5
6
7
Dim FormDate As Long
 
            For FormDate = LR1 To 2 Step -1
                If Not IsNumeric(Left(.Cells(FormDate, 2), 1)) Or .Cells(FormDate, 2).Value = "" Then
                    .Cells(FormDate, 2).EntireRow.Delete
                End If
            Next FormDate

qui fonctionne parfaitement.

Bonne journée !