Transposer une listbox d'un Userform dans une seule cellule

piga25 · 3 Mai 2020

Bonjour,
J'arrive à transposer la première colonne (0) de la listbox dans la cellule H13, par contre je n'arrive pas à y transposer les colonnes 0 et 1 de manière à avoir le Nom, un espace, le prénom puis retour à la ligne.

VB:

Private Sub CommandButton2_Click()
Dim i&, v$, liste
    v = ""
    For i = 1 To ListBox1.ListCount
        v = v & vbLf & ListBox1.List(i - 1)
    Next i
    v = Replace(v, Chr(10), "", 1, 1)
    Sheets("Feuil1").Range("H13") = v
    Unload Me
End Sub

Private Sub UserForm_initialize()
        ListBox1.List = Sheets("Feuil1").Range("A2:D" & Sheets("Feuil1").[A65000].End(xlUp).Row + 1).Value
End Sub

C'est mieux expliqué dans le fichier
Merci et bon confinement

fanfan38 · 3 Mai 2020

Bonsoir,

VB:

Private Sub CommandButton2_Click()
  Dim i&, v$, liste
    v = ""
    For i = 0 To ListBox1.ListCount - 1
        v = v & ListBox1.List(i, 0) & " " & ListBox1.List(i, 1) & Chr(10) 'vbLf
    Next i
    Sheets("Feuil1").Range("H13") = v
    Unload Me
End Sub

A+ François

piga25 · 3 Mai 2020

Bonjour Fanfan38, le forum
Je suis vraiment nul avec une réponse aussi simple.
.list(i,0) : le 0 indique bien la première colonne donc pour rajouter la seconde il suffisait simplement de remettre cette condition avec la colonne 2 .
Merci

Transposer une listbox d'un Userform dans une seule cellule

piga25

XLDnaute Barbatruc

Pièces jointes

fanfan38

XLDnaute Barbatruc

piga25

XLDnaute Barbatruc

Discussions similaires