Discussion :

[tiboys]

Bonjour à toutes et à tous,

je viens solliciter votre aide car après maintes tentatives de fonctions je n'arrive pas à trouver celle qui m'apporte solution.
J'ai des valeurs en colonne A ( qui peuvent être répétitives ) et je souhaiterais qu'en fonction de celle choisie, d'autres cellules se remplissent en ligne en puisant les valeurs en colonnes B, C, etc .. de chaque occurrence.
Les fonctions que j'ai pu trouver ne fonctionnent pas correctement si en colonnes B, C, .. je possède les même valeurs

Merci de votre aide.

Tiboys

[Kimy_Ire]

Bonjour tiboys,

A expliciter :

[...] je souhaiterais qu'en fonction de celle choisie [...]

A expliciter :

[...] d'autres cellules [...]

A expliciter :

[...] en puisant les valeurs en colonnes B, C, etc .. de chaque occurrence. [...]

Dans l'attente de ton retour !

Cordialement,
Kimy

[tiboys]

Comme on m'a dit une fois, un schéma vaut mieux qu'un long discours ..

Ma trame de tableau de données :

A                    B          C

texte1               12         jaune
texte2               24         marron
texte1               12         rouge
texte3               75         vert
texte4               65         blanc
texte5               84         bleu
texte1               52         noir

Mon menu déroulant permettant de choisir parmi la colonne A :
Choisir le texte : "texte1"

L'affichage des valeurs lues :
Valeurs :

texte1               12         jaune
texte1               12         rouge
texte1               52         noir

la fonction ( ou autre ) lit ligne par ligne la colonne A et chaque fois qu'elle trouve l'occurrence du menu déroulant, elle affiche dans une cellule la valeur colonne A, puis cellule suivante : la valeur colonnes B, etc .. Les infos affichées sur lignes différentes comme mon exemple.
Le problème de la fonction matricielle ( assez compliquée ) que j'ai trouvé c'est qu'elle cache la 2nd ligne ( pour exemple ici ) si elle trouve 2 fois la même valeur en colonne B ..
J'espère être assez clair.

En tout cas merci beaucoup de te soucier de mon problème Kimy

[thebenoit59]

Un exemple dans le fichier joint.

[tiboys]

Merci beaucoup "thebenoit59" ..
j'ai réussi à légèrement modifier le code pour qu'il affiche + de 3 colonnes ( ma demande était bien supérieure ).
Encore merci pour votre aide.

Tiboys

[thebenoit59]

Si tout est bon pour toi c'est le principal. Si tu as un soucis d'adaptation n'hésite pas à envoyer un fichier du style du tien et nous verrons ensemble pour optimiser la procédure.

[tiboys]

merci "thebenoit59" pour cette précieuse aide.

[tiboys]

Bonjour à toutes et à tous,

comme promis, je reviens pour affiner ma demande ..
La fonction fonctionne très bien hormis l'effacement quand on change de valeur .. ça vient peut-être du "d.RemoveAll".

Sinon, l'affichage des valeurs est conditionné par le choix en menu déroulant, peut-il agir suivant la valeur d'une cellule et son changement suivant formule excel ?
Je m'explique, le mot recherché est en fait la combinaison de 2 valeurs. Du coup je dois cliquer sur la cellule et la valider pour que la fonction la prenne en compte.
Je joint un fichier pour expliquer ma demande.

Encore merci d'avance pour votre aide.

Tiboys

tableau recherche valeurs.xlsm

[thebenoit59]

Bonjour Tiboys.

Nous changeons de fonctionnement à ce moment là.
Si tu souhaites déclencher la procédure avec une formule, nous devons utiliser :

Code :

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

Private Sub Worksheet_Calculate()

Pour que cela ne se fasse qu'avec [e1], j'ai déclaré une variable Public Cel dans le module 1.
A l'ouverture du fichier (voir Feuille ThisWorkbook), j'ai déclaré Cel = Feuil1.[e1] en Texte.
Dans Worksheet_Calculate, si la valeur en [e1] diffère de celle à l'ouverture du fichier, nous déclenchons la procédure.
Pour éviter que la procédure ne se déclenche plus par la suite (si nous retombons sur Cel), je redéfinis Cel en fin de procédure.

J'ai aussi corrigé le problème de suppression, qui ne vient pas du d.Removeall (qui vide le dico créé), mais avec un ClearContents.

Si tu as d'autres questions, n'hésites pas.

[tiboys]

Bonjour "thebenoit59",

encore une fois ton boulot est exceptionnel et fonctionne exactement comme je le voulais.
Je vais intégrer tout ça à ma base de données.

Merci beaucoup pour ton aide qui me fait gagner un temps considérable.

Tiboys