Modification de ComboBox_Change ()

Bonjour,

j'ai un prb avec des comboBox

Explication:
j'ai 2 comboBox et je voudrais que la modification de l'une change l'autre.

prb:
comme l'une change l'autre puis que l'autre change l'une puis que l'une... :cry:

est-ce qu'il y a une maniere de garder la fonction sans que je fasse tout bugger? :)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

Private Sub ComboBox_code_Change() Dim k As Integer, nb_lignes As Integer, Code As String   Code = ComboBox_code nb_lignes = WorksheetFunction.CountA(Sheets("DATOS").Range("A:A"))   ComboBox_choixfrs.Value = "" For k = 2 To nb_lignes   If Sheets("DATOS").Range("A" & k).Value = Code Then ComboBox_choixfrs.Value = Sheets("DATOS").Range("B" & k).Value End If Next   End Sub   Private Sub ComboBox_choixfrs_Change() Dim l As Integer, nb_lign As Integer, Nomfr As String   Nomfr = ComboBox_choixfrs nb_lign = WorksheetFunction.CountA(Sheets("DATOS").Range("B:B"))   ComboBox_code.Value = "" For l = 2 To nb_lign   If Sheets("DATOS").Range("B" & l).Value = Nomfr Then ComboBox_code.Value = Sheets("DATOS").Range("A" & l).Value End If Next   End Sub

---

merci de votre aide

Tes 2 combobox sont remplies des mêmes plages mais de colonnes différentes? Exemple A1:A10 et B1:B10?

Si affirmatif, pourquoi utiliser 2 Combobox?

Pour synchroniser 2 combos qui prennent source de la même structure (item y de Combo1 correspond à l'item y de Combo2), une piste

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub ComboBox1_Change()   If ComboBox2.ListIndex <> ComboBox1.ListIndex Then ComboBox2.ListIndex = ComboBox1.ListIndex End Sub   Private Sub ComboBox2_Change()   If ComboBox1.ListIndex <> ComboBox2.ListIndex Then ComboBox1.ListIndex = ComboBox2.ListIndex End Sub

---

bien en faite il y a le nom et le code (même ligne mais colonne différente)

et je veux que les personnes puissent verifier qu'elles ont selectionné la bonne chose en verifiant avec l'autre comboBox.

est-il possible sinon de selectionner la valeur de la comboBox (nom par exemple) dans une listbox avec code et nom (Code - Nom) que j'ai faite deja?

Oui, tu peux utiliser une listebox multicolonnes ou même une combobox avec 2 colonnes

Exemple

Code:

---

1 2 3 4 5 6 7 8

Private Sub UserForm_Initialize()   With Me.ComboBox1 .ColumnCount = 2 .ColumnWidths = "100;60" .RowSource = "DATOS!A2:B12" End With End Sub

---

ok c cool comme truc

le prb que je rencontre maintenant c'est que lorsque l'on a cliqué sur ce que l'on veux c'est le code qui s'affiche (pk c la 1ere colonne des deux je suppose) mais je veux pas changer l'ordre des colonnes dans mon fichier ni dans la présentation de la comboBox.

de plus la variable prend le code maintenant

Nomfr = ComboBox_choixfrs

comment faire pour afficher ou les deux ou juste le nom sans toucher a mon fichier?

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub UserForm_Initialize()   With Me.ComboBox1 .ColumnCount = 2 .ColumnWidths = "100;60" .TextColumn = 2 .BoundColumn = 2 .RowSource = "DATOS!A2:B12" End With End Sub

---

j'ai fait les modif' ça marche bien!

il serait sympa s'il est possible possible de coller un code dans la comboBox (ou l'ecrire à la main) et qu'il trouve le nom correspondant.
C'est possible ça?