Supprimer toutes les lignes endessous d'une

Fermé
drumer57 Messages postés 77 Date d'inscription samedi 18 octobre 2014 Statut Membre Dernière intervention 27 mars 2021 - 26 nov. 2014 à 16:00
PlacageGranby Messages postés 393 Date d'inscription mercredi 26 mars 2014 Statut Membre Dernière intervention 7 mars 2019 - 26 nov. 2014 à 16:25
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.
A voir également:

2 réponses

drumer57 Messages postés 77 Date d'inscription samedi 18 octobre 2014 Statut Membre Dernière intervention 27 mars 2021 1
26 nov. 2014 à 16:22
J'ai trouvé
0
PlacageGranby Messages postés 393 Date d'inscription mercredi 26 mars 2014 Statut Membre Dernière intervention 7 mars 2019 26
26 nov. 2014 à 16:25
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
0