Valeur texte box suivant valeur de deux combobox

Bonjour,

Voici mon problème, je n'arrive pas a faire en sorte de remplir les textbox de mon formulaire suivant deux combobox.

C'est un fichier pour le gestion d'instrument de mesure. Chaque instrument est définie par un numéro interne xxxx plus un numéro de sous ensemble.

Par exemple un numéro interne le 2005 peux avoir plusieurs sous ensemble.

Voici mon codage.

Private Sub Combobox1_AfterUpdate()

Dim ligne As Long
Dim I As Integer

' Set WS = Sheets("Donnees_Fiches_Signaletiques")
'Insérer valeur dans les textbox.

If Me.ComboBox1.ListIndex = -2 Then Exit Sub
ligne = ComboBox1.ListIndex + 2
For I = 3 To 16
Me.Controls("TextBox" & I) = WS.Cells(ligne, I + 1)
Next I
Me.TextBox17 = WS.Cells(ligne, "S")
Me.TextBox18 = WS.Cells(ligne, "T")


End Sub

Bonjour et bienvenue sur le forum

Un essai à tester. Te convient-il ?

Bye !

Merci beaucoup de ton aide mais ton code ne fonctionnais pas non plus.

Mais avec ton aide, j'ai modifié mon code et il a l'air de marcher. Merci encore. Jai mis en gras ce que j'ai modifé.

Private Sub Combobox1_AfterUpdate()

Dim ligne As Long
Dim i As Integer

' Set WS = Sheets("Donnees_Fiches_Signaletiques")
'Insérer valeur dans les textbox.

If Me.ComboBox1.ListIndex = -1 Then Exit Sub
ligne = ComboBox1.ListIndex + 2
For i = 2 To WS.Range("B" & Rows.Count).End(xlUp).Row
If WS.Range("B" & i) = Val(ComboBox1) Then
ComboBox2.AddItem WS.Range("C" & i)
End If
Next i

ComboBox2 = ""
'For i = 3 To 16
' Me.Controls("TextBox" & i) = WS.Cells(ligne, i + 1)
' Next i
' Me.TextBox17 = "S" 'WS.Cells(ligne, "S")
' Me.TextBox18 = "T" 'WS.Cells(ligne, "T")
'Next i
End Sub

Private Sub ComboBox2_AfterUpdate()

For i = 2 To WS.Range("B" & Rows.Count).End(xlUp).Row
If WS.Range("B" & i) = Val(ComboBox1) And WS.Range("C" & i).Text = ComboBox2 Then
ligne = i
Exit For
End If
Next i

For i = 3 To 16
Me.Controls("TextBox" & i) = WS.Cells(ligne, i + 1)
Next i
Me.TextBox17 = "S" 'WS.Cells(ligne, "S")
Me.TextBox18 = "T" 'WS.Cells(ligne, "T")
'Next i
End Sub