Liste cascade 3 niveaux, plusieurs critères, plusieurs résultats Résolu/Fermé

Question

Bonjour, 

J'ai une liste de matériaux classée par catégories et sous catégories. Je cherche à faire une liste déroulante des matériaux correspondants à 2 critères texte (catégorie et sous catégorie).
J'ai réussi à mettre en place mes 2 listes déroulantes de choix : liste 1 = les catégories ; liste 2 = les sous catégories correspondant à la catégorie choisie en liste 1.
Mais voila je n'arrive pas à mettre en place cette troisième liste en fonction des 2 premières!
Cela fait 3 jours que je cherche et que j'essaye toutes les solutions proposées sur le net (à base de Index, Decaler, RecherheV, TCD ...), mais je n'arrive pas à l'adapter à ma problématique! Auriez-vous une solution à me proposer svp?
Si vous avez d'autres idées que les listes en cascades... notamment quelque chose qui se ferait sur une seule cellule... je suis preneuse!

Pour info je suis sur Excel 2007...

Merci

Vaucluse · Answer

Bonjour
il y a sans doute des solutions, mais pour pouvoir les proposer, il faudrait disposer de la configuration de vos données de départ!
pouvez vous mettre un fichier (même bidonné si confidentialité) à disposition sur:
https://www.cjoint.com/
et revenir ici coller le lien donné par le site
crdlmnt 
 
Errare humanum est, perseverare diabolicum

Nadège · Answer

Voila un fichier d'exemple pour présenter ma structure
http://cjoint.com/?0AqozI8qkWs
Merci

Vaucluse · Answer

Bonjour
quelques réponses, car je ne comprend pas tout dans votre retour:

Rassembler par catégorie
oui, pour pouvoir alimenter le menu déroulant correspondant il faut que soient groupés les codes de la feuille PrixMTX identiques en A et B
voyez par exemple la ligne 31 du modèle que je vous ai retourné et qui devrait se retrouver en ligne 27

Automatiser le nommage de la,colonne C de PrixMTX
????? je ne vois pas ce que vous voulez, cette colonne compte des informations qui n'existent nulle part ailleurs. Comment faire autrement que de les entrer au clavier?
Pouvez vous complèter vos explications?.. et surtout me dire avec ça ce que vous voulez afficher en E de >SDPvierge avec ces infos

Problème référence unique décalée
Ça m'avait échappé;Le problème vient du champ nommé "Champ" (que j'ai utilisé dans la formule, qui commence en ligne 7) alors que les colonnes de recherche (TCD..) commencent en ligne 6. Revoyez le nom du champ en ligne 6

En complément

Si vous le voulez, on peut construire la feuille SDPvierge de façon à ce que les formules en E ne soient jamais détruites.
Le principe:

_placer la validation de l'info de E en colonne C au lieu de E
_formater la police de la colonne C de façon à ce que les valeurs affichées ne soient pas visibles
_modifier la formule en E pour qu'elle affiche automatiquement > soit la valeur trouvée si réf unique, >soit la valeur affichée en C
_ et pour être complet, placer un code VBA dans le feuille qui efface les valeurs de la colonne C lorsqu'on change une valeur en A ou B, de façon à ce que d'éventuelles valeurs précédentes soient effacée en cas de changement ces références
Si vous souhaitez mettre ça au point, mettez à jour le fichier en fonction des remarques ci dessus et retournez le moi

A vous lire

Crdlmnt

Vaucluse · Answer

... site de ma réponse précédente 
Après réflexion, je croit comprendre ce que vous voulez faire en colonne C, soit donc composé les libellés en fonction de votre tableau de DATA.
Si c'est bien cela, autant dire que ça va être un chantier excessivement complexe, (voire inutilisable) pour des données qui sommes toutes, vont rester statiques une fois entrées.
D'autant plus qu'il faut nommer chaque champ "composé" selon les titres A&B

