Exécuter multi-sélection d'un ListBox1

Bonjour a toutes et tous, Forum bonjour

Excel 2007 VBA



Je souhaiterai svp a la suite de multi sélection dans un listbox1 éxécuter une ou plusieurs macros

je vous joint un petit fichier avec mes explications a l'intérieur bien plus simple qu'un long discours

avec tous mes remerciements pour votre aide

Cordialement raymond

Lien du fichier http://cjoint.com/?3AtqNXcFFzl

http://www.cjoint.com/?3AtqNXcFFzl

29 réponses

Résumé de la discussion

Exécuter des macros après une sélection multiple dans un ListBox sous Excel 2007 (VBA), dans un contexte Windows 7 et IE9 et interactions utilisateur complexes. Plusieurs intervenants préconisent un bouton de validation et l'itération des éléments sélectionnés pour lancer des macros, en précisant que l'ordre d'exécution peut être crucial dans certains cas. D'autres proposent des approches sans tests de sélection/désélection, par exemple en reconstruisant la liste à chaque clic ou en utilisant des boutons dédiés pour réinitialiser et valider. Plusieurs réponses détaillent un mapping entre chaque élément et une macro (Cas 1 à Cas 8), et évoquent des considérations de gestion d'erreurs et d'images associées, des liens vers des ressources ont été partagés.

