Bonjour,

J'ai un soucis lorsque j'ajoute des noms dans un commentaire d'une cellule T9 à partir d'une sélection multiple de noms de la listbox1 du userform.
Il m'insére "n-1" noms sélectionnés dans mon commentaire. Or je veux être fidèle aux "n" noms sélectionnés de la listbox1 voici le bout de code.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
With Range("T9")
         .Interior.ColorIndex = 2
         .ClearComments
         .AddComment
         .Comment.text text:="*************** INTERVENANTS ***************" '& Chr(10)
         .Comment.Visible = False
End With
 
         chaine = ""
 
         For i = 0 To UserForm1.ListBox1.ListCount - 1
         If UserForm1.ListBox1.Selected(i) = True Then
            chaine = Range("T9").Comment.text & Chr(10)
            Range("T9").Comment.text text:=chaine & CStr(ListBox1.List(i))
         End If
         Next i
merci par avance pour votre aide.