Macro utile pour supprimer les lignes de date dans un fichier, Excel VBA

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 .

S’abonner
Notifier de
0 Commentaires
le plus ancien
le plus récent le plus populaire
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x