Discussion :

[Didpa]

Bonjour

Je cherche comment extraire toutes les valeurs d'une Listbox (Sachant que le nombre de valeur est variable) et les inscrires dans un commentaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(i, j).AddComment Text:=TB_Client.Text et (Valeur de la Listbox)

Merci

[Daniel.C]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    For x = 0 To Me.ListBox1.ListCount - 1
        Txt = Txt & Chr(10) & Me.ListBox1.List(x)
    Next x
    Txt = TB_Client.Text & Txt
    Cells(i, j).AddComment Text:=Txt

[Didpa]

merci pour ta réponse rapide

Le petit hic c'est que je me retrouve au bout de plusieurs fois avec tb_client répéter x fois.

Ci joint le fichier

Cordialement

Didier

[Daniel.C]

Il faut ajouter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Txt = ""

au dessous de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub Cmdvalider_Click()

[Didpa]

Non plus

Ce que j'aimerais que cela fasse

ex: Client 1
3140
3142

et que dans Chaque commentaire toutes les références soient inscrites

Merci

[Daniel.C]

et que dans Chaque commentaire toutes les références soient inscrites

Qu'est-ce que tu appelles "références" ? Qu'est-ce que tu as dans la listbox et ans le textbox ?

[Didpa]

les références se trouves dans la Listbox
Dans la Textbox c'est le nom du client ou se trouve toutes les références

Merci

[Daniel.C]

Et qu'est-ce que tu obtiens ?