Combobox en cascade

[Jean-luc1311]

Bonsoir à tous,

J'ai besoin d'un coup de main pour finir mon projet.

Je m'explique:
- Dans mon combobox1 je sélectionne mon type de composant.
- Dans mon combobox2 je sélectionne mon composant.
- Dans mon combobox3 je sélectionne mon Fournisseur.

Je souhaiterai pouvoir écrire la référence correspondante dans le Textbox1 et son prix dans le Textbox2.

Et enfin pouvoir enregistrer sur une autre feuille les données ainsi trouvées et écrire une nouvelle recherche sur la ligne suivante.

Merci à tous

 

[fhoest]

Re : Combobox en cascade

bonsoir
bien que chez moi j'ai une erreur dans la combo2 resolu
voici ce code pour toi trouver et inserer dans tes textbox

Sub trouve()
Dim a, b, c As String
Dim ligne As Long
textbox1.text=""
textbox2.text=""
a = ComboBox1.Value
b = ComboBox2.Value
c = ComboBox3.Value

Columns(3).Select
With Selection
Cells.Find(What:=c, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    '
End With
Do
ligne = ActiveCell.Row
If Range("a" & ligne).Value = a And Range("b" & ligne).Value = b Then
TextBox1.Value = Range("e" & ligne).Text
TextBox2.Value = Range("d" & ligne).Text
Else:
Cells.FindNext(After:=ActiveCell).Activate
End If

A+

 

[fhoest]

Re : Combobox en cascade

remoi
je viens juste de modifier et ajouter textbox1.text="" et textbox2.text=""
dans le code que je t'ai filer
au cas ou tu l'avais deja copier
A+

 

[Jean-luc1311]

Re : Combobox en cascade

Bonjour,

Merci pour ta réponse, je teste ton code.
Cela va beaucoup m'aider.

A+🙂

 

[Jean-luc1311]

Re : Combobox en cascade

Désolé, mais je n'arrive pas faire fionctionner mon fichier.
Sarait-il possible de me retourner mon fichier modifié?
Merci par avance.
Cordialement JL

 

[kjin]

Re : Combobox en cascade

Bonjour,
Par tableau intermédiaire et ajout d'une dimension au tableau principal
A+
kjin

 

[Jean-luc1311]

Re : Combobox en cascade

Bonjour Kjin,

Merci pour le coup de main, c'est le résultat attendu.
Cordialement.
Jean-luc