re
ben non, c'est pas la réplique exact, tu as 15 textbox sur ton usf et seulement 4 noms dans ton tableau de noms.
que sont devenu les textbox4 à 15
For I = 1 To UBound(Plg, 2)
Controls(nom(I - 1)) = Plg(1, I)
Next I
ici, bebere boucle sur les 15 colonnes du tablo, le code s'attend donc à avoir 15 controles à remplir
mais dans le tableau de nom, il ne trouve que 4 noms, au cinquième passage de la boucle, ca bug.
normalement dans ton code tu devrais avoir :
nom = Array('nom', 'PRENOM', 'DN', 'STATUT','textbox4', 'textbox5', etc....)
si, maintenant tu n'a que les 4 premieres textbox qui ont été renommées, tu peux utiliser ceci :
For I = 1 To UBound(Plg, 2)
Select Case I
Case 1 To 4: Controls(nom(I - 1)) = Plg(1, I)
Case Else: Controls('textbox' & I) = Plg(1, I)
End Select
Next I
salut