Valeurs combobox et un textbox pour les valeurs correspondantes

Bonjour.

Je souhaiterais faire afficher dans mon userForm des valeurs à partir d'un combobox dans un textbox les valeurs correspondantes.

Valeur colonne B (Qté) "textbox" correspondant à valeur colonne A (Désignation) "combobox"

Vous en remerciant.

P

Bonjour toutes et tous

un aperçu ci-joint

Petite explication du code:

Option Explicit
' on déclare les variables (F, c et Ligne)
Dim F, c, Ligne
Private Sub CommandButton1_Click()
' bouton fermer (x) de l'userform1
' on ferme / décharge l'userform1
Unload Me
End Sub

' --------------- à l'initialisation de l'userform1
Private Sub UserForm_Initialize()
' la feuille BDD du classeur ou l'on va donner l' instruction (Sheets BDD)
Set F = Sheets("BDD")
' ou l'on doit trouver dans la colonne A à partir de la ligne 2
For Each c In F.Range("A2:A" & F.[A65000].End(xlUp).Row)
' on ajoute donc à notre combox de l'userform1
  Me.ComboBox1.AddItem c
  ' la suite (next)
Next c
End Sub

' ----------- lorsqu'on clic sur notre combobox une fois l'userform 1 lancé/activé
Private Sub ComboBox1_Click()
  Set F = Sheets("BDD")
  Ligne = Me.ComboBox1.ListIndex + 2
  Me.TextBox1 = F.Cells(Ligne, 2)
  ' ci-dessous si d'autres colonnes donc d'autres textbox
'  Me.TextBox2 = f.Cells(ligne, 3)
'  Me.TextBox3 = f.Cells(ligne, 4)
 ' Me.TextBox4 = f.Cells(ligne, 5)
End Sub
' fin

Super ! merci

Sauf que dans mon cas il affiche la valeur de la colonne d'avant "B"

Re,

ci-joint

@ tester

le code de l'userform1:

Option Explicit
Dim F, c, Ligne
Private Sub CommandButton1_Click()
' on ferme / décharge l'userform1
Unload Me
End Sub

Private Sub UserForm_Initialize()
Set F = Sheets("BDD")
For Each c In F.Range("D2:D" & F.[D65000].End(xlUp).Row)
  Me.ComboBox1.AddItem c
Next c
End Sub

Private Sub ComboBox1_Click()
  Set F = Sheets("BDD")
  Ligne = Me.ComboBox1.ListIndex + 2
  Me.TextBox1 = F.Cells(Ligne, 2)  ' titre
  Me.TextBox2 = F.Cells(Ligne, 3)  ' Site
' Me.TextBox3 = F.Cells(Ligne, 4)  ' Désignation
 Me.TextBox4 = F.Cells(Ligne, 5)   '
End Sub

crdlt,

André

Grand merci !!