Liste déroulante sauf si

J

JHA

XLDnaute Barbatruc

• 25 Juin 2017

• #2

Bonjour à tous,

A essayer,

JHA

 

Pièces jointes

• Classeur1.xls

  26 KB · Affichages: 36

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 25 Juin 2017

• #3

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)

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 25 Juin 2017

• #4

Bonjour

si VBA accepté

VB:

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]

 

Pièces jointes

• ListeDeValidation ou pas.xlsm

  14.6 KB · Affichages: 19

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 25 Juin 2017

• #5

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

 

Vote positif 0 Vote négatif

R@chid

XLDnaute Barbatruc

Supporter XLD

• 25 Juin 2017

• #6

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


Cordialement

 

Pièces jointes

• Gourdin_Oui-Non.xlsx

  13.2 KB · Affichages: 31

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 25 Juin 2017

• #7

Merci R@chid

Je vais adapter ta solution à mon projet initial.

 

Vote positif 0 Vote négatif