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

Résolu
Adèle -  
 Adèle -
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!
A voir également:

2 réponses

Abdel
 
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.Delete

End Sub

C'est encore plus simple!

A+
2
Adèle
 
Bonjour Abdel,

Merci pour ta réponse qui répond parfaitement à ma demande!

Merci encore!
0
prunety Messages postés 74 Date d'inscription   Statut Membre Dernière intervention   4
 
Bonjour,
Essaye ceci :

Sub suppr_ligne()

For i = 1 To 4
ActiveCell.EntireRow.Delete
Next i

End Sub

A=
Yves
0
Adèle
 
Bonjour et merci pour la réponse,

Après avoir testé le code, il fonctionne très bien, merci encore!
Mais existe-t-il une solution sans passer par une boucle??

Merci!
0
prunety Messages postés 74 Date d'inscription   Statut Membre Dernière intervention   4
 
Peut etre ! mais ca me parait etre la solution la plus simple
Bon codage !
0