Concatainer données 4 Col et afficher dans Tbx

[MuscatMimi]

Bonjour a tout le Forum

Comment afficher le contenu d'une ligne avec 4 Colonnes

Col A Col B Col C Col D

Nom Prénom Adresse Ville

Afficher dans une Textbox comme ceci

Nom
Prénom
Adresse
Ville

a plus a tous et merci par avance de votre collaboration

cordialement

 

[Pierrot93]

Re : Concatainer données 4 Col et afficher dans Tbx

Bonjour,

regarde le code ci-dessous si il peut t'aider :

Private Sub UserForm_Initialize()
With TextBox1
    .WordWrap = True
    .MultiLine = True
End With
TextBox1 = Range("A1") & vbLf & Range("B1") & vbLf & Range("C1") & vbLf & Range("D1")
End Sub

bon après midi
@+

 

[MuscatMimi]

Re : Concatainer données 4 Col et afficher dans Tbx

Bonsoir Pierrot

Merci de ton aide

J'a bataillé avec vbLf,mais je n'y suis pas arrivé,
en fait en regardant ton code ,j'y étais presque, mais presque!!!!
ça n'a rien donnée

Bonne soirée

A bientôt

 

[Pierrot93]

Re : Concatainer données 4 Col et afficher dans Tbx

Bonjour,

pas de problème chez moi, ce code fonctionne.... mets peut être un tout petit fichier en pièce jointe monttrant bien où cela coince...

bonne journée
@+

 

[MuscatMimi]

Re : Concatainer données 4 Col et afficher dans Tbx

Bonjour Pierrot


Me suis mal exprimé, j'ai dis, je me suis bataillé,avec vbLf
avant que je post

Ton Code Fonctionne trés bien, rassure-toi

Je l'ai juste un peu arrangé a mes besoins

'--Multiligne dans Tbx Affiche Données les une en dessous des autres
'--Code de Pierrot93 sur ExcelDownloads
'With TextBox9
    '.WordWrap = True
    '.MultiLine = True
'End With
'TextBox9 = Range("A65536").End(xlUp) & "  " & Range("B65536").End(xlUp) & vbLf & Range("C65536").End(xlUp) & vbLf & Range("D65536").End(xlUp)

Bon week-end

 

[Staple1600]

Re : Concatainer données 4 Col et afficher dans Tbx

Bonjour à tous


Une autre façon de faire

Private Sub UserForm_Initialize()
[COLOR=Green]'inspired by Hasco[/COLOR] ;)
Dim t
    With Application
        t = .Transpose(.Transpose([A65536].End(xlUp).Resize(, 4)))
        TextBox1 = Join(t, vbLf)
    End With
End Sub

 

[MuscatMimi]

Re : Concatainer données 4 Col et afficher dans Tbx

Bonjour Staple


en effet, une autre façon ,que je viens de tester

Mais ,je vois pas comment avec cette version, je pourrai
afficher

Col A et Col B sur 1 ligne dans Tbx
Col C sur une autre ligne
Col D sur une autre ligne etc..

comme je l'ai fais avec le code de Pierrot

Bon dimanche
Cordialement

 

[Staple1600]

Re : Concatainer données 4 Col et afficher dans Tbx

Bonjour vaucluse immo, le fil, le forum

Simplement comme ceci

Private Sub UserForm_Initialize()
[COLOR=Green]'inspired by Hasco ;)[/COLOR]
Dim r As Range, t, tt
Set r = [A65536].End(xlUp)
    With Application
        t = .Transpose(.Transpose(r.Resize(, 2)))
        tt = .Transpose(.Transpose(r.Offset(, 2).Resize(, 2)))
        TextBox1 = Join(t, Chr(32)) & vbLf & Join(tt, vbLf)
    End With
End Sub

 

[MuscatMimi]

Re : Concatainer données 4 Col et afficher dans Tbx

Bonsoir Staple, et le Forum

Oui j'ai essayé ton code ça fonctionne

Mais j'avoue, ne pas trop comprendre,ce code

J'ai essayé, en essayant, de mettre sur une Ligne dans Tbx
la Col D et E,
mais je n'y suis pas arrivé

Désolé

Cordialement

 

[Staple1600]

Re : Concatainer données 4 Col et afficher dans Tbx

Re



En modifiant ainsi

Private Sub UserForm_Initialize()
[COLOR=Green]'inspired by Hasco ;)[/COLOR]
Dim r As Range, t, tt
Set r = [A65536].End(xlUp)
    With Application
        t = .Transpose(.Transpose(r.Resize(, 2)))
        tt = .Transpose(.Transpose(r.Offset(, 2).Resize(, 2)))
        TextBox1 = Join(t, Chr(32)) & vbLf & Join(tt, Chr(32))
    End With
End Sub

PS: ce code (et ses prédécesseurs ) est juste une digression (pour le fun) et qui permet au passage de saluer le sieur Hasco
Faut bien de quoi trouver passer le temps , avec un temps si pourri
en de beau pays de Normandie.