Supprimer toutes les lignes endessous d'une
drumer57
Messages postés
72
Date d'inscription
Statut
Membre
Dernière intervention
-
PlacageGranby Messages postés 402 Statut Membre -
PlacageGranby Messages postés 402 Statut Membre -
Bonjour,
J'ai un petit soucis. j'ai créé une feuille où j'aimerais supprimer tout les composants d'un tableau une fois l'impression terminé, sauf les intitulés. Je ne sais pas trop comment faire pour dire que à partir d'une certaine ligne , ca supprime tout en dessous.
J'ai un petit soucis. j'ai créé une feuille où j'aimerais supprimer tout les composants d'un tableau une fois l'impression terminé, sauf les intitulés. Je ne sais pas trop comment faire pour dire que à partir d'une certaine ligne , ca supprime tout en dessous.
2 réponses
-
-
Bonjour
Voila une suggestion.
Intégrer l'impression au code au lieu de passer par les menu.
Demander si l'impression est réussi (car si on annule l'impression le code delete les lignes quand même).
Sub Impression() Application.Dialogs(xlDialogPrint).Show If MsgBox("Est-ce que l'impression s'est bien déroulé ?", vbYesNo, "Demande de confirmation") = vbYes Then Rows("2:3").Delete End If End Sub
