Afficher une colonne dans une textbox

[guillaume28700]

Bonjour,

J'aimerais savoir comment faire pour afficher une colonne d'un fichier excel, dans une textbox, en respectant les lignes ?

 

[Staple1600]

Re : Afficher une colonne dans une textbox

Bonjour

Ce n'est pas l'usage habituel d'une textbox.

Elle est censée être employée pour effectuer une saisie.

 

[Pierrot93]

Re : Afficher une colonne dans une textbox

Bonjour,

regarde ceci, pour contrôle placé sur un userform, code à positionner dans le module de celui-ci :

Option Explicit
Private Sub UserForm_Initialize()
With TextBox1
    .WordWrap = True
    .MultiLine = True
    .Value = Join(Application.Transpose(Range("A1", Range("A65536").End(xlUp)).Value), vbCrLf)
End With
End Sub

sans plus de détails...

bonne journée
@+

Edition : re JM

 

[guillaume28700]

Re : Afficher une colonne dans une textbox

Alors que faut il intégrer à un userform pour qu'il affiche une colonne d'une feuille Excel ?

 

[Staple1600]

Re : Afficher une colonne dans une textbox

Re

J'étais sur une piste assez proche de celle dePierrot93.

Private Sub UserForm_Initialize()
Dim t, s$
t = Application.Transpose([A1:A10])
s = Join(t, Chr(13))
TextBox1.Value = s
End Sub

J'avais mis au préalable Multiline et WordWrap sur True dans la fenêtre Propriétés

 

[Staple1600]

Re : Afficher une colonne dans une textbox

Re

Quelle est le nombre de lignes contenus dans ta colonne ?

Et quelle fonction veux-tu donner à ta TextBox?

 

[guillaume28700]

Re : Afficher une colonne dans une textbox

Le nombre de ligne va varier, toujours en augmentant, donc considérons que ce soit jusqu'à 1000 (je ne pense pas faire plus), et je veux simplement que la textbox m'affiche ce qu'il y a dans la colonne en question ex: Colonne A, sans faire de calculs ni rien, seulement un affichage.

 

[Staple1600]

Re : Afficher une colonne dans une textbox

Re

Dans ce cas, il serait plus approprié d'utiliser une ListBox

et ce genre de code

Private Sub UserForm_Initialize()
Dim t
t = Application.Transpose([A1:A10])'ici adapter les références des cellules
ListBox1.List = t
End Sub

 

[Pierrot93]

Re : Afficher une colonne dans une textbox

Re,

on peut également alimenter une "listbox" comme ceci :

ListBox1.List = Range("A1", Range("A65536").End(xlUp)).Value

bon après midi
@+

 

[guillaume28700]

Re : Afficher une colonne dans une textbox

Merci pour cette aide, mais je suis désolé, cela ne marche pas, ou du moins je n'arrive pas à le faire fonctionner.