Boucle avec les données d'une listbox

Dixtit Messages postés 16 Date d'inscription   Statut Membre Dernière intervention   -  
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   -
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 !



Configuration: Windows / Firefox 91.0

6 réponses

yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
bonjour,
tu peux alors créer un exemple représentatif, et le partager.
0
Dixtit Messages postés 16 Date d'inscription   Statut Membre Dernière intervention  
 
J'ai créé un fichier : https://www.dropbox.com/scl/fi/t2trtaw8pms9e3c2hgakg/Automatisation-envoi-PDF-services.xlsm?dl=0&rlkey=qpoikvro0memczdao0hzmhe3c

J'avais quand même essayé avec mes quelques connaissances c'est la commande bouton 3 et la fonction export pour lesquelles je bloque...

Merci de ton aide,
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 
Je vois ton code. Il ne fonctionne pas bien?
0
Dixtit Messages postés 16 Date d'inscription   Statut Membre Dernière intervention  
 
Pas du tout.
La partie pour ajouter ou supprimer les éléments pas de soucis. Mais l'instruction de lancer la fonction pour tous les services dans la listbox2 bug
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 
bug: message d'erreur?
0
Dixtit Messages postés 16 Date d'inscription   Statut Membre Dernière intervention  
 
La variable de controle For each soit être de type variant ou object.

Je pense qu'il manque des éléments, comme je l'ai dit je suis novice en VBA... Je ne sais même pas ce que vaut le code
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 
(au moins) deux choses à corriger:
Dim Sces
    
    For Each Sces In ListBox2.List
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Dixtit Messages postés 16 Date d'inscription   Statut Membre Dernière intervention  
 
Ah ca commence à fonctionner !
Mais ca ne s'arrête plus, même si je ne sélectionne qu'un seul service.

Ce n'est pas indispensable de dimensionner sa variable ?
Dim variable as type ??
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 
plutôt ainsi:
    Dim Sces As String, i As Long
    For i = 0 To ListBox2.ListCount - 1
        Sces = ListBox2.List(i, 0)
        Debug.Print Sces
        Call exportPDFSces(Sces)
    Next i
0
Dixtit Messages postés 16 Date d'inscription   Statut Membre Dernière intervention  
 
C'est super, ca fonctionne !

1000 mercis.

Je me permets juste une question afin d'essayer de me perfectionner, la commande Debug.Print Sces correspond à quoi exactement ?
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 
debug.print affiche dans une fenêtre de l'éditeur de code.
Cela permet de comprendre ce que fait le programme, en cas d'anomalie.
Tu peux supprimer cette instruction, ou la mettre en commentaire.
0