Liste déroulante sauf si

[gourdin]

Bonjour

Voir Fichier joint

En C3 possibilité de choisir "OUI" ou "NON" dans une liste déroulante
Sauf si B3 = 5 car dans ce cas doit nécessairement s'afficher en C3 "OUI" sans possibilité de choisir dans la liste déroulante (pas de possibilité de choisir "NON")

Merci

 

[JHA]

Bonjour à tous,

A essayer,

JHA

 

[gourdin]

Merci JHA

Mais il faut obligatoirement que la valeur de C3 soit "OUI" si B3 = 5 et rendre alors impossible la valeur "NON"

En effet avec ta solution par exemple :
- Je saisis "1" en B3 puis je choisis dans la liste déroulante "NON" en C3
- Puis je choisis "5" en B3, C3 reste à "NON" alors qu'il faudrait que la valeur en C3 passe automatiquement à "OUI" (sans avoir à choisir dans une liste déroulante)

 

[Si...]

Bonjour

si VBA accepté

Private Sub Worksheet_Change(ByVal R As Range)
  If R.Address = [B3].Address Then
    R(1, 2).Validation.Delete
    If R = 5 Then
      R(1, 2) = "OUI"
    Else
      With R(1, 2)
        .Validation.Add 3, 1, 1, "=liste"
        .Value = "": .Select
      End With
    End If
  End If
End Sub

[/code]

 

[gourdin]

Merci Si...
Même si ton code VBA fonctionne bien j'aurais préféré une solution sans.

 

[R@chid]

Bonjour @ tous,
une solution astucieuse si cela t'arrange.


Cordialement

 

[gourdin]

Merci R@chid

Je vais adapter ta solution à mon projet initial.