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

elouali

XLDnaute Nouveau
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

1573570275101.png
 

Pièces jointes

  • moulinette_RIDEAU_V5.xlsm
    331.8 KB · Affichages: 9

Staple1600

XLDnaute Barbatruc
Bonsoir le fil,

Une possibilité (qu'il faudra sécuriser - mieux vaut éviter de lancer la macro plus d'une fois)
VB:
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
 

sylgui2002

XLDnaute Nouveau
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
 

Discussions similaires