Extraire toutes les valeurs d'une Listbox pour les afficher dans un commentaire

[Didier972]

Bonjour

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

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

Merci

 

[Dranreb]

Re : Extraire toutes les valeurs d'une Listbox pour les afficher dans un commentaire

Bonjour.
Essayez :

Cells(i, j).AddComment Text:=TB_Client.Text & vblf & Join(ListBox1.List, Vblf)

 

[Didier972]

Re : Extraire toutes les valeurs d'une Listbox pour les afficher dans un commentaire

Merci pour cette réponse rapide

Mais je ne doit pas la placer au bonne endroit car cela ne fonctionne pas.
Ci joint le fichier

Cordialement

Didier

 

[Dranreb]

Re : Extraire toutes les valeurs d'une Listbox pour les afficher dans un commentaire

Mettez des point d'arrêt et déroulez en pas à pas pour voir si vous y passez.
votre plage = Application.Match(CDbl(CDate(xdatedeb)), [C5:ABD5], 0) me paraît bizarre.