Dans l’exemple suivant, vous avez un tableau dans lequel les textes et les dates apparaissent dans la colonne A. Votre tâche consiste maintenant à supprimer toutes les lignes contenant des dates. Le code de cette tâche se trouve dans l’extrait .
Sub Supprimercellulesdate()
Sheets("Feuil1").Activate
Range("A1").Select
Do Until ActiveCell.Value = ""
If IsDate(ActiveCell) = True Then _
Selection.EntireRow.Delete _
Else ActiveCell.Offset(1, 0).Select
Loop
End Sub
À l’aide de la fonction IsDate, vous pouvez vérifier si la cellule active contient une date. Si cette fonction renvoie la valeur True, il s’agit d’une cellule de date. Dans ce cas, marquez la ligne entière à l’aide de la propriété EntireRow et supprimez-la à l’aide de la méthode Delete .