Résolu - Etendre une validation par liste

[Victor21]

Bonjour à tous.

Je ne trouve pas de solution simple pour étendre mes deux validations par liste.
Le problème est que ces validations sont réciproques, et donc que la liste générée pour une des cellules dépend du choix dans l'autre, et vice-versa.
Ca fonctionne pour une paire de cellules, mais comment généraliser pour les autres paires.

Un exemple sera sans doute plus clair que ces explications.

D'avance merci à qui voudra bien s'intéresser à ce cas.

 

[Compte Supprimé 979]

Re : Etendre une validation par liste

Salut Victor21,

Il suffit de sélectionner toutes les cellules pour lesquelles tu veux ta liste de validation
Ensuite => Données -> Validation
Excel te demande si tu veux étendre ta validation de données, il suffit de répondre OUI

A+

 

[James007]

Re : Etendre une validation par liste

Bonjour,

Je ne vois pas ce qui pourrait causer comme ennui ... une simple copie ...?

voir fichier joint ...

A +
🙂

Edit : Salut Bruno 🙂

 

[Victor21]

Re : Etendre une validation par liste

Bonjour, Bruno, James.

Merci de vous intéresser à ma question.
Si je fais comme vous dites, les listes de validation ne sont pas mises à jour, et en sélectionnant Louis par exemple en E4, après Alain en E3, je peux lui attribuer toutes les matières que Alain enseigne.
C'est là que réside le problème...
Je ne peux quand même pas créer autant de ListeC et de ListeN qu'il y a de possibilités...

 

[Victor21]

Re : Etendre une validation par liste

Re,

Je pense avoir trouvé en rendant dynamiques les noms Choix1 et Choix2 avec l'événement selection change de la feuille.
Je teste et vous tiens informé.

 

[Victor21]

Re : Etendre une validation par liste

Re,

Je suis parvenu à mes fins avec :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("MLu,MMa")) Is Nothing Then
Selection.Name = "Choix1"
End If
If Not Intersect(Target, Range("PLu,PMa")) Is Nothing Then
Selection.Name = "Choix2"
End If
End Sub
Merci en tous cas.


NON !!!
Ca coince encore.

 

[James007]

Re : Etendre une validation par liste

Re,

Si je peux me permettre un commentaire, il me semble que ton problème se situe au niveau des listes de validation que tu veux rendre dynamiques ...

La solution serait pour les langues et pour les profs d'avoir des listes de validation dynamiquement mises à jour par ton tableau de compétences ...

A +
🙂

 

[Victor21]

Re : Etendre une validation par liste

Merci, James.

J'ai réussi à rendre dynamiques mes listes en modifiant Choix1 et Choix2 auxquelles elles se réfèrent :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Union(Range("MLu"), Range("MMa"), Range("MMe"), Range("MJe"), Range("MVe"), Range("MSa"))) _
       Is Nothing Then Selection.Name = "Choix1"
    If Not Intersect(Target, Union(Range("PLu"), Range("PMa"), Range("PMe"), Range("PJe"), Range("PVe"), Range("PSa"))) _
       Is Nothing Then Selection.Name = "Choix2"
End Sub

Ca, c'est fait.
🙂

Edit : Résolu.
J'ai transféré mes feuilles dans un autre classeur, et tout semble fonctionner comme je le souhaitais.
Encore une fois, Merci à vous.