copie sélection lisbox ds autre listbox avec mise en forme

[antiphot]

Bonjour à toutes et à tous

Je me casse la tête depuis le début de ce we sur le pb suivant:
j'ai une listbox dans laquelle je récupère les données de plusieurs colonnes. Je souhaiterai que lorsque l'utilisateur effectue une sélection par double clic sur cette listbox, les données correspondantes s'affichent ds une 2ème listbox mais sur 1 seule colonne avec mise en forme

Ex: si j'ai toto - tata - lulu - lolo

j'aurai

toto
tata
lulu
lolo

je joins un fichier exemple avec le code

merci pour toutes vos propositions
Philippe

 

[ChTi160]

Re : copie sélection lisbox ds autre listbox avec mise en forme

Salut antiphot
en pièce jointe (merci David) une premiere approche lol

bonne fin de Journée

Regarde la pièce jointe listboxfichierV1.zip

 

[antiphot]

Re : copie sélection lisbox ds autre listbox avec mise en forme

Bonjour ChTi160

Merci pour ta réponse. Par contre je me rends compte que j'ai un pb c'est que je n'arrive plus à ouvrir un seul fichier zippé sur le forum ? Bon en attendant de résoudre ce pb pourrais-tu m'envoyer le code dans un post ?

au pire, je devrais l'ouvrir avec mon PC du boulôt
A+
Philippe

 

[ChTi160]

Re : copie sélection lisbox ds autre listbox avec mise en forme

re
moi je me suis demandé si ma facon de joindre un fichier était bonne car cela ne ressemble pas à ton fichier joint
je vais te mettre le code😛

Private Sub RechercheTable_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim monIndex As Byte
Dim Tabtemp As Variant
Tabtemp = Range("A1:M1").Value
Me.ListBox1.Clear
monIndex = Me.RechercheTable.ListIndex
'For L = 0 To Me.ListBox1.ListCount - 1
For c = 0 To Me.RechercheTable.ColumnCount - 1
Select Case c
Case Is = 1
Me.ListBox1.AddItem Tabtemp(1, c + 1) & " :" & Format(Me.RechercheTable.Column(c), "dd/mm/yy")
Me.ListBox1.AddItem ""
Case Is = 6, 7, 8, 10, 11, 12
Me.ListBox1.AddItem Tabtemp(1, c + 1) & " :" & Me.RechercheTable.Column(c)
Me.ListBox1.AddItem ""
Case Is = 9
Me.ListBox1.AddItem Tabtemp(1, c + 1) & " :"
Me.ListBox1.AddItem Me.RechercheTable.Column(c)
Case Else
Me.ListBox1.AddItem Tabtemp(1, c + 1) & " :" & Me.RechercheTable.Column(c)
End Select
Next
End Sub

😀
un nouveau lien pour télécharger le fichier
http://cjoint.com/?hqsznQ7xQ1

 

[antiphot]

Re : copie sélection lisbox ds autre listbox avec mise en forme

Désolé de te répondre si tard, mais j'ai du m'absenter.
Impeccable. Pour une première approche comme tu dis 🙂
c'est parfait. Les modifs concernant la police de caractère, on va dire que c'était la cerise sur le gâteau, mais l'essentiel est là et je t'en remercie.

Philippe