XL 2013 Liste permettant de sélectionner un code à exécuter

Usine à gaz · 25 Mars 2018

Bonjour à toutes et à tous,

Je "planche" sur un souci que j'ai solutionné mais certainement pas de la meilleure façon.

Dans mon fichier de travail, il y a bcp de codes à exécuter selon le besoin, j'ai trop de boutons à mon goût et ma feuille étant chargée, je ne sais plus trop où les positionner pour que ce soit "sympa" et pratique

J'ai pensé que ce serait bien de créer "comme une liste" dans laquelle je pourrais choisir le code à exécuter

Je n'ai pas trouvé comment faire et j'ai créé un UserForm

Dans le fichier joint, pour le test, j'ai créé 3 codes dans le module 1
En cliquant dans la cellule "votre action", ça fonctionne, je peux sélectionner le code à exécuter

Toutefois, je pense qu'une liste serait plus appropriée et serait peut-être moins "gourmande" en "poids".

Auriez-vous "une meilleure solution" ?
Avec mes remerciements,
Je vous souhaite à toutes et à tous un très beau dimanche
Amicalement,
Arthour973

Lone-wolf · 25 Mars 2018

Bonjour Lionel , le Forum

C'est tout simple. Dans une feuille liste les noms des macros; par exemple
Appel_Macro1
Appel_Macro2
Appel_Macro 3 etc.

Ensuite crée la liste; puis tu mets les conditions

If C4.value = Appel_Macro1 then
Call Macro1
elseif C4.value = Appel_Macro12 then
call Macro2
etc.

J'ai ajouté Appel, pour ne pas avoir d'influence avec le noms des macros.

Usine à gaz · 25 Mars 2018

Bonjour Lone,

Encore et toujours là
Merci pour ton code et explications, je vois ça et je te dis.
Amicalement,
Arthour973

Staple1600 · 25 Mars 2018

Bonjour le fil, le forum

[le 1/4 heure philosophique du dimanche aprés-midi post digestion]

Dans mon fichier de travail, il y a bcp de codes à exécuter selon le besoin, j'ai trop de boutons à mon goût et ma feuille étant chargée, je ne sais plus trop où les positionner pour que ce soit "sympa" et pratique

En langage courant, ceci se nomme (voir ici)
Il existe un remède (qui s'applique bien à Excel d'ailleurs)
Voici où trouver ce remède (gratuit et sans effet secondaire)
Cliquez ici
[/le 1/4 heure philosophique du dimanche aprés-midi post digestion]

Usine à gaz · 25 Mars 2018

Re Lone,

Je ne sais pas si j'ai fait exactement comme tu me l'a indiqué mais ça y ressemble et ça marche
Un grand merci à toi
Je joins le fichier (feuil2)
Bonne fin de dimanche,
Amicalement,
Arthour973

Usine à gaz · 25 Mars 2018

Staple1600 à dit:
Bonjour le fil, le forum

[le 1/4 heure philosophique du dimanche aprés-midi post digestion]

Bonjour Staple1600,
Ah, toujours égal à toi-même LOL
Sans doute que tu as raison dans ton "1/4 heure philosophique du dimanche aprés-midi post digestion".

Mais ne sommes nous pas tous passés par l'usine à gaz, quelque soit le domaine, nous permettant ainsi de diversifier et d'aiguiser notre esprit de synthèse et de nous améliorer ?

Majoritairement, sans doute que OUI.
Au fil des temps et des perfectionnements, l'usine à gaz ne devient-elle pas une usine cohérente et performante ?
Quelle que soit ta pensée à ce sujet, pour ma part, si loin de ta technicité, c'est mon évolution
LOL, ce fut mon petit 1/4 heure philosophique du dimanche aprés-midi post digestion.
Bon dimanche à toi,
Amicalement,
Arthour973,

Usine à gaz · 25 Mars 2018

(quelle chance pour moi )

Staple1600 à dit:
Re

@arthour973
Je pue de la gueule?
Ou tu es juste discourtois le dimanche après-midi ?

(Ce qui serait étonnant quand on s'attarde sur ta signature...)

Hola mon cher "on se calme et on boit frais LOL
J'avoue que j'aime tes répliques et remarques si fréquentes pour tous mais là, je n'ai pas suivi.
Je ne sais pas si "tu pues de la gueule étant quand même certainement trop éloigné de toi (une vraie chance pour moi LOL)
Mais dis-moi car je n'ai donc pas compris : pourquoi Ho pourquoi avant que j'en meure LOL

Staple1600 · 25 Mars 2018

Re,

@arthour973
Simplement, je ne vois nulle part dans le fil (entre 15h20 et 15h27)
"Bonjour Staple"
D'où mon questionnement : je pue de la gueule donc arthour me dit pas Bonjour

Usine à gaz · 25 Mars 2018

Bon Sang, je suis vraiment désolé mais je n'avais pas vu tes messages.
D'ailleurs, dès j'ai vu ton 1er message je t'ai répondu et il me semble t'avoir dit Bonjour

Encore mes excuses pour peut-être avoir tardé mais j'était à l'écriture de la solution de Lone qui bien que simple à l'évidence, ne l'était pas tout à fait pour moi à transcrire.

Alors Bonjour Staple1600, je te souhaite un très beau dimanche.
Amicalement,
Arthour973

Staple1600 · 25 Mars 2018

Re

@arthour973
C'est toi-même qui décrit la situation (pas moi)

Dans mon fichier de travail, il y a bcp de codes à exécuter selon le besoin,[/b] j'ai trop de boutons[/b] à mon goût et ma feuille étant chargée, je ne sais plus trop où les positionner pour que ce soit "sympa" et pratique.

Donc un des moyens pour que ce soit simple et pratique c'est de suivre ce que suggère le second lien.

Maintenant ce n'était qu'un avis en passant.
(Tu t'en souviendras peut-être quand ton fichier finira par rendre l'âme )

Usine à gaz · 25 Mars 2018

Staple1600 à dit:
Re
Re-bonjour Staple1600
@arthour973
C'est toi-même qui décrit la situation (pas moi)
C'est ben vrai

Donc un des moyens pour que ce soit simple et pratique c'est de suivre ce que suggère le second lien.
C'est aussi ben vrai et c'est un objectif à atteindre

Maintenant ce n'était qu'un avis en passant.
Tes avis et conseils sont toujours pris en considération même s'ils ne me sont pas adressés c'est ben vrai aussi

(Tu t'en souviendras peut-être quand ton fichier finira par rendre l'âme )

Mon fichier n'a pas encore "rendu l'âme" mais ça devient le B....L
J'ai donc décidé avant qu'il soit trop tard de le refaire entièrement fort de vos conseils, formations et codes au fil des années.

Il est évident que sans vous et votre gentillesse jamais je n'aurais été capable de faire, même mal, ce que j'ai fait.
Malgré mon niveau encore trop "limite", j'ai appris (LOL, je partais de loin ).
Je ne pourrai jamais assez remercier tous ceux qui m'ont appris et aidé mais ils se reconnaîtront.

Bon dimanche Staple, à toutes et à tous,
Amicalement,
Arthour973

XL 2013 Liste permettant de sélectionner un code à exécuter

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Lone-wolf

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires