Comment vider une cellule après une validation

Bonjour ,
Voici mon problème , je souhaite faire un fichier de calcul d'offres de prix.
Pour ce faire je fais appel dans une colonne (1) à un menu déroulant pour valider un choix ( +-10 lignes de produits) ensuite dans la colonne (2) fonction du choix col1 , je propose une liste déroulante qui est différente en fonction des produits , jusque là tout est OK.
Mais comme le disais Napoléon , c'est ici que cela ce corse :lol:,
Lorsque je change de choix dans la colonne (1) ou efface la cellule, la colonne 2 ne se met pas à jour ..d'ou risque d'erreur si oubli de refaire le bon choix.
Bref je cherche une solution simple pour remédier à ce problème et je tourne en rond !

Si qlq' un a la solution ?
Merci

Bonjour,

Pour remettre a blanc la cellule B1 quand modification de la cellule A1 on peux utiliser l’évènement Change de l'objet Worksheet (Feuille de calcul)

Code:

---

1 2 3 4 5

Private Sub Worksheet_Change(ByVal Target As Range)   If Target.Address(False, False) = "A1" Then Range("B1").Value = ""   End Sub

---

J'ai fait l'essai mais rien ne se passe ??
Ou je me plante dans la gestion de la macro qui doit tourner en permanence ?

Le code proposé doit être copié au niveau de la feuille contenant la liste de validation. (a moins que la liste déroulante soit un objet activex ou formulaire)

Merci pour aide , mais manisfestement mes connaissances sont mimitées car ne ne parviens pas au résultat voulu, je joins un petit exemple pour plus de compréhension.

Principe ; premier choix d'un produit ( référence à une liste ds exemple 10 produits)
Deuxième choix , en fonction du type de produit , liste de caractéristiques différentes .

Merci pour votre aide

Le code était bien placé, une petite adaptation pour que ça fonctionne sur toute les cellules de ton tableau

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_Change(ByVal Target As Range)   If Not Intersect(Me.Range("A4:A10"), Target) Is Nothing Then Target.Offset(0, 1).Value = "" End If   End Sub

---