la ligne d'une feuille dans un userform

bonjour,

With Sheets("Feuil1")
For i = 1 To .Cells(1, .Columns.Count).End(xlToLeft).Column
Me.Controls("TextBox" & i) = .Cells(1, i)
Next
End With


--
isabelle


Le 2012-09-26 17:21, surplus a écrit :

Bonjour,
je voudrais savoir comment afficher les données de la ligne d'une feuille dans
un userform ?
A1 dans textbox1 ,B1 dans textbox2 etc .
merci
a bientôt

Bonjour,

En supposant que le code se retrouve dans le formulaire :

With Worksheets("Feuil1") 'adapte le nom de la feuille
Me.Textbox1 = .Range("A1")
Me.Textbox2 = .Range("B1")
End With

=============================================
Une autre façon si tu as par exemple 5 texbox ayant comme
nom Textbox1, Textbox2 ... Textbox5

With worksheets("Feuil1") 'Adapte le nom de la feuille
For a = 1 to 5
Me.Controls("TextBox" & A) = .cells(1,a)
Next
End With

Dans Cells(1,A) , tu peux remplacer 1 par une variable qui
représente le numéro de la ligne que tu veux copier dans le formulaire.

MichD
---------------------------------------------------------------