Discussion :

[esse2016]

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.

[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

[unparia]

Ton code devrait être ceci :

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
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

[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.