Discussion :

[issoram]

Bonjour à tous,

Je voudrais associer une liste déroulante à chaque cellule d'une plage et empêcher la sélection de certains items pour ces listes. Est-ce possible?
Je m'en remets à vous car je ne sais pas trop par quel côté prendre le problème, et n'ai pas trouvé grand chose sur le sujet.

Par exemple pour une cellule donnée, j'aimerais avoir une liste de la sorte:

- Famille1
-- F1_ITEM1
-- F1_ITEM2
-- F1_ITEM3
- Famille2
-- F2_ITEM1
-- F2_ITEM2

et que l'utilisateur ne puisse sélectionner que les items en italique

Ou alors encore mieux (dans l'esprit de l'explorateur de projet VBA): A l'affichage on aurait :

- Famille1
- Famille2

et en cliquant sur une des familles, l'ensemble des items de la famille apparait
ex: après clic sur Famille1 on aurait:

- Famille1
-- F1_ITEM1
-- F1_ITEM2
-- F1_ITEM3
- Famille2

Je ne pense pas que ça soit possible via une liste de validation de données même si ça m'arrangerait car je ne suis pas très calé sur les listBox...

Voilà toute piste sera la bienvenue.

Merci d'avance.

[kiki29]

Salut, à titre d'info voir ceci

[issoram]

Merci Kiki, par contre ça me parait un peu lourd à mettre en place et je n'ai malheureusement pas forcément le temps requis.

Je préférerais rester sur des listes déroulantes et du coup sur le fait d’empêcher la sélection de certain items.

[78chris]

Bonjour

J'avais récupéré l'exemple ci-dessous sans doute sur un forum :

un onglet nommé liste avec dans

• une colonne les familles (C dans cet exemple) et dans cet exemple le nom de famille est un seul caractère
• dans une autre (A dans cet exemple) les produits rangés par ordre des familles : le nom du produit doit faire plus d'un caractère et commencer par le caratère de la famille.

trois noms :

• debut : =liste!$A$2
• racine : =DECALER(liste!$C$2;;;NBVAL(liste!$C:$C)-1)
• liste : =DECALER(liste!$A$2;;;NBVAL(liste!$A:$A)-1)

dans la validation la formule suivante (sachant qu'on part de la cellule A2) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(ET(NBCAR($A$2)=1;A2<>"");DECALER(debut;EQUIV(A2;GAUCHE(liste)*1;0)-1;;SOMME((STXT(liste;1;NBCAR(A2))=TEXTE(A2;"0"))*1));racine)

Dans la liste on choisit une famille puis on redéroule et on a les produits de la famille.

Edit :

J'ai refait le test avec familles F1, F2, F3 et produits commençant par F1 ou F2 ou F3
la formule est pour une liste en M5

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(ET(NBCAR($M$5)=2;M5<>"");DECALER(debut;EQUIV($M$5;GAUCHE(Liste;2);0)-1;;SOMME((STXT(Liste;1;NBCAR(M5))=TEXTE(M5;"0"))*1));Racine)

Si ce n'est pas clair, je posterai le classeur.

[issoram]

Merci 78chris mais je n'arrive pas à faire fonctionner ton exemple.

j'ai testé avec:

col A | col C
itemA1 | A
itemA2 | A
itemA3 | A
itemB1 | B
itemB2 | B

Dans la liste déroulante, je n'ai que les familles non dédoublonnées:
A
A
A
B
B

quand tu dis "on redéroule", tu fais comment?

[78chris]

Bonjour

En fait on déroule une première fois : la liste est celle des familles.
On déroule une seconde fois : la liste est celle des produits de la famille.

Je reviens poster l'exemple

[78chris]

Bonjour


Ci-joins l'exemple avec les 2 cas : l'un orienté plutôt compta avec des valeurs numériques, l'autre plus général.

A partir de là on peut décliner d'autres variantes...

[fring]

Bonjour,

Une autre solution éventuelle via un menu popup
Un petit dessin vaut parfois mieux qu'une longue explication --> voir exemple ci-joint.

[issoram]

Merci beaucoup Chris!

ok, il fallait que les items de niveau inférieur soit préfixés par le nom de l'item de niveau supérieur.
Je vais me pencher sur la formule.

Sinon une idée pour empêcher la sélection de certains items?

[78chris]

Bonjour

Dans ton 1er post l'interdiction semblait concerner la saisie d'item ne faisant pas partie de la famille. Ce que fait ce système à double détente.

Quel serait l'autre cas ?

[issoram]

Merci beaucoup à tous les 2 de vous être penchés sur le sujet.

Chris:

Dans ton 1er post l'interdiction semblait concerner la saisie d'item ne faisant pas partie de la famille. Ce que fait ce système à double détente.

Oui c'est bien ça, je relançais juste le sujet par curiosité pour savoir si c'était possible

Fring: Ta solution est, je trouve, très élégante, et je crois que je vais l'adopter

Je laisse le post en non résolu jusque à la fin de la journée, au cas où quelqu'un saurait comment empêcher la saisie de certains items. Mais je le répète ce n'est que pure curiosité.

Merci encore à vous 2.

[78chris]

Bonjour

Soit une plage nommée Saisie où doit se faire le contrôle

Cette plage a une liste de validation classique avec liste famille et produits
- Famille1
-- F1_ITEM1
-- F1_ITEM2
-- F1_ITEM3
- Famille2
-- F2_ITEM1
-- F2_ITEM2

Une autre liste nommée Familles contient les familles
- Famille1
- Famille2

Dans le module de la feuille concernée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public CControl As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
If CControl = True Then CControl = False: Exit Sub
    If Intersect(Target, Range("saisie")) Is Nothing Then Exit Sub
    If Target.Rows.Count > 1 Then Exit Sub
    If Target.Value = "" Then Exit Sub
    For Each C In Range("Familles").Cells
        If Target.Value = C.Value Then
            MsgBox "Valeur non autorisée"
            CControl = True
            Application.Undo
            Exit For
        End If
    Next C
End Sub

[issoram]

ok merci bien Chris

Bonne soirée