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!!!

A voir également:

2 réponses

Réponse 1 / 2
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
Naza
 
Merci! C'est ça! Cdt!
0
Réponse 2 / 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
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