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

[thomasdu40]

problème résolu.

Pour ceux que ça intéresse je joins le 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
17
18
19
20
21
rivate Sub CommandButton1_Click()
 
With Sheets("Plan Act")
lg = .Range("C4").End(xlDown).Row + 1
For k = 0 To ListBox1.ListCount - 1
 If ListBox1.Selected(k) = True Then
    .Cells(lg, 3).Select
    ActiveCell = ListBox1.List(k)
    tx = IIf(tx = "", ListBox1.List(k), tx & Chr(10) & ListBox1.List(k))
  End If
Application.EnableEvents = False
If xx <> "" And tx = "" Then ActiveCell.Value = xx
If xx = "" And tx <> "" Then ActiveCell.Value = tx
If xx <> "" And tx <> "" Then ActiveCell.Value = xx & Chr(10) & tx
If xx = "" And tx = "" Then ActiveCell.Value = ""
fin:
Application.EnableEvents = True
Next
Unload UserForm1
End With
End Sub