Forcer la valeur d'une cellule en fonction d'une autre

[bobjazz]

Bonjour,
Je voudrais savoir si c'est possible avec Excel de forcer la valeur d'une cellule en fonction d'une autre.
Je m'explique : dans la cellule A1, j'ai une liste de choix, "10, 30, 80 ou 100", après dans la cellule D1, j'ai une autre liste de choix, "Gagnée, Perdue, Déclinée ou En attente".
Et mon souhait serait que si je mets "Gagnée ou Perdue" dans D1, je force A1 à être "100" même si j'ai mis "30" ou une autre valeur avant.
Merci d'avance

Bobjazz

 

[Dranreb]

Re : Forcer la valeur d'une cellule en fonction d'une autre

Bonjour.
Oui. C'est possible.

" Avez-vous l'heure ?
- Oui, j'ai l'heure.
- Pouvez vous me la donner ?
- Oui je peux vous la donner."

Trève de plaisanterie, je vous l'aurais écrite votre Sub Worksheet_Change dans votre classeur joint.
À défaut, prenez cela comme une piste.

À +

 

[Dull]

Re : Forcer la valeur d'une cellule en fonction d'une autre

Salut bobjazz, le Forum

peut être comme cela code à coller dans le Module de la Feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [D1]) Is Nothing Then
    If Target = "Gagnée" Or Target = "Perdue" Then Target.Offset(, -3) = 100
End If
End Sub

Edition: Salut Dranreb 🙂
Bonne Journée

 

[bobjazz]

Re : Forcer la valeur d'une cellule en fonction d'une autre

Bonjour Dranreb et Dull

Dull cela fonctionne, j'ai modifié dans le code [D1] en mettant [D1😀3000] pour mes besoin.

Encore merci et surtout de votre disponibilité.
Bon week-end

Bobjazz