XL 2013 Réinitialiser les donnés d'un tableau à l aide de VBA

[elouali]

Bonjour tt le monde

je voudrai réinitialiser les donnés d un tableau par suppression des lignes, est ce qu'il y an code VBA qui permet de supprimer des lignes non vides,
et laisser les cases colorés voir photo ci dessous et le fichier ci joint

Nb: quant j clique sur le bouton DEVIS une nouvelle ligne insérée

 

[Staple1600]

Bonsoir le fil,

Une possibilité (qu'il faudra sécuriser - mieux vaut éviter de lancer la macro plus d'une fois)

Sub SuppressionLignes()
Dim dL&: dL = Cells(Rows.Count, 1).End(3).Row
Rows("21:" & dL - 4).Delete xlUp
End Sub
Sub SuppressionLignes_light()
Rows("21:" & Cells(Rows.Count, 1).End(3).Row - 4).Delete xlUp
End Sub

 

[elouali]

Bonjour

ça marche très bien merci bcp ,concernant le lancement de macro plusieurs fois est ce qu'il y a un msg d'erreur qui bloque ça ?

 

[Staple1600]

Bonsoir le fil, elouali

elouali
Fais le test, lances la macro plusieurs fois (sur le fichier exemple du fil)
Tu verras où se situe le problème

 

[sylgui2002]

bonjour
voici un autre code que j'utilise perso
If MsgBox("voulez vous vraiment supprimer les données entrées ?", vbYesNo, "demande de confirmation") = vbYes Then
Sheets("baseadrien").Range("A3:e6845").ClearContents ' cela correspond a la zone que je veux supprimer
End If
Exit Sub
If MsgBox("voulez vous vraiment supprimer les données entrées ?", vbYesNo, "demande de confirmation") = vbNo Then
Exit Sub

 

[elouali]

C'est Résolu merci beaucoup @Staple1600 et @sylgui2002