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

Staple1600

XLDnaute Barbatruc

• 12 Novembre 2019

• #2

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

 

Vote positif 0 Vote négatif

E

elouali

XLDnaute Nouveau

• 13 Novembre 2019

• #3

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 ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 13 Novembre 2019

• #4

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

 

Vote positif 0 Vote négatif

S

sylgui2002

XLDnaute Nouveau

• 14 Novembre 2019

• #5

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

 

Vote positif 0 Vote négatif

E

elouali

XLDnaute Nouveau

• 14 Novembre 2019

• #6

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

 

Vote positif 0 Vote négatif