Liste déroulante

[enzo_s]

Bonjour à tous !

Je cherche une solution pour que dans ma liste déroulante (yes,No) ci-dessous Ci la première est Yes l'autre sera automatiquement No et inversement.

L’idée est qu'elle ne soit jamais les mêmes

Merci encore !

From 3.6.x to Everest 16.6.x :	Yes
From Denali 16.x.x to Everest 16.6.x :	No

 

[Robert]

Bonjour Enzo, bonjour le forum,

Pas clair ton histoire !?...
Liste déroulante =
- Liste de validation de données dans une cellule ?
- Liste déroulante placée dans un onglet issue de la boîte a outils Contrôles de formulaire ?
- ComboBox placée dans un onglet issue de la boîte à outils Contrôles ActiveX ?
- Combobox placé dans une UserForm ?

En fonction du choix la solution est différente !...

 

[enzo_s]

Salut Robert,

J'ai une liste déroulante (validation de données) qui Yes et No

Exemple :

E12=From 3.6.x to Everest 16.6.x :
E13=From Denali 16.x.x to Everest 16.6.x :

F12=Validation de données liste déroule (yes ou No)
F13=Validation de données liste déroule (yes ou No)

Idée est que quand F12=Yes la cellule F13=No et inversement.

Je souhaite qu'il y a jamais les deux cellules en F12 et F13 avec deux fois Yes ou deux fois No, ci lune est yes l'autre et No

Je pense qu'il ne faut pas passer par une liste déroulante pour le faire.

Merci de ton aide

 

[Robert]

Re,

À adapter et à placer dans le composant VBA de l'onglet concerné :

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Range("F12:F13")) Is Nothing Then Exit Sub
Select Case Target.Address
    Case "$F$12"
        Application.EnableEvents = False
        Range("F13") = IIf(Target.Value = "oui", "non", "oui")
    Case "$F$13"
        Application.EnableEvents = False
        Range("F12") = IIf(Target.Value = "oui", "non", "oui")
End Select
Application.EnableEvents = True
End Sub

 

[enzo_s]

Çà fonctionne, MERCI Robert !