Creation de combobox liées

Bonjour
J'ai sur une feuille excel 2 colonnes contenant dans une la désignation d'objets et dans la 2eme la référence propre à chacun de ces objets
J'ai créé un userform avec 2 combobox
Le premier combobox et alimenté par la colonne des objets et le second par leur référence.
Je souhaiterai que lorsque je choisisse un objet dans mon premier combobox s'affiche automatiquement la référence dans le second combobox et à l'inverse quand je choisi une référence s'affiche automatiquement son objet.
Pourriez-vous m'aider merci...

Bonjour :)

Code:

---

Application.vlookup(cbx1.Value, tableau_de_correspondance, 2)

---

te permet de récupérer les références si le tableau des correspondance est composé des ocjets et en colonne 2, des références.

Tu peux appeler cette fonction lorsque la valeur de la combobox1 est changée. Et vice-versa pour la deuxième combobox.

Merci pour ta reponse
En piece jointe le classeur en question
Je ne suis pas doué en vba je ne sais pas ou placer ta ligne de code
Les sources pour les combobox se trouvent sur la feuille 2
Cordialement

Je ne vois pas de Feuil2 :?

Mais mon code serait à insérer dans les modules du type :

Code:

---

1 2	Private Sub ComboBox1_Change() End Sub

---

J'ai pas vérifié les numéros de combobox, mais aux numéros de combobox près :

Code:

---

1 2 3

Private Sub ComboBox1_Change() ComboBox2.Value = Application.vlookup(ComboBox1.Value, tableau_de_correspondance, 2) End Sub

---

Par contre, attention : avec vlookup, il faut que la valeur qu'on cherche soit dans la première colonne. Du coup, si tu veux faire les correspondances dans les 2 sens, il faut que tu aies un tableau du type :
nom | référence | nom
pour pouvuoir utiliser la parti "nom | référence" dans un cas et la partie "référence | nom" dans l'autre cas.

Bonjour
Malgré tes conseils je n'ai pas reussi à faire fonctionner mes combobox.
En piece jointe le bon classeur excel
Encore merci...Cordialement

Tu dis que tu n'as pas réussi à faire marcher les combobox, mais dans ton fichier, je ne vois l'application d'aucun de mes conseils. Le tableau a seulement 2 colonnes et il n'y a pas de code pour les combobox. Qu'est-ce que tu ne comprends pas?

Désolé je m'etais trompé de classeur.
J'ai fait comme tu m'a dis... enfin je pense

Attention regarde bien ce que j'ai écrit :

Code:

---

1 2 3

Private Sub ComboBox1_Change() ComboBox2.Value = Application.vlookup(ComboBox1.Value, tableau_de_correspondance, 2) End Sub

---

Contre toi :

Code:

---

1 2 3

Private Sub ComboBox2_Change() ComboBox2.Value = Application.VLookup(ComboBox3.Value, Feuil2, 2) End Sub

---

Tu veux que quand la ComboBox2 change, la ComboBox3 prenne une certaine valeur. Sub ComboBox2_Change est une méthode qui se déclenche lorsqu'on on a changé ComboBox2. Donc, dans cette méthode, tu écris ce qu'il doit se passer quand tu changes ComboBox2 --> dans ton cas, tu veux attribuer une certaine valeur à ComboBox3.

Ensuite, comme le dit son nom "Feuil2", n'est pas un tableau de correspondance, mais une feuille. Un tableau de correspondance est une plage de cellules.

Code:

---

Sheets("Feuil2").Range("A:B")

---

Mis bout à bout:

Code:

---

1 2 3

Private Sub ComboBox2_Change() ComboBox3Value = Application.vlookup(ComboBox2.Value, Sheets("Feuil2").Range("A:B"), 2) End Sub

---

Rien n'y fait. Je suis vraiment navré te faire perdre ton temps. Je suis résolument mauvais.

On va jouer au jeu des 7 différences :)

Mon code :

Code:

---

1 2 3

Private Sub ComboBox2_Change() ComboBox3Value = Application.vlookup(ComboBox2.Value, Sheets("Feuil2").Range("A:B"), 2) End Sub

---

Ton code :

Code:

---

1 2 3

Private Sub ComboBox2_Change() ComboBox2.Value = Application.VLookup(ComboBox3.Value, Sheets("Feuil2"), Range("A1:C402"), 2) End Sub

---

---

1. Les numéros de combobox !!
Mon code :

Code:

---

1 2 3

Private Sub ComboBox2_Change() ComboBox3Value = Application.vlookup(ComboBox2.Value, Sheets("Feuil2").Range("A:B"), 2) End Sub

---

Ton code :

Code:

---

1 2 3

Private Sub ComboBox2_Change() ComboBox2.Value = Application.VLookup(ComboBox3.Value, Sheets("Feuil2"), Range("A1:C402"), 2) End Sub

---

Je te remets ce que je t'ai expliqué:

Citation:

---

Tu veux que quand la ComboBox2 change, la ComboBox3 prenne une certaine valeur. Sub ComboBox2_Change est une méthode qui se déclenche lorsqu'on on a changé ComboBox2. Donc, dans cette méthode, tu écris ce qu'il doit se passer quand tu changes ComboBox2 --> dans ton cas, tu veux attribuer une certaine valeur à ComboBox3.

---

A gauche du signe "=", on met la "chose" qu'on veut changer, à droite, on met la valeur qu'on veut donner à la chose.

2. La syntaxe pour indiquer la plage:
Mon code :

