XL 2019 Effacer des cases completer

[My<3]

Bonjour, j'ai une formule qui me cause problème dans un fichier pour effacer les informations inscrite dans le fichier. Je la call dans un bouton mais si je pouvais l'activer lors de la fermeture du fichier ca pourrais être génial.

Cette formule est en ereur et je ne comprends pas ce qu'elle a de pas ok

Private Sub ViderFormulaire()

Sheets("Feuil1").Range("A2,E26,G6,G7,G8,G17,H19,G12,H38,G46,G47").ClearContents

End Sub

 

[Lolote83]

Bonjour,
Formule testée chez moi et le contenu des cellules indiquées est bien effacé.
Un fichier exemple pour comprendre le phénomène peut-être ?
@+ Lolote83

 

[sylvanu]

Bonjour My, Lolote,
Pour exécuter une macro à la fermeture il faut utiliser Workbook_BeforeClose à placer dans ThisWorkbook.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ThisWorkbook.Activate
    Sheets("Feuil1").Range("A2,E26,G6,G7,G8,G17,H19,G12,H38,G46,G47").ClearContents
    ThisWorkbook.Save
    Application.Quit
End Sub