Bobot (l’IA à votre service)
  1. Re,

    Merci pour ta rapide réponse, c'est sympa.

    J'ai modifier et c'est tout bon.

    Je ne savais pas pour Listview et Listbox, je ne me ferai plus avoir dorénavant
    listindex listbox commence a 0 et listview a 1

    Alors bon app et encore beaucoup de merci pour la modification

    Bonne journée

    Cordialement Raymond
    0
    1. Re,

      listindex listbox commence a 0 et listview a 1
      code bouton validation: case 1 au lieu de case 0 etc....

              For point = 0 To Nb_Select
      Select Case Table_Selection(point)
      Case 1
      Call Macro1
      Case 2
      Call Macro2
      Case 3
      Call Macro3
      Case 4
      Call Macro4
      Case 5
      Call Macro5
      Case 6
      Call Macro6
      Case 7
      Call Macro7
      Case 8
      Call Macro8
      Case Else
      End Select
      Next point
      1
      1. Bonjour f894009,

        Juste un petit soucis quand tu aura le temps svp

        A l'utilisation de la Listview1

        Quand je clic sur la première case a cocher c'est la macro 2 qui démarre
        quand je clic sur la deuxième case a cocher c'est la macro 3 qui démarre
        etc etc

        il semblerai que ce soit décaler d'un cran, j'ai fait des essais ce matin
        mais je ne trouve pas le soucis

        Bon debut de semaine a toi et merci

        Cdlt Ray
        0
        1. Re,

          pour les images:

          propriete picture de l'UF

          propriete picturesizemode: modeclip ---> pour positionner l'image dans l'UF par picturealignment

          propriete picturesizemode: modestretch ---> pour avoir l'image dans tout l'UF
          1
          1. Re,

            Merci c'est bon j'ai fait joujou, j'ai zoomer, déplacer comme je voulais et supprimer l'image aussi

            Propriété picture userform se placer derriere(bimap) et touche supprimer

            ca peut etre interressant.

            (1) juste pour paufiner, je vais essayer de mettre des icones en début de listing de la listview

            (2) j'ai chercher pour changer la couleur du contour des petites cases a cochés, pas trouver, je crains fort que cela ne soit possible.

            Encore grand merci a toi

            Cdlt Ray
            0
        2. Salut f894009,

          Merci pour les modifications, j'ai tout adapter au programme et tout fonctionne bien.

          Pour tes petites images, je n'avais rien contre sauf que je voulais savoir comment les intégrées a l'userform et aussi bien sur les retirées.

          Voila pour moi, c'est tout bon, je te remercie beaucoup pour ton aide, ta patience et ton savoir partagé.

          A plus tard sans doute, Bonne fin d'après midi.

          Avec tous mes sincères remerciements

          Bien cordialement Raymond
          0
          1. Re,

            La liste se remets bien en Rouge nickel, merci bien.

            J'ai ouvert la listview et j'ai valider sans faire de sélection
            j'ai fait trop vite sans doute et cela m'a engendrer une erreur du style

            Exécution d'erreur "9"
            l'indice n'appartient pas a la sélection

            Dans le bouton de validation la ligne ci dessous se mets en jaune
             If UBound(Table_Selection) > -1 Then

            Merci pour la modif

            Ray
            0
            1. Bonjour f894009

              J'ai essayer de palier a l'erreur d'éxecution "9" et j'ai tester quelques codes qui me semblait bon

              mais ca marche pas.

              tu a une idée a ce propos svp

              sinon svp comment on enlève les petites images que tu a mis dans l'USF

              Pas trouver j'essai de nouveau cette après midi

              Bon app a plus tard et merci a toi

              sinon j'ai integrer a mon programme, c'est bon a part bien sur l'erreur "9"

              Bon Dimanche et merci

              Cdlt Ray
              0
          2. Re

            Merci j'ai recu le fichier

            ca fonctionne mais juste un truc

            La selection se passe très bien

            Mais quand je clic sur validation la listview reste avec les dernières validations et les cases sont toujours activés

            je souhaiterai svp que dès la validation effectuer la listview repasse tous les Items en Rouge et les cases bien sur décochés

            Après ça devrai etre bon, merci pour l'autre image LOL

            Cdlt Ray et merci
            0
            1. Re,

              C'est jouable. Je regarde la chose.
              1
              1. Re f894009,

                Merci tout cela fonctionne, j'ai integré a mon programme de compta et
                les macros s'éxecutent bien

                Pour ça je te remercie beaucoup

                PS: merci également pour le fond d'écran ihihihih

                Une question svp et seulement si ça te tente et que tu a du temps, j'aurai bien voulu refaire le mème code mais avec une Listview cette fois.

                Avec la Listbox on ne peux pas changer la couleur des (Items) des lignes facilement, soit c'est toute la liste ou rien.

                Mon but avec une listview

                (1) Une seule colonne, Sans entète, Couleur de fond Fixe, Les checkboxs a cocher bien sur, Ascenseur a droite pour la liste.

                (2) les lignes (Items) sélectionnées passent en Vert, les lignes (Items) qui ne sont pas sélectionnées reste en Rouge.

                En tout cas merci bien pour le code et pour ton aide.

                Cdlt Raymond
                0
                1. Re

                  Merci pour le fichier, ça fonctionne donc on peux optimiser ton code afin qu'il ne me reste plus que la listbox et un bouton de validation

                  le reste ne sert plus car c'etait pour les essais

                  Cdlt Ray
                  0
                  1. Salut
                    J'ai oublier de te dire que j'ai remanier quelque peut mon programme de compta
                    et comme tu m'avais dit cela compliquerai le code alors du coup plus d'ordre spécifique

                    Dans mes dernières recherches la Listview revient souvent car serai plus facile a utiliser avec plus de possiblilté

                    donc si cela t'arrange je suis ok pour une listview également

                    Merci pour ton aide

                    Cdlt Ray
                    0
                    1. Bonjour,

                      Pas eu de temps pour chercher, je regarde cela cette apres-midi. Par curiosite, pourquoi l'ordre des macros est-il si important ??????
                      1
                      1. Bonjour f894009

                        Je viens aux nouvelles pour savoir si tu a pu trouver quelque chose pour mon petit programme

                        J'ai penser cette semaine que si ce n'ai pas possible avec un ListBox peut etre une possiblité plus souple avec un Listview

                        je dit ça car j'ai fait de multiples essais et je n'arrive pas a progresser tout seul
                        malgré beaucoup de recherche

                        Sinon tu laisse tomber je ne t'en voudrai pas je cherche quand mème

                        Bon W-end a toi et merci

                        Cordialement Ray
                        0
                        1. Bonsoir f894009,

                          Ok t'inquiète pas, suis pas pressé, prends ton temps

                          Merci tout de mème c'est gentil, bonne soirée a toi

                          Cordialement Raymond
                          0
                          1. Bonjour,

                            je regarde cela demain.

                            A+
                            1
                            • 1
                            • 2