Code:

---

1 2 3

Private Sub ComboBox2_Change() ComboBox3Value = Application.vlookup(ComboBox2.Value, Sheets("Feuil2").Range("A:B"), 2) End Sub

---

Ton code :

Code:

---

1 2 3

Private Sub ComboBox2_Change() ComboBox2.Value = Application.VLookup(ComboBox3.Value, Sheets("Feuil2"), Range("A1:C402"), 2) End Sub

---

3. La plage:
La première colonne doit être la colonne de la valeur cherchée. "2" indique que la valeur cible est dans la 2ème colonne. Donc dans un cas il faudra mettre "A:B" et dans l'autre "B:C". Dans le cas où la combobox DONT ON CHANGE LA VALEUR a ces valeurs dans la colonne A, on mettra "A:B".

Je peux pas faire mieux j'ai copier-coller tes codes
J'ai l' erreur 1004 erreur definie par l.applicatipn ou par l.objet.

Dans ton document je trouve :

Code:

---

1 2 3

Private Sub ComboBox3_Change() ComboBox2.Value = Application.VLookup(ComboBox3.Value, Sheets("Feuil2"), Range("B:C"), 2) End Sub

---

Et non pas :

Code:

---

1 2 3

Private Sub ComboBox3_Change() ComboBox2.Value = Application.VLookup(ComboBox3.Value, Sheets("Feuil2").Range("B:C"), 2) End Sub

---

Ce code marche chez moi.

Bonjour
La bonne syntaxe à en effet fait fonctionner les combobox
Par contre les choix se font de manière aleatoires et mélangées ex si je choisi "1/2 CAISSON MONOBLOC" la combobox se modifie et bascule sur un objet différent et de surcroit la reference change également.
Aurais tu une idée
Cordialement.

Peux-tu essayer avec cette syntaxe (ajouter ", 0") :

Code:

---

1 2 3

Private Sub ComboBox3_Change() ComboBox2.Value = Application.VLookup(ComboBox3.Value, Sheets("Feuil2").Range("B:C"), 2, 0) End Sub

---

Si tu as toujours des problèmes, essaie avec:

Code:

---

1 2 3 4 5

Private Sub ComboBox3_Change() Application.EnableEvents = False ComboBox2.Value = Application.VLookup(ComboBox3.Value, Sheets("Feuil2").Range("B:C"), 2, 0) Application.EnableEvents = True End Sub

---

Si cela ne marche pas, peux-tu me mettre en pièce joint le fichier, que j'essaie.

salut
merci pour ta réponse. Ça marche déjà beaucoup mieux. Par contre quand je navigue dans la combobox à l'aide des flèches ça me met une erreur et également si je saisi manuellement les premier caractère d'un objet. Serait il possible d'avoir les réferences de la colonne B par ordre Alphabétique dans la combobox sans modifier l'ordre de la source.
Merci pour ton aide

Bonjour,
Avant de répondre à ta question, la combobox3 est bien codée, comme indiquée précédemment mais tu as oublié 2 lignes pour la combobox 2

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub ComboBox2_Change() Application.EnableEvents = False ComboBox3.Value = Application.VLookup(ComboBox2.Value, Sheets("Feuil2").Range("A:B"), 2) Application.EnableEvents = True End Sub Private Sub ComboBox3_Change() Application.EnableEvents = False ComboBox2.Value = Application.VLookup(ComboBox3.Value, Sheets("Feuil2").Range("B:C"), 2, 0) Application.EnableEvents = True End Sub

---

Pour l'erreur : j'ai essayé, et tout marche très bien lorsqu'on sélectionne des références qui ont des lettres, c'est lorsqu'on sélectionne un nombre que ça ne marche pas. Je t'avoue que là, je ne sais pas pourquoi :? Je te conseille d'ouvrir une autre discussion expliquant ce problème. *

Si tu veux que les 2 listes soient en ordre alphabétique, il faudra créer, dans ta feuille source, 4 colonnes (et non pas 3). Les 2 premières restant les mêmes et les 2 dernières étant le symétrique des 2 premières. Puis tu trie par ordre alphabétique (Accueil > Trier et filtrer). Du coup dans ta combobox3, tu feras une recherche sur C: D (au lieu de B:C)



* Je me permets juste de faire un commentaire sur la présentation de cette discussion. Sur le forum, on n'aime pas les pieces jointes. Il vaut mieux que tu nous écrives ton code qui a des problèmes, comme je l'ai fait dans ce message par exemple. Tu nous explique clairement ton projet, tu nous dit ce que tu as fait pour l'instant, en écrivant le code (avec les balises codes #) et tu nous expliques clairement quel est ton problème. Ton problème peut être : une erreur, alors il faut donner l'erreur que tu obtiens et la ligne de code où elle apparaît; tu ne sais pas quelle fonction utiliser pour telle ou telle action, alors il faut bien expliquer ce que tu as déjà fait et où tu bloques; ton code tourne, mais ne donne pas le bon résultat, pareil il faut bien expliquer ce que tu veux faire avec ton code et ce que tu obtiens à la place. Tu peux éventuellement mettre des copies d'écrans si cela illustre bien ton problème.
Et c'est un aussi un peu étrange de mettre une discussion en "résolue" et de reposer une question derrière. Les personnes qui parcourent le forums pour répondre aux questions n'ouvrent pas tellement des discussions "résolue", vu qu'a priori, il n'y a plus de problèmes ;)

Bon courage pour la suite :D