recherche d'une valeur suite à un choix dans combobox

DURY

XLDnaute Nouveau
bonjour,

dans le fichier joins je viens choisir mon client puis mon produit au travers de combobox, je souhaiterais que les valeurs salon, gamme, famille techno et N° d'outillage s'affiche dans les textbox en dessous mais je n'y arrive point.
merci pour votre aide.
 

Pièces jointes

  • A-TEST-LIGHT.xlsm
    342.3 KB · Affichages: 26

DURY

XLDnaute Nouveau
Bonjour,
j'apporte quelques précision à la question:
Dans un premier je renseigne mon combobox choix CLIENT en analysant la liste:
Code :
Code:
Private Sub UserForm_Initialize()
  TextBox1.Value = Date
  Set MonDico = CreateObject("Scripting.Dictionary")
  temp = [CLIENT]
  For i = 1 To UBound(temp, 1)
  If Not MonDico.Exists(temp(i, 1)) Then MonDico.Add temp(i, 1), temp(i, 1)
  Next i
  Me.List_CLIENT.List = MonDico.items
End Sub


Par la suite,
je générè la liste du combobox choix PRODUIT :

Code:
Private Sub List_CLIENT_Change()
  d = Application.Match(Me.List_CLIENT, [CLIENT], 0)
  Me.PRODUIT.Clear
  For i = d To d + Application.CountIf([CLIENT], Me.List_CLIENT) - 1
    Me.PRODUIT.AddItem Range("Produit")(i)
  Next i
End Sub

Ensuite je veux renseigner dans le textbox SALON au changement de PRODUIT la valeur issue de la ligne PRODUIT colonne SALON de la feuille "CLIENT-PRODUIT"

Code :
Code:
Private Sub PRODUIT_Change()
Dim S As String
Dim Q As Range
S = Me.PRODUIT.Value
???
End Sub
et c'est là que je coince...
Merci pour votre aide
 

bbb38

XLDnaute Accro
Bonsoir DURY, le forum,
Je n’ai pas très bien suivi ta méthode de programmation. Tu trouveras ci-joint une solution à finaliser pour tes besoins.
Pour les Combobox liées, tu peux également suivre les excellents conseils de Dranreb (Tu cliques sur Rechercher / Plus. Dans Mots-Clés, tu inscris « combobox liées ». Et enfin tu cliques sur Forum Excel / Rechercher).
Cordialement,
Bernard
 

Pièces jointes

  • DURY- A-TEST-LIGHT-1.xlsm
    338.7 KB · Affichages: 34

Discussions similaires

Statistiques des forums

Discussions
312 361
Messages
2 087 626
Membres
103 611
dernier inscrit
sebboes