ClearContents

Bonjour à tous,

J'ai un petit soucis avec "ClearContents" que je souhaite enchainer sur des onglets différents à la fermeture de mon fichier

En PJ mon fichier :

- Sur l'onglet Formulaire, le demandeur complète les zones en jaune

Puis en fonction des informations des cellules F26, F28, etc...

Ils doit compléter les zones vertes des onglets associés

- Une fois ceci fait, il enregistre et clique sur le bouton de l'onglet "Formulaire"

Ce bouton génère un mail en y associant le fichier Excel et le fait partir automatiquement

- A la fermeture et l'envoi du fichier, les zones en jaune sont effacées

Jusque là c'est OK

Mon problème est d'effacer également les cellules vertes sur les différents onglets

Je n'arrive pas à enchainer ces actions dans la formule :

'Button for Quitter le Formulaire

Sub QuitterFormulaire()

[champsObligatoires].ClearContents

Application.DisplayAlerts = False

ActiveWorkbook.Save

Application.Quit

Application.DisplayAlerts = True

End Sub

A savoir que j'utilise le gestionnaire de nom pour nommer un ensemble de cellule

Si vous pouvez m'aider

Merci beaucoup

Micka

Bonjour,

Déjà tes plages jaunes à effacer peuvent se limiter à : D10:D20, D24 et F26:F36.

C'est de nature à simplifier.

Et tu peux définir de la même façon les plages vertes à effacer pour chaque feuille.

Cordialement.

Bonjour,

Pour le principe :

Sub QuitterFormulaire()
Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        Select Case ws.Name
            Case "Formulaire": [champsObligatoires].ClearContents
            Case "Application 1": ws.Range("E4,E13,E21,E23,E25,E28,E31,E34,E36:E40").ClearContents
            Case "Application 2": ws.Range("E12,E14:E18,E20:E24").ClearContents
            Case "Application 3": ws.Range("E10,E12:E13").ClearContents
            Case "Application 4", "Application 6": ws.Range("E12,E14:E18,E20:E24").ClearContents
            Case "Application 5": ws.Range("E10,E12:E16,E18:E20").ClearContents
        End Select
    Next ws
    ActiveWorkbook.Save
    Application.Quit
End Sub

Bonjour,

Super, merci à tous les deux, ça fonctionne

J'ai juste rajouté une condition car les zones étaient effacées avant l'envoi du mail

Très bonne journée

Micka