Discussion :

[gilberte333]

Bonjour à tous

Malgré tous les posts et informations que j'ai pu trouvé sur les listes déroulantes en cascade, je n'arrive pas à adapter les différentes solutions à mon cas!

Il est simple pourtant je pense :
J'ai une liste d'ateliers, une liste de produits utilisés dans ces ateliers et une liste des substances contenues dans ces produits.

Je peux nommer mes listes avec DECALER (le nombre d'items varie selon les cas et les utilisations du fichier) mais après ça coince.

J'arrive à faire 2 niveaux de liste, à savoir ateliers puis uniquement les produits utilisés dans l'atelier choisi mais je n'arrive pas à faire la même chose pour les substances.

Si vous avez des solutions, je suis preneuse!

Merci beaucoup d'avance

[Supermichou]

Bonjour,

serait-il possible d'avoir un exemple pour faciliter la réponse ?

Michel

[gilberte333]

Bonjour et merci de vous intéresser à mon problème.

Voici un petit exemple avec à peu près la structure de mon fichier et ce que j'aimerais obtenir comme résultats.

Dans un premier onglet, j'ai donc la liste des substances, des produits et des ateliers. Dans un second onglet, j'ai besoin de sélectionner un atelier puis de pouvoir choisir un produit et les substances qui le compose pour faire quelques petits calculs dessus.

Merci

[QuestVba]

Bonjour


J'ai créé dans feuille Inventaire via Insertion > Nom

Base

Code :

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

=Inventaire!$A$3:$C$12

Produit

Code :

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

=DECALER(Inventaire!$I$4;;;NBVAL(Inventaire!$I:$I)-1)

Substance

Code :

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

=DECALER(Inventaire!$F$4;;;NBVAL(Inventaire!K:K)-1)

AtPro

Code :

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

=DECALER(Inventaire!$H$4;;;NBVAL(Inventaire!$H:$H)-1)

Code dans la feuille inventaire

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect([base], Target) Is Nothing And Target.Count = 1 Then
   [A4:d12].Sort Key1:=[a4], Key2:=[b4], Key3:=[c4]
   [A3:d12].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[f1], Unique:=True
   [A3:d12].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[h3:i3], Unique:=True
 End If
End Sub

Pour la feuille Evaluation (Données > Validation)

A3 : atelier

Code :

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

=Substance

B3 : Produit

Code :

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

=DECALER(Produit;EQUIV(A3;AtPro;0)-1;0;NB.SI(AtPro;A3))

C3 : Substance

Code :

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

=DECALER(INDEX(base;;3);EQUIV(A3;INDEX(base;;1);0)-1+EQUIV(B3;DECALER(INDEX(base;;2);EQUIV(A3;INDEX(base;;1);0)-1;);0)-1;0;SOMMEPROD((INDEX(base;;1)=A3)*(INDEX(base;;2)=B3)))

[gilberte333]

Merci pour cette réponse!

Mais je ne sais pas si elle me correspond tout à fait... Je m'explique : je dois pouvoir ajouter et insérer des lignes dans mon inventaire et surtout, il n'y a d'autres colonnes à droite et à gauche qui risquent de gêner.

Est il vraiment nécessaire de décomposer ma liste ? ça m'embête un peu ^^

(Et il n'est pas nécessaire de retirer les doublons dans la liste.)

[Supermichou]

re-

voici ma proposition


Michel

[gilberte333]

Merci beaucoup! ça a l'air d'être exactement ce que je cherchais!!
J'essaye de l'appliquer dans mon tableur et je vous dis!

Merci encore

[gilberte333]

J'ai un peu modifié les formules pour que ça colle mieux à mon cas mais ça fonctionne plutôt bien !

J'ai juste une valeur qui délire complètement, les choix proposés ne sont pas les bons mais je pense qu'il faut que je voie s'il n'y a pas un petit soucis dans mon inventaire.

Merci beaucoup de votre aide!