Discussion :

[thomasdu40]

Bonjour,

Je voudrai que dans une cellule de la colonne C aparaissent le ou les noms sélectionnés dans une ListBox. Avec le code ci-après si on choisi plusieurs noms ils sont automatiquement répercutés dans différentes cellules (une cellule = un nom). Je voudrai que tous les noms choisis soient dans une cellule.

Comment faire ? Merci.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
 
With Sheets("Plan Act")
  For k = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(k) = True Then
      lg = .Range("C4").End(xlDown).Row + 1
      .Cells(lg, 3) = ListBox1.List(k)
    End If
    Next
  End With
Unload UserForm1 'on ferme le formulaire
End Sub