Discussion :

[OurliacThomas]

Bonjour, j'ai un problème je n'arrive pas a rentrer les valeurs des cellules dans un textBox.

J'aimerai que le contenu des cellules A4 a b119 soient renseigner dans un textbox

Merci,

[BENNASR]

bonsoir
rendre la propriété multiline de ton textbox sur VRAI
et essaye avec ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub UserForm_Activate()
For x = 1 To 2
    Select Case x
        Case 1
            Me.TextBox1 = Me.TextBox1 & Cells(4, 1) & Chr(10)
        Case 2
            Me.TextBox1 = Me.TextBox1 & Cells(119, 2) & Chr(10)
    End Select
Next
End Sub

ou bien tout simplement si te dérange pas une seule ligne

Code :

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

1
2
3
Private Sub UserForm_Activate()
Me.TextBox1 = Cells(4, 1) & "  " & Cells(119, 2)
End Sub

[Menhir]

Si tu as Excel 2016, tu peux utiliser la fonction CONCAT avec un WorksheetFunction.
https://support.office.com/fr-FR/art...6-694cbd6b4ca2

[Transitoire]

Pardonnez moi de m'insérer, mais si dans le textbox précédemment cité, je voulais entrer les valeurs des cellules (A1:B3), j'ai essayé, mais je n'arrive pas?

[unparia]

Bonjour
Il serait bon d'exposer avec la plus grande précision le but à atteindre.

J'aimerai que le contenu des cellules A4 a b119 soient renseigner dans un textbox

complété par le titre :

Remplir un TextBox avec deux colonnes

est assez ambigü.
on a du mal à déterminer avec une totale assurance s'il s'agit :
1) de répartir sur "deux (pseudo) colonnes" d'une textbox les données en provenance de deux colonnes d'une plage de cellules
ou
2) de concaténer sur plusieurs lignes de la textbox et dans l'ordre des lignes de la plage traitée, les données en provenance de deux colonnes d'une plage de cellules
ou
3) de mettre dans la textbox, les unes à la suite des autres, les données en provenance de la première colonne de la plage de cellules suivies de celles de la seconde colonne.

[Invité]

Bonjour,

Merci Jaques je pensais que mes facultés intellectuel me permettaient plus de résoudre ce genre de problème!

À moins que les tiennes ... On est d'accord!

De plus concaténer A4 a b119 en vrai roman dans une textbox c'est inexploitable quel intérêt ?

C'est le contenu de deux colonnes ou c'est le textebox qui à deux colonnes?

Si c'était un listebox?

[Transitoire]

En effet, moi j'avais compris qu'il voulait entrer dans un textbox les valeur des cellules de A3 a b119.
J'ignorais si c'est possible. pour ma part, j'utiliserais plutôt une listbox avec deux colonnes. J'avoue que je ne vois pas l'intérêt d'une texbox?
Mais j'avoue mon manque de compétence en la matière. Comme on disait chez Compaq "affaire à suivre"

[patricktoulon]

re
peut etre veut il simplement créer un texte intelligible juste pour un visuel créé avec les données des cellules
presspapier robert !!! et hop un replace sur vbtab par " "

[Invité]

Bonjour Patrick,
Oui peut-être c'est pour cela que des explications s'impose à mon sans

[OurliacThomas]

Bonjour, et merci de vos réponses,

désolé de pas avoir bien clarifié mon problème, donc j'aimerais que sa affiche dans ma textbox

A4 B4
A5 B5
.... ....
A119 B119

Voila j'espere que tu arriveras mieux a comprendre, merci

[BENNASR]

Bonjour
essaye avec un listbox et non pas un textbox
code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Private Sub UserForm_Initialize()
 
Dim i As Integer
 With Sheets("feuil1")
 j = 0
    For i = 4 To 119
    UserForm1.ListBox1.ColumnCount = 2
    UserForm1.ListBox1.ColumnWidths = "80;80"
    UserForm1.ListBox1.AddItem
    UserForm1.ListBox1.Column(0, j) = .Cells(i, 1)
    UserForm1.ListBox1.Column(1, j) = .Cells(i, 2)
    j = j + 1
