Discussion :

[gantec]

Hello,

est-il possible de récupérer des données depuis un fichier puis les insérers dans un champ multilignes ?

exemple :

RowSource : Resultat!C1:C15569 ???


merci !

[illight]

Tu veux dire récupérer et finalement les concaténer pour les mettre dans une cellule ?

Si c'est ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub test()
Dim i As Long
Dim text As String
For i = 4 To 6
    text = text &  Cells(i, 2).Value & vbLf
Next i
Cells(8, 2).Value = text
End Sub

ça ça marche après à adapter a ton cas la j'ai juste mis des valeurs dans 3 cellule spour essayer de concaténer dans une meme

Après c'est peut etre pas ça que tu veux

[gantec]

enfaite ce qu'il me faut c'est ca :

1) valeur dans un fichier excel
2) récupérer les valeurs de 1) pour les afficher dans mon champ multilignes de mon userform

j'espere ke c'est plus clair !!

Mai merci du temps ke tu prend

a+

[illight]

Ah tu veux le récupérer dans un UserForm ça tu l'avais aps dit petit cachotier t'appelle quoi un champ multiligne ? une zone de liste ? ou une textbox a plusieurs lignes justement ?

[gantec]

une textbox a plusieurs lignes, comme ca, si la longeur du texte est plus grande que la textbox, il passe a la ligne...

merci

[illight]

Du même style alors Dans la macro Initialize du Userform (ou ailleurs ça dépend de ce que tu fais ) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub UserForm_Initialize()
For i = 1 To 3
    TextBox1.Value = TextBox1.Value & vbLf & Cells(i, 1).Value
Next i
End Sub

Le seul soucis que j'ai la c'est que tu a un espace au début, donc a toi de voir comment l'enlever, je pense qu'en faisant des ptites manip ça devrait le faire