Discussion :

[ouskel'n'or]

Nouveau problème, nouvelle question à cent sous :
J'ai une série de formes dans une feuille de calculs
Un clic sur n'importe laquelle de ces formes (shapes) exécute une macro unique
Dans cette macro, j'identifie la forme avec Application.caller.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub Boutons()
Dim Bouton As string
    Msgbox Application.Caller
    'du code sans intérêt ici
End Sub

Jusque là, pas de pb.

Je souhaite maintenant identifier une forme sélectionnée par soft

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
LeBouton = "Laforme " & No
'après quoi je souhaiterais exécuter 
Boutons nomBouton

Sauf que Boutons ne peut recevoir de paramètre puisque le clic sur une forme ne permet pas d'en envoyer un.
Une idée ?
J'en ai bien une consistant à utiliser une macro intermédiaire appelant la procédure Boutons avec le paramètre bouton si clic sur la forme, avec paramètre "fabriqué" si appel par soft mais je ne trouve pas ça très "élégant"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub PasSioux()
Dim Bouton As string
    Bouton = Application.Caller
    Boutons Bouton
End sub
 
Sub Boutons(Bouton)
    Msgbox Bouton
    'du code sans intérêt ici
End Sub

Et par soft

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub Soft()
Dim Bouton As string
   Bouton = "Laforme " & No
   Boutons Bouton
End sub

Une autre solution plus mieux ?

(toi fring, qui a travaillé sur les shapes ? )

[fring]

Salut Ousk,

Désolé mais...je ne comprend rien à ce que tu souhaites faire, tu peux essayer de l'expliquer autrement ?

Je souhaite maintenant identifier une forme sélectionnée par soft

C'est quoi ce "soft" ?

[ucfoutu]

Bonsoir et amitiés, Fring,

Je suppose que Ousk a voulu dire "shape sélectionnée par le code".
Peut-être en en connaissant le N° et en voulant en extraire le nom et/ou se référer à l'objet ?
Pas vraiment sûr d'avoir vraiment saisi, moi non plus... (juste une idée)...

[JackOuYA]

bonsoir,

pour moi aussi le cavalier c'est trompé de titre .. où j'ai encore rien compris, par contre pour ma par j'aurai utilisé sa solution pasSioux.. en metttant la procedure Boutons(Bouton as string) dans un module de façon à avoir un code mieux organisé

[ouskel'n'or]

Merci à vous trois de votre généreuse attention.
J'ai réglé le problème, c'est ok.
Ucfoutu, tu as tout compris.
fring, le soft n'a pas d'importance.
JackOuYA, m'étonne pas que tu n'aies pas compris, les procédures dont je parle sont déjà dans un module. Une forme n'a pas besoin de code derrière la feuille de calculs.

Maintenant, pour être plus clair sur ce que je voulais :
La forme désignée par 1 clic doit changer.
Je veux simplement pouvoir le faire également par soft pour remplacer un éventuel utilisateur, donc utiliser la même procédure que pour le clic.
J'ai déplacé les paramètres d'une procédure à une autre et c'est tout bon.
Pour le clic : Une procédure qui identifie la forme qui appelle une procédure paramétrée.
Par soft : Envoi direct des paramètres à la procédure paramétrée.
Oui, ma question était idiote mais j'ai été perturbé par cette histoire de tri, faut m'excuser. Je me mets à voir des pièges partout
Bonne soirée à tous et encore merci.
(Je déleste ma question sans intérêt)

[decondelite]

Je ne sais pas si j'ai très bien compris, mais dans ce sujet il est question d'appel de procédure paramétrée par l'attribut onclick d'un shape:
http://www.developpez.net/forums/d62...pele-onaction/

Dites-le moi si je suis carrément à coté de la plaque.

[ouskel'n'or]

Dites-le moi si je suis carrément à coté de la plaque.

Oui, mais c'est pas grave
L'explication ? Contrairement aux objets de la boîte à outils contrôles, une forme n'a pas d'événement clic proprement dit. On peut cependant lui affecter directement une macro, ce qui revient au même mais dispense d'avoir à coder dans la feuille de code de la feuille de calculs. La macro peut alors se trouver dans un module standard, ce qui simplifie l'organisation du code si chère à JackOuYA qui, apparemment, ne le savait pas
Par contre, en fin de la discussion que tu cites, fring donne la méthode que j'utilise pour récupérer le nom de la forme. Ce qui peut être intéressant de savoir.
Mais merci de ton intérêt.

Bonne journée