RESOLU Liste en cascade

[Mitch]

Bonjour , je voudrais adapter la macro de Boisgontier a mon classeur mais je boque , j'aimerais que les choix du menu déroulant s'écrivent dans la même cellule séparer par une virgule
J'ai mis le résultat désiré a la ligne 11
Merci

 

[Roland_M]

Re : Liste en cascade

bonjour

va dans code userform et remplace > Private Sub b_ok_Click()
par ceci:

Private Sub b_ok_Click()
   temp = ""
   For k = 0 To Me.ListBox1.ListCount - 1
     If Me.ListBox1.Selected(k) = True Then temp = temp & Me.ListBox1.List(k, 0) & ","
   Next k
   For k = 0 To Me.ListBox2.ListCount - 1
     If Me.ListBox2.Selected(k) = True Then temp = temp & Me.ListBox2.List(k, 0) & ","
   Next k
   For k = 0 To Me.ListBox3.ListCount - 1
     If Me.ListBox3.Selected(k) = True Then temp = temp & Me.ListBox3.List(k, 0) & " "
   Next k
   ActiveCell = temp
   Unload Me
End Sub

 

[Mitch]

Re : Liste en cascade

Je te remercie Roland_M et te souhaite un bon week-end