A voir également:
- Effacer simultanément lignes de 2 feuilles d'un même classeur
- Comment faire un livret avec des feuilles a4 - Guide
- Comment effacer une page sur word - Guide
- Effacer les données de navigation - Guide
- Partage de photos en ligne - Guide
- Effacer les cookies - 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
525
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
525
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