Sujet Précédent Sujet Suivant

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

Résolu/Fermé
Adèle - Modifié par Adèle le 24/04/2014 à 13:50
 Adèle - 24 avril 2014 à 14:08
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

Réponse 1 / 2
Abdel
24 avril 2014 à 14:06
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
24 avril 2014 à 14:08
Bonjour Abdel,

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

Merci encore!
0
Réponse 2 / 2
prunety Messages postés 74 Date d'inscription dimanche 12 novembre 2006 Statut Membre Dernière intervention 6 février 2015 4
24 avril 2014 à 13:29
Bonjour,
Essaye ceci :

Sub suppr_ligne()

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

End Sub

A=
Yves
0
Adèle
24 avril 2014 à 13:36
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 dimanche 12 novembre 2006 Statut Membre Dernière intervention 6 février 2015 4
24 avril 2014 à 13:44
Peut etre ! mais ca me parait etre la solution la plus simple
Bon codage !
0