Bonsoir à tous !
Bon voila j'ai 6 userform sur un projet VBA sous Excel 2003.
J'ai une procedure "REMPLISSAJ" qui permet de remplir des textbox contenue sur des userforms... Ma question est simple :
Je veux faire une procédure universelle qui fonctionne ac n'importe q'uelle Userform. Hosr comme vous devez le savoir la propriétés Userform.Name n'existe pas ....J4ai trouvé un truc sur le site de M$oft mais c pour faire un affichage de la userform et j'arrive pas à adapter le code pr mon cas ....  Dites moi si le code que je vous présente vous parait cohérent :
 
Sub REMPLISSAJ(ByVal argmt As Integer, ByVal numero As Integer)
Dim userformname As String
 
'AFFICHAGE DES DONNEES
userformname = "client_p" & numero
'AJOUT DES AUTRES DONNEES
With VBA.UserForms.Add(userformname)
    .TextBox1.Text = Cells(argmt, 3)
    .TextBox2.Text = Cells(argmt, 4)
    .TextBox6.Text = Cells(argmt, 5)
    .TextBox3.Text = Cells(argmt, 6)
    .TextBox4.Text = Cells(argmt, 10)
    .TextBox5.Text = Cells(argmt, 11)
End With
 
numero = numero + 1
userformname = "client_p" & numero
With VBA.UserForms.Add(userformname)
    .TextBox1.Text = Cells(argmt, 7)
    .TextBox2.Text = Cells(argmt, 8)
    .TextBox3.Text = Cells(argmt, 9)
    .TextBox4.Text = Cells(argmt, 12)
    .TextBox5.Text = Cells(argmt, 13)
End With
End Sub
 
PS: je c que je peux reduire mon code en faisant une chtite boulce "If TypeOf  Control Is texbox then" mais c'est moins important
Merci de votre aide
 
"Le VBA c amusant, mais heureusement qu'il y a les forums !!! "