Mettre blanc cellule en quittant le fichier

Bonjour à tous,

Dans mon fichier, j'ai plusieurs cellules avec des listes déroulantes en cascade.

J'ai réussi a faire un "reset" des cellules dépendantes des unes des autres avec un code vba sauf la première.

J'aimerais que ma première cellule (liste deroulante) se vide de son contenu (sans annuler la fonction de liste) en quittant le fichier afin qu'à la réouverture tout soit à "blanc"

Merci pour votre aide

Maxlys

Bonjour,

Perso ... ma boule de cristal est en panne ...

Pourquoi ne pas joindre ton fichier ... justement avec cette macro qui ... a priori ... abesoin d'une petite modif ...

Bonjour James007,

Je ne peux malheureusement pas envoyer le fichier car il contient des références, tarifs etc...interne à mon job.

Voici la macro qui me permet de "vider" mes cellules ( ici dans l'exemple lorsque je place mon curseur sur B19, toutes les cellules listées en dessous se "vide", sauf la B19.

Je voudrais soit à l'ouverture, soit a la fermeture que cette cellule B19 se vide aussi afin de retrouver un fichier "vierge" .

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("B19")) Is Nothing Then

Range("B21").Value = ""

Range("E21").Value = ""

Range("A24").Value = ""

Range("A25").Value = ""

Range("A26").Value = ""

Range("A27").Value = ""

Range("L21").Value = ""

End If

End Sub

Merci

Maxlys

Re,

Merci pour ta macro secrète ...

A tester une petite modif ...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$B$19" Then Exit Sub
    Range("B21").Value = ""
    Range("E21").Value = ""
    Range("A24").Value = ""
    Range("A25").Value = ""
    Range("A26").Value = ""
    Range("A27").Value = ""
    Range("L21").Value = ""
    Target.ClearContents
End Sub

En espèrant que cela t'aide ...

Bonjour,

Un essais en pièce jointe avec 3 listes déroulante liées + suppression des données à l'ouverture

Slts

Bonjour,

Merci James007 de ton retour mais cela ne fonctionne pas sur mon fichier ( ce n'est pas les macros secrètes mais le contenu du fichier )

Boss_68, merci c'est exactement ce que je désire.

Par contre j'ai recopié le code sur (ThisWORBOOK) en mettant mes valeurs Feuille 4 pour moi et case B8, mais il me lance un débloquer sur la ligne: (voir photo jointe)

Worksheets("Feuil4").Activate

Je ne sais pas d'où provient cette erreur, aurais tu une piste ?

Merci

Maxlys

Bonjour

A la place de ("Feuil4") mets le nom ("fiche offre ......") pointillée c'est la partie caché sur ton image

Slts

Merci pour le retour

J'ai mis le nom du fichier à la place de Feuil4, plus de debogage.

Mais a l'ouverture du fichier ma cellule B8 ne se "vide" pas.

Un indice pour ce non fonctionnement ?

Je découvre le VB, compliqué pour moi.

Slts

Maxlys

Re

Essaye de modifier ta macro comme ça! voir image jointe

Ps: C'est toujours compliqué sans fichier

Re Ps: pas oublier de remplacer Feuil1 par le nom de ton onglet dans ThisWorkbook

Slts

Grand merci Boss_68, tout est OK ça fonctionne nickel.

Bonne soirée