Ce que je vous conseille:deux options
1° option
pour entrer une nouvelle ligne dans une composition A&B existante:
insérer une ligne au milieu de la liste existante, les limites de champs nommés vont se s'agrandir recaler automatiquement en conséquence, à condition de toujours insérer une ligne au dessous de la première et au dessus de la dernière (si vous n'avez que deux lignes, insérer sur la dernière)

2° option
Laisser dans le tableau suffisamment de lignes vides pour chaque composition A&B, et nommer les champs incluant ces lignes vides. Ainsi vous pouvez rajouter aux endroits voulus

A vous devoir, mais je ne pense pas qu'on puisse se lancer dans le remplissage automatique de la colonne C dans les limites du raisonnable... (sauf peut être en VBA , et encore,mais ce n'est pas dans mon domaine)

Reste donc à protéger si vous voulez la colonne E de SDP  comme proposé.

crdlmnt
 
Errare humanum est, perseverare diabolicum

Nadège · Answer

Bonjour,

Donc pour répondre à vos questions :

Rassembler par catégorie = ok

Automatiser le nommage de la,colonne C de PrixMTX 
Pour pouvoir afficher dans la colonne E de SDP mes listes de DesignationMTX en fonction des catégories et sous catégories, ça demande au préalable de donner des noms de plage. Par exemple nom "BETONLivré" pour C6:C9 de l'onglet Prix MTX, etc ...
Donc comment peut-on automatisé ça, ou l'éviter par un autre moyen? car mon tableau sera évolutif!

Problème référence unique décalée= ok corrigée

Code VBA pour rafraichir les valeurs en cas de changement
ça me semble très intéressant pour éviter les erreurs! mais je vais encore avoir besoin de votre aide sur ce point... car en VBA je tâtonne! J'ai cherché sur internet et j'ai néanmoins réussi à trouver comment exécuter une macro automatiquement en cas de changement de sélection, mais pour le moment j'affiche seulement un message (en cas de changement dans la plage A30:A50)! car je ne sais pas comment rafraichir ou effacer le résultat.

validation de l'info de E en colonne C au lieu de E 
Au lieu de formater le texte en blanc ou autre pour le rendre invisible, j'ai préféré déplacer en colonne AB.

Précision du but de la colonne E
Le but de la colonne E est par la suite de me permettre de renvoyer automatiquement le prix du matériaux en colonne J.
A savoir également, l'onget SDP me servira de modèle pour dupliquer à l'infini pour faire des fiches individuelles.

Le fichier modifié ci-dessous:
	http://cjoint.com/?0AtpnIze2L6

Vaucluse · Answer

... j'ai compris votre bonne idée qui permettra de ne pas renommer les nouvelles entrées (ce sera fait avec les codes catégories)
je l'ai combinée avec ma proposition dans ce fichier
 
https://www.cjoint.com/c/EAtwngGKlE8

Ainsi quand vous entrer dans la feuille PrixMTX une nouvelle valeur en A ou B, une nouvelle  liste va se créer automatiquement dans la feuille LISTE sous la rubrique nommée Catx_ suivante
De même si vous entrez une nouvelle valeur en C avec des valeurs A & B existantes, elle viendra s'ajouter à la liste correspondante déjà établie

crdlmnt

Nadège · Answer

Bonjour,

Encore merci pour tout le travaille et le temps passer pour m'aider!
J'ai tenté de tout décortiquer et reproduire sur mon fichier! Et ça marche nikel!
Bon j'avoue j'ai pas compris toutes les formules au point d'être capable de les reformuler seule! Mais j'ai bien compris le fonctionnement générale.
J'ai même réussi à déjouer le petit piège qui s'était glissé dans la macro à cause d'une faute de frappe.
Je compte adapter la méthode à une autre partie de mon fichier. C'est en persévèrent que l'on apprend!

