VBA : recherche valeur tableau et copie colonne

Version imprimable

05/12/2013, 12h22
siouplait

VBA : recherche valeur tableau et copie colonne

onjour,

Je me permets d'investir les lieux après des heures de désarroi à tenter de programmer une macro...

Je vous explique la situation :

Je souhaite mettre en place un comparateur d'après des données stockées sur un autre onglet.

J'ai créé un userform dans lequel on peut choisir jusqu'à 5 valeurs à comparer (liste de choix déroulante).

Prenons l'exemple pour une valeur pour l'instant :
Après avoir renseigné ces combobox, je souhaiterai que la macro recherche la valeur dans un autre onglet (sur une ligne), qu'elle copie la colonne de la valeur trouvée pour enfin la recopier sur un autre onglet.

Tout cela pour pouvoir obtenir au final 2, 3, 4 ou 5 colonnes les unes à côté des autres.

Je mets ici le lien permettant d'avoir un aperçu de la chose...
http://cjoint.com/?CLfkneUe6QO

Je vous serais reconnaissant au plus haut point de bien vouloir m'aider à trouver une solution ou tout du moins des pistes de réflexion!

Merci d'avance
05/12/2013, 12h52
Daniel.C

Bonjour,

Je ne comprends pas ce que tu veux faire. Donne un exemple de ce que tu saisis et du résultat que tu veux obtenir.

Bonjour Daniel,

Tout d'abord merci de ta réponse,

J'ai mis le fichier utilisé en pièce jointe.
Mon but est d'obtenir un comparatif entre plusieurs éléments que l'on choisit via l'userform au départ.

Donc il faut que la macro prenne en compte ces données, aille les rechercher dans un autre onglet, copier la colonne et la coller dans un dernier onglet qui fera office de comparateur final.

J’espère avoir été un peu plus clair.

J'ai "tenté" le code suivant (à taton) mais tu imagines bien que ça n'a pas donné le résultat escompté...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Sub chercher() ComboBox2.Value = dim1 ComboBox3.Value = dim2 ComboBox4.Value = dim3 ComboBox5.Value = dim4 ComboBox6.Value = dim5 dim1 As Variant dim2 As Variant dim3 As Variant dim4 As Variant dim5 As Variant x As Range Set x = Sheets("Compagnies").Range("D1:Y1").Find(dim1, , xlValues, xlWhole, , , False) End Sub