Morceau de code manquant

Bonsoir à tous

je cherche à afficher le contenue récupérer de cette listbox multichoix dans une textbox.

Quelqu un serais la compléter ?

Private Sub BoutonSelectionner_Click()

Dim Ctri As Long
Dim ContenuSelectionne As String

    ContenuSelectionne = ""

    If ListBox32.ListCount > 0 Then
       For Ctri = 0 To ListBox32.ListCount - 1
           If ListBox32.Selected(Ctri) = True Then
              ContenuSelectionne = ContenuSelectionne & ListBox32.List(Ctri) & Chr(10)
           End If
       Next Ctri
    End If

    If ContenuSelectionne <> "" Then
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    End If

End Sub

Merci à vous .

Bonsoir,

voyez par ici : https://forum.excel-pratique.com/viewtopic.php?f=10&t=99193&p=578110#p578110

Ci cela peut vous servir.

@ bientôt

LouReeD

bonsoir .

je vois pas le fichier ?

Mais d après les com ça a l'air terrible .

Oups...

le fichier :

5listbox-maj.xlsm (21.21 Ko)

@ bientôt

LouReeD

HAHAHA merci . en tout cas je vais essayer de l adapter a mon code . car moi ce seras pour du word ce coup ci . mais l idée est bonne .

merci LouReeD .

je regarderais demain la il est temps de dormir .

bon soirée

Rechercher des sujets similaires à "morceau code manquant"