A voir également:
- Effacer simultanément lignes de 2 feuilles d'un même classeur
- 2 comptes whatsapp - Guide
- Que doit-il faire pour effacer les traces de sa navigation ? - Guide
- Effacer les cookies - Guide
- Word numéro de page 1/2 - Guide
- Site de vente en ligne particulier - Guide
2 réponses
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
523
21 juil. 2016 à 13:37
21 juil. 2016 à 13:37
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.
A+
Sub Supprimer_Lignes()
Worksheets("Feuil1").Range(Selection.Address).EntireRow.Delete
Worksheets("Feuil2").Range(Selection.Offset(30).Address).EntireRow.Delete
End Sub
A+
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
523
20 juil. 2016 à 08:11
20 juil. 2016 à 08:11
Bonjour,
A+
Sub Supprimer_Lignes()
Worksheets("Feuil1").Range(Selection.Address).EntireRow.Delete
Worksheets("Feuil2").Range(Selection.Address).EntireRow.Delete
End Sub
A+
21 juil. 2016 à 13:52