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

Question

Bonjour a toutes et tous, Forum bonjour

Excel 2007 VBA 

Configuration: Windows 7 / Internet Explorer 9.0

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

f894009 · Answer

Bonjour,

Le lancement de ou des macro doit se faire des la selection ou avec un bouton validation liste. L'ordre d'execution des macros est vraiment capital, parce cela va compliquer pas mal le code, du fait qu'il faudra gerer aussi selection/deselection en cours de selection d'un item selectionne

vieuxray · Answer

Bonjour f894009

Merci pour ta réponse

Je pensais d'abord faire ma selection soit une ou plusieurs, afficher dans le Label1 puis une fois la selection terminée "Valider" en cliquant sur le Label1

et les macros devrai s'éxécuter les unes après les autres ou bien ensemble

alors ensemble ça je ne sais pas jamais essayer

Merci pour ton aide

bon début de semaine a toi

Ray

f894009 · Answer

Re,

une approche de la chose sans les tests select/deselect, un bouton RAZ selection pour modif selection, un bouton valide selection pour lancer les macros.


https://www.cjoint.com/?DAujnlUlkCQ

A+

vieuxray · Answer

Re,

Merci pour le fichier et pour le code

Pas trop compris ce que tu me dit ci-dessous
 une approche de la chose sans les tests select/deselect

sinon dans l'immédiat ca fonctionne bien

juste un petit truc

j'ai simuler la date du premier février 2014  j'ai lancer le programme 
le fond du ListBox1 est bien passer en Vert ça c'est Ok

Mais dès ma première selection (premier clic) le fond repasse de suite en Rouge

j'aurai préferer svp que le ListBox1 reste en Vert jusqu'a ce que je clic sur "Validation" et qu'a ce moment, le fond du ListBox repasse en Rouge

Merci beaucoup pour ton aide

Cdlt Raymond

f894009 · Answer

Re,

une approche de la chose sans les tests select/deselect Oui, si vous changez de selection sans faire de RAZ, l'affichage et les macros a lancer ne seront plus vrai

vieuxray · Answer

Re,

Bien recu la réponse merci bien.

Tu peux svp faire effectuer les tests dont tu me parle car effectivement cela risque d'etre bien embetant.

Quand tu a le temps rien ne presse.

je n'avais pas penser a ça, bien vu.

Merci a plus tard

Ray

vieuxray · Answer

Bonsoir f894009

une question svp:

Serez t'il possible de faire fonctionner le programme sans le label1
juste uniquement a partir de la ListBox1 et un bouton valider 

c'est a dire directement:
Ex: je fais une ou plusieurs selections
puis "Valider" et hop éxécution des macros selectionnées

Merci pour ton aide et bonne soirée a toi

Cdlt Ray

f894009 · Answer

Re,

C'est ce que je voulais vous propose, mais vous n'avez pas repondu a la question: l'ordre des macros est-il imperatif ????

vieuxray · Answer

Bonjour f894009,

Merci bien pour la réponse,

Je suis désolé a propos de ta proposition, j'étais rester fixé sur mon idée, et a l'utilisation hier je me suis dit que je pourrai dans un gain de place me dispenser du Label et au moins d'un bouton

Mais si la une possibilité de faire fonctionner le programme sans le Label1 
juste uniquement a partir de la ListBox1 et mème voir sans bouton "Valider"
je suis Ok pour ça.

Pour les macros OUI dans l'ordre croissant Ex:

Si je coche 1 - 3 - 5 - 6 l'ordre d'éxécution est 1 - 3 - 5 - 6

Si on fait du coup par coup Ex

 je coche (3) on éxécute la macro, je coche (1) on éxécute la macro etc etc

Mais si je me trompe de N° la macro va s'éxecuter 

Mais je ne pense pas que l'on puisse faire marche arrrière en cas d'erreur ????


Merci pour ton aide et encore désolé pour l'oubli de la réponse

Je te souhaite une agréable journée

Cdlt Raymond

f894009 · Answer

Bonjour,

je regarde cela demain.

A+

vieuxray · Answer

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

vieuxray · Answer

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

f894009 · Answer

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

vieuxray · Answer

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

f894009 · Answer

Re,

Avec un minimum de reflexion, vu que pas d'imperatif d'ordre:

pas besoin de listview

principe: refaire la liste a chaque clic sur listbox

validation par bouton


https://www.cjoint.com/?DAzoOh3N2Jf

A+

vieuxray · Answer

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

f894009 · Answer

Re,

Yaka demander

https://www.cjoint.com/?DAzpkIkV9gB

vieuxray · Answer

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

f894009 · Answer

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

f894009 · Answer

Re,

a vous de voir pour les couleurs:

https://www.cjoint.com/?DAzrLAKo7cq

A+

vieuxray · Answer

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

f894009 · Answer

Re,

fichier modifie:

https://www.cjoint.com/?DAzshtpcp1h

vieuxray · Answer

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

f894009 · Answer

Bonjour,

traitement erreur 9 et plus d'images

https://www.cjoint.com/?DAAozy8jfdN

vieuxray · Answer

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

f894009 · Answer

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

vieuxray · Answer

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

f894009 · Answer

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

vieuxray · Answer

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

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

29 réponses

Discussions similaires

Newsletters