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!

2 réponses

  1. 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
    1. Adèle
       
      Bonjour Abdel,

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

      Merci encore!
      0
  2. prunety Messages postés 87 Statut Membre 4
     
    Bonjour,
    Essaye ceci :

    Sub suppr_ligne()

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

    End Sub

    A=
    Yves
    0
    1. 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
    2. prunety Messages postés 87 Statut Membre 4
       
      Peut etre ! mais ca me parait etre la solution la plus simple
      Bon codage !
      0