Discussion :

[siouplait]

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

[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.

[siouplait]

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 :

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
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