Effacer simultanément lignes de 2 feuilles d'un même classeur

Naza -  
 Naza -
Bonjour,

J'aimerais une macro qui ferait que si par exemple sur la feuille 1, je sélectionne les lignes 2 et 3 à supprimer, elle supprime aussi les lignes 2 et 3 de la feuille 2. Merci d'avance!!!

2 réponses

  1. Gyrus Messages postés 3360 Statut Membre 526
     
    Si j'ai bien compris, les lignes à supprimer en feuille 2 sont décalées de 30 lignes par rapport celles sélectionnées en feuille 1.

    Sub Supprimer_Lignes()
    Worksheets("Feuil1").Range(Selection.Address).EntireRow.Delete
    Worksheets("Feuil2").Range(Selection.Offset(30).Address).EntireRow.Delete
    End Sub

    A+
    1
    1. Naza
       
      Merci! C'est ça! Cdt!
      0
  2. Gyrus Messages postés 3360 Statut Membre 526
     
    Bonjour,

    Sub Supprimer_Lignes()
    Worksheets("Feuil1").Range(Selection.Address).EntireRow.Delete
    Worksheets("Feuil2").Range(Selection.Address).EntireRow.Delete
    End Sub


    A+
    0
    1. Naza
       
      Merci Gyrus!!!

      Excuse-moi de t'importuner, le même problème mais seulement que cette fois-ci, quand les lignes 1 et 2 sont supprimées sur feuille1, sur feuille 2 ce sont lignes 31 et 32.
      0