Faire disparaitre une partie d'un document

Bonjour à tous!!

Je vous explique mon problème. J'ai un fichier qui me sert de base. Je le remplie et j'enregistre sous.

J'aimerais savoir si c’était possible de faire disparaitre une partie du document si elle n'est pas remplie, lors de l'enregistrement sous?

Quelqu’un à une idée? Mon fichier est en PJ

Merci.

A bientôt

Bonjour,

Met le code suivant dans le module ThisWorkbook et teste l'enregistrement :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim plage As Range
    Set plage = Range("R32:AG39")
    If Application.CountA(plage) = 0 Then Range("R30:AG39").Delete
End Sub

Bonjour Raja,

J'ai testé ta formule, cependant , dans cette partie que je souhaite faire disparaitre, il y a des formules de calcul automatique et dans mon fichier il y a pleins d'autres onglets.

Puis je adapter ta formule à mon cas précis? en indiquant l'onglet sur lequel je veux que cela se produise (sachant qu'en plus cet onglet est dupliquer 6 fois car j'ai un tableau par jour du lundi au samedi soit 6 tableaux)

Je ne peux pas mettre en PJ mon fichier tel quel mais j’espère que ma demande est plus précise.

Merci encore

Re,

Essaye comme ça en précisant le nom de l'onglet dans lequel la macro doit travailler :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim plage As Range
    Set plage = Sheets("Feuil1").Range("R32:AG39")
    If Application.CountA(plage) = 0 Then plage.Delete
End Sub

Merci pour vos réponses.

J'ai testé et ça marche parfaitement.

merci! a bientot