Recherche valeur de Rowsource

Bonjour,

Comment puis je faire une recherche dans la rowsource (colonne 1) d'une combobox à partir de sa valeur saisie par un utilisateur.
Merci

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub ComboBox1_Exit() If ComboBox1.Value = ComboBox1.RowSource Then textbox1.Value = Combobox1.column(2) Else textbox1.Value = "" End If End Sub]

---

Si tu utilises Rowsource, la ComboBox reprendra toutes les modifs de ta source. Si bien que ton test "If ComboBox1.Value = ComboBox1.RowSource Then" ne sert à rien.
Pour obtenir la valeur de la colonne 2 après sélection dans ta liste, tu dois définir

Code:

---

ComboBox1.BoundColumn = 2

---

Valeur que tu récupères en mettant

Code:

---

textbox1.Value = Combobox1.value

---

Pour définir l'affichage (1 par défaut) tu dois définir

Code:

---

ComboBox1.TextColumn = 1, 2, ou 3 ou 4 ...

---

Enfin, pour récupérer le texte affiché après sélection, tu dois utiliser

Code:

---

Texte = ComboBox1.Text

---

Bonne journée

je suis tout a fait d'accord avec toi et merci de ton aide mais si l'utilisateur saisie une donnée qui ne se trouve pas dans la liste moi je voudrais que cette valeur soit recherché dans la liste de ma combobox

Citation:

---

Envoyé par Jeyjey1

mais si l'utilisateur saisie une donnée qui ne se trouve pas dans la liste

---

Tu veux dire : "Si l'utilisateur saisit une donnée dans la textbox qui n'est pas dans la Combobox ?"

non non, si l'utilisateur saisie une donnée dans la combobox qui ne se trouve pas dans la rowsource de celle-ci (j'ai mal a la tête).....en fait la textbox n'est q'un conteneur suivant la condition

Si tu as défini RowSource, tu connais la colonne correspondante dans la feuille de calculs, à la colonne 2 de la Combobox
Tu te contentes donc, avec Find, de chercher dans la colonne de ta feuille de calculs si la valeur saisie existe pour cette colonne.

Edit
Je crois comprendre ton problème. Au lieu de chercher dans la liste, l'utilisateur tape un mot...
Si c'est ça, alors définis la propriété MatchEntry. Pour ça consulte l'aide en ligne sur cette propriété :

Citation:

---

Envoyé par l"aide en ligne

fmMatchEntryFirstLetter 0 Correspondance de base. Le contrôle recherche l'entrée suivante qui commence par le caractère saisi. La frappe répétée de la même lettre parcourt toutes les entrées commençant par cette lettre.
fmMatchEntryComplete 1 Correspondance étendue. Pour la frappe de chaque caractère, le contrôle recherche une entrée correspondant à tous les caractères saisis (par défaut).
fmMatchEntryNone 2 Aucune correspondance.

---

Voici mon vrai code je l'avais simplifier pour la compréhension.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Private Sub ComboBox2_exit(ByVal Cancel As MSForms.ReturnBoolean)   if combobox2.value = 'se trouve bien dans le rowsource de ma combobox then   New_desfr.Text = ComboBox2.Column(2) New_adddesfr.Text = ComboBox2.Column(1) New_desan.Text = ComboBox2.Column(4) New_adddesan.Text = ComboBox2.Column(3)   Cells(ActiveCell.Row, 12).value = ComboBox2.Text Cells(ActiveCell.Row, 28).value = New_desfr.Text Cells(ActiveCell.Row, 27).value = New_adddesfr.Text Cells(ActiveCell.Row, 30).value = New_desan.Text Cells(ActiveCell.Row, 29).value = New_adddesan.Text Else New_desfr.Text = "" New_adddesfr.Text = "" New_desan.Text = "" New_adddesan.Text = ""   End If end sub ]

---