Macro pour supprimer des lignes dans une sélection, Excel VBA

Si vous souhaitez supprimer des lignes dans une zone donnée dont les cellules de la colonne A sont vides ou contiennent la valeur 0, sélectionnez la zone et démarrez la macro .

Sub MarqueSuppressionDeLignes ()
Dim i As Integer
Sheets ("Feuil9").Activate
For i = Selection.Cells (Selection.Cells.Count) .Row _
To Selection.Cells (1). Row Step -1
   If Cells (i, "A"). Value = 0 Or _
      IsEmpty (Cells (i, "A"). Value) Then Rows (i) .Delete
Next i
End Sub

Dans le code  ci-dessus, vous déterminez d’abord le nombre de cellules marquées et enregistrez-le dans la variable i. Ce nombre déterminé fait partie de la boucle suivante, qui parcourt le marquage de bas en haut. Configurez une boucle For To où vous commencez dans la sélection à la dernière cellule, puis progressez avec la taille de pas -1 jusqu’au début de la sélection. Vous déterminez le début du marquage avec l’instruction Selection.Cells (1).Row. Vous pouvez vérifier les cellules individuelles du marquage à l’aide de la propriété Cell s, où la variable i représente la ligne et la lettre A symbolise la colonne A. Tous les deux Liez les conditions de suppression à l’opérateur Ou. Si l’une des deux conditions de suppression s’applique, supprimez la ligne correspondante à l’aide de la méthode Delete.

Si vous voulez savoir combien de lignes vous avez supprimées de la sélection, ajoutez quelques lignes à la macro .

Sub MarqueSuppressionLignes ()
Dim i As Integer
Dim zz As Integer
zz = 0
Sheets ("Feuil3"). Activate
For i = Selection.Cells (Selection.Cells.Count) .Row _
To Selection.Cells (1). Row Step -1
   If Cells (i, "A"). Value = 0 Or _
    IsEmpty (Cells (i, "A"). Value) Then Rows (i) .Delete: _
   zz = zz + 1
Next i
MsgBox " Vous avez supprimé " & zz & "Lignes!"
End Sub

 

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