Discussion :

[Dixtit]

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 !

[jurassic pork]

Hello,
tu peux faire un truc du genre :

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