ListBox.selected dans un commentaire

Version imprimable

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:

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.

05/12/2017, 08h46
unparia

Bonjour
Je ne vois rien dans ce code qui justifierait le comportement que tu exposes (sauf si chaîne trop longue, bien évidemment)

Au passage : pourquoi modifier le commentaire à chaque itération ?
Ne modifie qu'in fine ! (une fois la boucle terminée). Mais c'est là un aspect purement accessoire.

Je me demande par ailleurs pourquoi avoir "découpé" en deux temps (l'insertion de "INTERVENANTS" avant le lancement de la boucle). inutilement alourdissant.
Je ferais personnellement ceci ( à la fin de la boucle) :
1) effacement du commentaire
2) détermination de la seule chaîne CH des intervenants
3) si CH <> "" -->>
------ commentaire = "..........." & chr(10) & CH

Ton code devrait être ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
ch = ""
         With Userform1.ListBox1
            For i = 0 To .ListCount - 1
               If .Selected(i) = True Then
                  ch = ch & Chr(10) & .List(i)
               End If
            Next i
         End With
         With Range("C20")
           .Interior.ColorIndex = 2
           .ClearComments
           If ch <> "" Then
             .AddComment
             .Comment.Text Text:="*************** INTERVENANTS ***************" & ch
             .Comment.Visible = False
           End If
         End With

05/12/2017, 12h35
esse2016

Bonjour Unparia,

Merci beaucoup pour ton aide, mais je m'en suis sortis avec tes explications.
Avec ta méthode il prend bien en compte tous les éléments sélectionnés.