Option Explicit
Private WithEvents CL As ComboBoxLiées, LCou As Long, TV()
Private Sub UserForm_Initialize()
Set CL = Création.ComboBoxLiées
CL.Plage Sheet1.[A7:AL7], True
CL.Add ComboBox5, 7
CL.Add ComboBox4, 8
CL.Add ComboBox3, 14
CL.Add ComboBox2, 21
CL.Add ComboBox1, 38
CL.CouleurSympa
CL.Actualiser
End Sub
Private Sub CL_Change(ByVal Complet As Boolean, ByVal NbrLgn As Long)
If NbrLgn = 1 Then Exit Sub
LCou = 0: ReDim TV(1 To 1, 1 To 38)
GarnirAutresChamps '(Les vider ici)
End Sub
Private Sub CL_Résultat(Lignes() As Long)
If UBound(Lignes) > 1 Then Exit Sub
LCou = Lignes(1): TV = CL.PlgTablo.Rows(LCou).Value
GarnirAutresChamps
End Sub
Private Sub GarnirAutresChamps()
TextBox1.Text = TV(1, 5)
TextBox2.Text = TV(1, 34)
End Sub