Bonjour.
je veux utiliser le bouton Réinitialiser pour effacer toute modifications (contenu et format) apportées à la feuille « FACTURE » ;
j’ai peur d’effacé par inadvertance une ligne ou une colonne;
c’est à dire avoir un modèle type
Posté le 5 novembre 2023, 13:48Bonjour momo,
ton fichier en retour : https://www.cjoint.com/c/MKikOfHGFKj
fais des essais ; code VBA de Module10 (10 lignes) :
Sub EffaceDonnées()
Dim Supp
Supp = MsgBox("Voulez-vous effacer les données du tableau Facture", _
vbYesNo + vbQuestion + vbDefaultButton2, "Confirmation de suppression")
If Supp = vbNo Then Exit Sub
Application.ScreenUpdating = False
Worksheets("Facture").[E5, F7, G7, C16:E55] = Empty
Application.ScreenUpdating = True
MsgBox "Toutes les colonnes ont été effacées."
End Sub
rhodo
Posté le
https://www.cjoint.com/c/MKfmUSLiBsC
– momo39 5 novembre 2023, 18:22