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 - 12 mai 2022 à 10:21

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

Afficher la suite

A voir également:

Boucle avec les données d'une listbox
Fuite données maif - Guide
Supprimer les données de navigation - Guide
Trier des données excel - Guide
Que veut dire supprimer les données d'une application - Guide
Sauvegarde des données - Guide

6 réponses

Réponse 1 / 6

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.

Réponse 2 / 6

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,

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?

Réponse 3 / 6

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

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention 1 584

bug: message d'erreur?

Réponse 4 / 6

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

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

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

Posez votre question

Réponse 5 / 6

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

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

Réponse 6 / 6

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 ?

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.

Discussions similaires

Mon pc s'allume et s'éteint en boucle

Erreur la zone de données passée à un appel système est insu

Mon ordinateur s'allume et s'eteint en boucle

Excel supprimer une mise en forme de tableau

Barre de données en pourcentage (maintenir 100% comme max)

Votre réponse

Discussions similaires