Discussion :

[PhilGood11]

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 ,
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

[jfontaine]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[PhilGood11]

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 ?

[jfontaine]

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)

[PhilGood11]

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

[jfontaine]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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