Désolé DranrebBonsoir.
Il semble que vous confondiez les numéros d'items dans la ComboBox avec les numéros de lignes dans la base. Ce ne sont pas les mêmes si vous ne prenez pas l'intégralité des données pour la liste de la ComboBox.
Pourquoi je ne retrouve pas le Sujet calculé avec les fonctions de mon module MSujetCBx que je vous avait joint la dernière fois ?
L'élément 0 du sujet contient la liste des clés pour la ComboBox, mais l'élément 1 contient les listes de numéros de lignes dans la base correspondant aux clés du 0 !
J'avais fait une démo qui s'en servait pour sélectionner les cellules. Ce serait tout aussi facile de s'en servir pour garnir des TextBox.
Option Explicit
Private RngDon As Range, SujTR, SujDM
Private Sub UserForm_Initialize()
Dim Sujet
Set RngDon = Feuil1.[A2:F2].Resize(Feuil1.[A65000].End(xlUp).Row - 1)
Sujet = SujetCBx(RngDon, Colonne:=1)
SujTR = SujCBxLike(Sujet, "TR-*"): ComboBox1.List = SujTR(0)
SujDM = SujCBxLike(Sujet, "DM-*"): ComboBox2.List = SujDM(0)
End Sub
Private Sub ComboBox1_Change()
Dim Ligne As Long, TVL()
If Not ComboBox1.MatchFound Then Exit Sub
Ligne = SujTR(1)(ComboBox1.ListIndex)(1)
TVL = RngDon.Rows(Ligne).Value
Me.TextBox5 = TVL(1, 1)
Me.TextBox1 = TVL(1, 2)
Me.TextBox2 = TVL(1, 3)
Me.TextBox3 = TVL(1, 4)
Me.TextBox4 = TVL(1, 5)
End Sub