Comment lier deux Combobox entre eux ?

Bonjour,

Mon probleme est simple (mais pourtant je n'arrive pas a le resoudre).

J'ai deux feuilles qui contiennent chacune un combobox avec les meme valeurs.
Chaque combobox est lie a une macro differente sur action click. Je veux qu'au changement d'un combobox, l'autre combobox prenne la meme valeur.

Le probleme c'est qu'en les liant du genre combo1.value=combo2.value, mes deux macros s'executent alors que je souhaite qu'uniquement celle correspondant au click utilisateur s'execute.

Pouvez-vous m'aider ?


merci beaucoup!

Bonjour,

Pas idiot du tout ! Dans un module standard, mets :

Code:

---

Public Teste As Boolean

---

Dans le code du premier combobox, mets :

Code:

---

1 2 3 4

Private Sub ComboBox1_Click() Teste = True Sheets("Feuil1").ComboBox1.Value = Me.ComboBox1.Value End Sub

---

et dans l'autre :

Code:

---

1 2 3 4 5 6 7

Private Sub ComboBox1_Click() If Teste = True Then Teste = False Exit Sub End If MsgBox "Coucou" End Sub

---

Tu as compris, bien sûr, qu'il faut remplacer :

Code:

---

MsgBox "Coucou"

---

par le code de ta macro.

Bonjour,
Je suppose que tu utilises un ComboBox ActiveX.
Il existe alors une propriété nommée LinkedCell qui te permet de faire référence à une cellule de la feuille ou d'une autre feuille.
Tu pourrais donc par exemple utiliser la cellule A1 d'une feuille paramètre nommée Parameter et donner à la propriété LinkedCell des deux ComboBox la valeur Parameter!A1 (Il est possible également de faire référence à une cellule nommée)
Tu peux aussi utiliser un ComboBox sur une feuille et un ListBox sur une autre.
Bien entendu la base de données doit être commune ou les bases de données doivent être similaires.

Si par contre c'est un contrôle formulaire, c'est basé sur le même principe de la cellule liée - voir ma contribution sur le sujet A l'aide de 2 listes déroulantes et sans VBA - Comment rechercher une information dans une base de données

Merci a vous deux, ca fonctionne parfaitement !!

J'ai opte pour la methode boolean.

Bonne fin de journee et encore merci !