VBA Excel: Supprimer les lignes suivant la sélection sans boucle Résolu

Question

Bonjour,

Je travaille sur Excel 2010 et j'aimerais tout simplement pouvoir créer une macro qui supprimera la ligne de la cellule sélectionnée ainsi que les 3 lignes suivantes sans utiliser de boucle.
Exemple: je me positionne en D8: la macro devra donc supprimer en mm temps les lignes 8, 9, 10 et 11.
Quelqu'un aurait une solution à me proposer?

Merci!

Abdel · Accepted Answer

Bonjour Adèle,

Si tu ne souhaites pas utiliser de boucle, tu peux utiliser le code suivant:

Sub suppr_ligne()Range(ActiveCell, ActiveCell.Offset(3, 0)).EntireRow.DeleteEnd Sub

C'est encore plus simple!

A+

prunety · Answer

Bonjour,
Essaye ceci :

Sub suppr_ligne()

 For i = 1 To 4
    ActiveCell.EntireRow.Delete
    Next i

End Sub

A=
Yves

VBA Excel: Supprimer les lignes suivant la sélection sans boucle

2 réponses

Newsletters