Afficher une colonne dans une textbox

Staple1600

XLDnaute Barbatruc

• 11 Août 2011

• #2

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.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Août 2011

• #3

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 :

Code:

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

 

Vote positif 0 Vote négatif

G

guillaume28700

Guest

• 11 Août 2011

• #4

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 ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 11 Août 2011

• #5

Re : Afficher une colonne dans une textbox

Re

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

Code:

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

 

Dernière édition: 11 Août 2011

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 11 Août 2011

• #6

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?

 

Vote positif 0 Vote négatif

G

guillaume28700

Guest

• 11 Août 2011

• #7

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.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 11 Août 2011

• #8

Re : Afficher une colonne dans une textbox

Re

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

et ce genre de code

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Août 2011

• #9

Re : Afficher une colonne dans une textbox

Re,

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

Code:

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

bon après midi
@+

 

Vote positif 0 Vote négatif

G

guillaume28700

Guest

• 11 Août 2011

• #10

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.

 

Vote positif 0 Vote négatif