XL 2019 Effacer des cases completer

My<3 · 8 Novembre 2022

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 · 8 Novembre 2022

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 · 8 Novembre 2022

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

VB:

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

XL 2019 Effacer des cases completer

My<3

XLDnaute Junior

Lolote83

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

Discussions similaires