Boucle avec les données d'une listbox

Bonjour à tous,

Je suis un peu bloquée sur un code !
J’ai créé un userform avec 2 listbox, le but est de sélectionner dans la 1ère un ou plusieurs services pour les ajouter dans la 2nde.

Je voudrais que pour chaque entrée dans ma listbox2 une fonction soit exécutée.

Je pense à quelque chose dans le genre :

Pour chaque Services dans Listbox2
Exécute la commande exportPDFSces
Suivant
A la fin message « Traitement terminé »

Je ne peux pas transmettre de fichier, données confidentielles et fichier très très lourd !

Hello,
tu peux faire un truc du genre :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub CommandButton1_Click() Dim i as Integer For i = 0 To Me.ListBox1.ListCount - 1 Debug.Print Me.ListBox1.List(i) Select Case Me.ListBox1.List(i) Case "Service1" Debug.Print "S1" Case "Service2" Debug.Print "S2" Case "Service3" Debug.Print "S3" Case Else Debug.Print "Cas non prévu" End Select Next End Sub

---

Remplacer les Debug.Print par la fonction à réaliser.

Ami calmant, J.P