Next i
End With
End Sub

[patricktoulon]

re
Bonjour

Ok ca n'est donc que pour du visuel tu ne dois pas t'en servir pour selectionner

dans ce cas comme je te l'ai dis precedement "presse papier"

a mettre en haut de un de tes module standard tout simplement

Code :

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

1
2
3
public Property Get presse_papier() As String
presse_papier = Replace(CreateObject("htmlfile").parentwindow.clipboardData.GetData("TEXT"), vbTab, " ")
End Property

et dans le code de ta macro ou meme dans le userform en changeant le nom du userform dans mon exemple bien sur

Code :

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

1
2
3
Range("A1:B119").Copy
userform1.textbox1.value= presse_papier
Application.CutCopyMode = False

[OurliacThomas]

Merci c'est exactement ce que je voulais !

[patricktoulon]

j'ai fait un petit oubli
je l'ai mis en public au cas ou tu l'utiliserait dans une macro ou code ailleurs que dans le module ou presse_papier se trouve

si tu met tout dans le userform enleve le public bien sur

dyshortograpie pourra te donner un exemple du meme type avec un autre object que celui que j'utilise le "Dataobject"

perso je prefere celui la parce que je ne suis pas obligé de créer un "property Let presse_papier" car avec cet object il faut mettre le contenu dedans tandis qu'avec cet object("htmlfile" ) j'ai acces au clipbord window
avec le mien le simple fait de copier le texte est deja a l'interieur
tu trouvera dans les contributions diverses facons de l'utiliser robert(dyshortographie) et moi avons mis des exemples concrets
a+

[unparia]

Bonjour
Je partage l'avis de l'utilisation d'une listbox.
Si l'on tient toutefois à afficher cela dans une textbox en prenant soin d' "aligner" les deux "colonnes, cela est possible ainsi
- la textbox doit être multiline
- la police de la textbox doit être à espacement fixe ("Courier", par exemple)

Code :

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

1
2
3
4
5
6
7
8
 dl = Range("A" & Rows.Count).End(xlUp).Row
  nbmaxcola = 10 ' --->> indiquer ici un nombre au moins égal au nombre maximum de caractères des données en colonne A
  sep = "  " ' --->> indiquer ici le nombre d'espaces devant séparer les deux "colonnes"
  TextBox1.Text = ""
  For i = 4 To dl
    'TextBox1.SelText = Format(Range("A" & i).Text & "  ", String(nbmaxcola + Len(sep), "@")) & Range("B" & i).Value & vbCrLf
   TextBox1.SelText = Range("A" & i).Text & String(nbmaxcola - Len(Range("A" & i).Text) + Len(sep), " ") & Range("B" & i).Value & vbCrLf
  Next

deux possibilités d'affichage selon la ligne que l'on "garde" des lignes 6 et 7 de ce code.

EDIT : L'intérêt est que de l'une ou l'autre de ces deux manières, on visualise très confortablement ce que contiennent chacune des deux colonnes. Ceci a son importance lorsque, par exemple, la colonne A contient des patronymes contenant un ou plusieurs espaces

EDIT 2 : il peut être intéressant de savoir que, contrairement à ce que l'on pourrait penser, passer par le presse-papier n'accélère rien. Je viens de tester -->> Un très léger avantage est même présent en utilisant une boucle.
Et il est possible (toujours en boucle), de diminuer carrément de moitié le temps de traitement, en bouclant sur un tableau dynamique plutôt que sur la plage, ainsi

Code :

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

1
2
3
4
5
6
7
8
9
dl = Range("A" & Rows.Count).End(xlUp).Row
  tabl = Range("A4:B" & dl)
  nbmaxcola = 16
  sep = ""
  TextBox1.Text = ""
  For i = 1 To UBound(tabl)
    TextBox1.SelText = Format(tabl(i, 1) & "  ", String(nbmaxcola + Len(sep), "@")) & tabl(i, 2) & vbCrLf
   'TextBox1.SelText = tabl(i, 1) & String(nbmaxcola - Len(tabl(i, 1)) + Len(sep), " ") & tabl(i, 2) & vbCrLf
  Next