Formulaire de recherche avec 2 Combobox

Bonjour à tous.

Je débute depuis peu avec Excel Vba.

Je ne trouve pas la solution à mon problème.

Je souhaite réaliser une recherche dans un Classeur Multi-clients afin de m’éviter de faire un classeur par client.

J'ai réussi à le faire avec un premier critère mais je n'arrive pas avec le second

Voici mon code pour le premier Critère.

Merci de votre aide.

Private Sub CommandButton1_Click()

If Not ComboBox2.Value = "" Then

Dim no_ligne As Integer

no_ligne = ComboBox2.ListIndex + 2

ComboBox1.Value = Cells(no_ligne, 1).Value

ComboBox2.Value = Cells(no_ligne, 2).Value

TextBox1.Value = Cells(no_ligne, 3).Value

Else

End If

End Sub

Bonsoir

Ci joint ma solution

A+ François

Bonsoir Fanfan 38,

Je te remercie beaucoup pour ta solution que fonctionne très bien.

Je n'ai plus qu'a ajouter une trentaine de Textbox à mon classeur.

Un grand Merci.

J'en profite pour étudier ton code et bien sur apprendre à voir j’étais très loin de la solution.

Bonjour fanfan 38,

J'ai bien reussi a faire ce que je voulais mais je trouve un petit soucis récurant.

Sur ma seconde combobox des lors que j'utilise une lettre dans le champs j'ai un message d'erreur sur cette ligne:

If Range("B" & c.Row).Value = CInt(Me.ComboBox2.Value) Then Exit Do

Bonjour Fanfan38

J'ai trouvé ma solution : j'ai remplacé CInt avec CStr pour l'utilisation de texte je n'ai plus de probleme.

If Range("B" & c.Row).Value = CStr(Me.ComboBox2.Value) Then Exit Do

Je te remercie encore beaucoup de ton aide.

Bonsoir Fanfan38,

Desolé de te deranger.

Je m’aperçoit sur mon formulaire que des lors que j'utilise un chiffre dans ma seconde combobox.

Mon menu déroulant reste figer sur le premier client qui possède un ciffre comme repere

Exemple çà fonctionne si je met A2ou 2A mais si je met un repere avec uniquement un chiifre par exemple 2 ou 12 ma liste deroulante reste figé.

Mais je n'ai aucun message d'erreur.

J'ai essayé de changer ma variable Integer par string mais le probleme persiste.

Merci de ton aide

Bonjour est ce que cela te convient

A+ François

Bonjour François,

Je te remercie beaucoup pour ton aide.

Cela fonctionne à merveille.

Bonsoir François,

Tout fonctionne parfaitement mais des lors que je mets 5 chiffres ou plus dans ma Combobox2 "REPERE".

J'ai ce message d'erreur.

J'ai changé les formats de cellule.

J'ai toujours le problème.

peux tu me venir en aide.

Johan

Bonsoir François,

J'ai changé Cint par Cstr.

çà fonctionne.

Johan