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
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
()
x