Code lors de la mise à jour d'une cellule [Résolu]

[Prof_Matches]

Bonjour,

Voici ma question.

J'ai ma cellule F31 qui peut contenir deux données différentes (définies par la fonction de validation de données) soit TRAIN, soit VOITURE.
Si je choisis la valeur TRAIN pour cette cellule, je souhaite donner la valeur LOCOMOTIVE à une autre cellule : J25.
Si je change la valeur en VOITURE, je souhaite que la valeur de la cellule J25 devienne ROUE.

Quelqu'un à une idée ?

Une solution serait de mettre une formule SI dans la cellule J25, mais je ne veux pas car l'utilisateur peut faire un autre choix de valeur (qui de tiendrait plus compte de la valeur recommandée par le choix de la cellule F31.

[ZebreLoup]

Dans le code de la feuille en question :

Code :

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$F$31" Then
        If Target.Value = "TRAIN" Then Me.Range("J25").Value = "LOCOMOTIVE"
        If Target.Value = "VOITURE" Then Me.Range("J25").Value = "ROUE"
    End If
End Sub

[MarcelG]

Bonjour match, zebreloup, Bonjour le Forum,

Si je peux me permettre.
Sachant que la cellule F31 répond à une liste de validation de 2 valeurs, il est possible d'utiliser la méthode IIF.

D'où cette variante :

Code :

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
            If .Address <> "$F$31" Then Exit Sub
            Range("J25").Value = IIf(.Value = "TRAIN", "LOCOMOTIVE", "ROUE")
    End With
End Sub

[ZebreLoup]

Tout à fait. Et si ensuite tu as plus de 2 valeurs, il faudra mieux utiliser un Select Case plutôt que des If

[Prof_Matches]

Super !
Ça fonctionne.
Un grand merci à tout le monde.