Transposer une listbox d'un Userform dans une seule cellule

  • Initiateur de la discussion Initiateur de la discussion piga25
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

piga25

XLDnaute Barbatruc
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
 

Pièces jointes

Dernière édition:
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
282
  • Question Question
Microsoft 365 affichage userform
Réponses
4
Affichages
361
Réponses
3
Affichages
665
Réponses
10
Affichages
799
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
481
Retour