J'ai prévu de verrouiller les cellules avec formules de mon onglet SDP. J'ai même fait en sorte que le mode plan soit accessible pour masquer/afficher certaines lignes/colonnes.
Par contre lorsque je duplique et renomme mon onglet ça ne fonctionne plus sur le nouveau. (tant que je n'ai pas fermé le fichier ça fonctionne, mais dès que je réouvre ça ne marche plus. Mais c'est logique vu que mon code VBA nomme précisément l'onglet :

Private Sub Workbook_Open()
    With Worksheets("SDPvierge")
        .EnableAutoFilter = True
        .EnableOutlining = True
        .Protect Contents:=True, Password:="toto", UserInterfaceOnly:=True
    End With
   
End Sub

Existe-t-il un code pour le classeur entier? 
car mon onglet pouvant être dupliquer à l'infini, je ne peux pas m'amuser à dupliquer le code avec le nom de chaque nouvel onglet!

Merci de bien vouloir m'aider à résoudre ce dernier problème...

Vaucluse · Answer

Bonjour

Je ne suis pas très violent en VBA mais vous pouvez essayez ça

1° placer cette formule en A1 de votre feuille, elle renvoie le nom de l'onglet

=STXT(CELLULE("filename";A1);TROUVE("]";CELLULE("filename";A1))+1;32)


commencez votre macro par cette ligne

Sheets([A1].Value).Activate
...
...
...

End Sub
 
En principe, la macro devrait s'adresser à l'onglet sélectionné (dont le nom est renvoyé en A1)

sous toutes réserves

crdlmnt

Nadège · Answer

Bonjour,

ça ne semble pas fonctionner... toute fois je ne suis pas totalement sûre de l'emplacement :
- ligne avant With .... ?
- ou derrière With sur la ligne (With Sheets([A1].Value).Activate) ?

J'ai testé les 2 sans succès. 
Dans le 1er cas rien de particulier.
Dans le 2ème j'ai un message d'erreur à l'ouverture du fichier "Erreur d'exécution 424" et ça bloque dès la 1ère ligne suivant With ( .EnableAutoFilter = True).

Merci
Cordialement,

Vaucluse · Answer

Bonjour
votre fichier en retour
https://www.cjoint.com/c/EAxlkzYCcWr

pour info:

afficher VBA/ Module+ / ouvrir Module 1

la macro PRO est écrite dans le module 1
le mot pour déverrouiller est toto
pour verrouiller la feuille active: ctrl + shift + K

pour modifier le mot de passe:
afficher module 1 et modifier le texte entre guillemets

pour modifier l'affectation de la touche clavier
onglet développeur / Icone Macro / Sélectionner PRO dans la liste et cliquer sur Option

Il faut éventuellement protéger VBA pour éviter que la macro, et donc le mot de passe soient lisible:

afficher VBA  >  outil  >  Propriétés de VBA  >   protection.

Bien cordialement

Nadège · Answer

Merci pour votre réponse et votre réactivité.
Je viens de reproduire avec succès.
Mais du coup je viens de comprendre que c'est juste une macro pour déverrouiller la feuille rapidement... sans avoir à taper le mot de passe. Et parès la feuille est déverouillé si on ne la reprotège pas...

Du coup à force de farfouiller et de comprendre un peu mieux le fonctionnement, j'ai eu une idée! et ça marche!
J'ai repris le code que j'avais initialement utilisée dans le Workbook Open, pour le mettre dans ma feuille modèle et qu'il s'exécute à la sélection de la feuille. 
J'ai modifié la 1ère ligne pour qu'il utilise la feuille active ... 
J'ai vérifié en la dupliquant et tout fonctionne!

Je met le code ci-dessous pour info, ça peut toujours servir à d'autres :

Private Sub Worksheet_Activate()

With ActiveSheet
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="toto", UserInterfaceOnly:=True
End With

End Sub

Vaucluse · Answer

Vi...
.... vous avez bien fait, mais en fait, la macro verrouille la feuille, ne la déverrouille pas. Mais effectivement, il faut la reverrouiller si vous enlever la protection 
l'essentiel est que ça fonctionne
Bonne route

Liste cascade 3 niveaux, plusieurs critères, plusieurs résultats

12 réponses

Discussions similaires