Identifier le bouton au clic pour action

Version imprimable

10/08/2017, 17h17
CrasherSEP

Identifier le bouton au clic pour action

Bonjour,

J'ai une feuille avec beaucoup de bouton (images PNG)... chaque boutons à une action différentes, je dois donc créer autant de module qu'il y a de bouton...

Ma question, est-il possible de réduire cela à 1 module en identifiant le bouton se lequel je clic ?

Exemple : Si bouton (BTE1) alors ...

Merci d'avance pour votre aide :-)
10/08/2017, 17h25
parmi

Bonjour,

Qu'est-ce que tu entends par "module" ?
Nul besoin de créer une multitude de modules... des Sub, oui, mais pas des modules...
10/08/2017, 18h13
patricktoulon

re

bonjour
application.caller ou argumentation du .onaction tu en trouvera divers exemples dans le forum
10/08/2017, 18h20
Pierre Fauconnier

Salut.

Il y a bien le application.caller mais je privilégierais une procédure par bouton (au sein du même module, ou pas, en fonction de regroupements possibles).

C'est à mon avis plus simple à développer et à maintenir qu'une SUB avec un select case application.caller interminable, et cela respecte mieux les règles de programmation que je me suis fixées (une responsabilité par fonction ou procédure)

@pierre fauconnier
t
se sont des images png (picture) ses boutons et non des controls la procédure est lancée par le onaction

il n'y a pas d'évènement pour ces objects a part le click par le onaction
c'est donc soit application.caller soit les arguments pour le onaction

quelques exemples pour le onction

Code:

1
2
3
4
Sub test1()
'exemple avec 1 argument ecrit en dur dans l'apel
 Sheets(1).Shapes(1).OnAction = "'mamacro " & """toto""" & "'"
End Sub

Code:

1
2
3
4
5
Sub test1BIS()
'la meme que la TEST1 mais avec une varaible dans l'apel
 machin = "toto"
 Sheets(1).Shapes(1).OnAction = "'mamacro " & Chr(34) & machin & Chr(34) & "'"
End Sub

Code:

1
2
3
4
5
 
Sub test2()
'exemple avec plusieurs  arguments ecrit en dur dans l'apel
 Sheets(1).Shapes(1).OnAction = "'mamacro2 " & Chr(34) & "toto "","" titi "",""  riffifi ""'"
End Sub

Code:

1
2
3
4
5
6
7
Sub test2BIS()
'LA MEME QUE LA test2 MAIS AVEC DE VARIABLES INSTRUITES AVANT EN ARGUMENT
 machin1 = "toto"
 machin2 = "titi"
 machin3 = "riffifi"
  Sheets(1).Shapes(1).OnAction = "'mamacro2 " & Chr(34) & machin1 & """,""" & machin2 & """,""" & machin3 & "'"
End Sub

et les macros

Code:

1
2
3
4
5
6
Sub mamacro(argument)
MsgBox argument
End Sub
Sub mamacro2(argument1, argument2, argument3)
MsgBox argument1 & vbCrLf & argument2 & vbCrLf & argument3
End Sub

10/08/2017, 20h05
Pierre Fauconnier

1 pièce(s) jointe(s)

Citation:

Envoyé par patricktoulon

@pierre fauconnier
t
se sont des images png (picture) ses boutons et non des controls la procédure est lancée par le onaction[...]

N'importe quoi... :roll:

Pièce jointe 302156
10/08/2017, 20h10
patricktoulon

re

n'importequoi?

Citation:

J'ai une feuille avec beaucoup de bouton (images PNG)... chaque boutons à une action différentes, je dois donc créer autant de module qu'il y a de bouton...

e

et ma sœur elle bat le beurre
10/08/2017, 20h11
parmi

@Patrick,
je suis d'accord avec Pierre là-dessus.
Il n'y a qu'à affecter une macro à chaque image et ça suffit, non?
10/08/2017, 20h14
Pierre Fauconnier

Patrick,

Mon illustration montre une image (png ou autre n'a aucune importance) que tu peux connecter via Affecter une macro (qui est l'équivalent de OnAction par programmation, soit dit en passant).

Dès lors, tu peux connecter la png sur n'importe quelle procédure sans arguments d'un module standard, et il est plus simple, selon moi, de connecter chaque bouton sur une procédure qui lui est propre, plutôt que de travailler à coup de Select case sur application.Caller...

Avant de contredire un contributeur, tâche de tester la solution qu'il propose... En général, lorsque je donne une solution, c'est qu'elle fonctionne, je n'ai pas dit que c'était la meilleure... ;) )
10/08/2017, 20h17
patricktoulon

re

et alors!!! affecter une macro tu le fait comment en vba ?

ONACTION!!!!

d'autant plus que sa demande est claire il veut simplifier avec une seule macro même si ca ne convient pas a ton étique

conclusion les seules options qu'il a c'est application.caller ou les arguments dans l'appel et la fonction appelée

tu peux tourner cela dans tout les sens que tu veux

edit:

et mince on se croisent

je contredis pas le fait que ca fonctionne, mais ce n'est pas la réponse qu'il attend relis la demande

il veux simplifier avec une seule fonction bien que je te l'accorde il c'est mal exprimé il confond visiblement modules et macro/fonctions

mais dans sa demande il précise trouver le moyen d'identifier le boutons(image) cliqué ces intentions sont donc relativement claires
10/08/2017, 20h29
Pierre Fauconnier

Oui ben désolé, c'est parce tu t'exprimes mal...

Citation:

Envoyé par patricktoulon

@pierre fauconnier
t
se sont des images png (picture) ses boutons et non des controls la procédure est lancée par le onaction

Non, la procédure n'est pas lancée par le Onaction, elle est affectée par le OnAction.

Citation:

Envoyé par patricktoulon

il n'y a pas d'évènement pour ces objects a part le click par le onaction
c'est donc soit application.caller soit les arguments pour le onaction

Ah? Il y a un évènement Click sur un contrôle image de formulaire? Intéressant, faudra que tu me montres, je suis impatient...

Maintenant, on peut effectivement affecter par macro la même procédure (ou pas d'ailleurs) à des images et lancer un select case dessus, mais si on veut bien programmer, même avec un select case, il faudra de toute façon écrire une procédure propre à chaque contrôle et l'appeler en fonction du case. C'est pourquoi je préconise d'affecter directement la bonne procédure à chaque bouton et de se passer d'une procédure unique. Et l'affectation se fait soit à la main, soit par macro, en systématisant alors les noms des procédures, créées par exemple avec le nom de l'objet image et en suffixant avec _Click. D'ailleurs, le fait que ce soit des images ne changent absolument rien à l'affaire, des boutons de formulaire seraient traités de la même manière.

Ce sera toujours plus propre qu'une unique procédure interminable qui fait tout et que l'on ne sait pas débuguer...
10/08/2017, 20h39
patricktoulon

1 pièce(s) jointe(s)

re
oui tout dépend du contexte
si les boutons font la même action avec un argument diffèrent je vois pas l'intérêt de faire 36 macros

un peu comme je l'ai montré dans mes exemples et encore ils ne sont pas très explicites

oui quand je dis le click par le onction (affecter une macro manuellement) c'est que le nom de la macro(nouvelle) porte un nom qui parle de lui même
on peu bien évidement affecter une sub existante
Pièce jointe 302160

Code:

1
2
3
4
5
6
7
Sub SetOnAction()
  Dim myShape As Shape
 
  For Each myShape In Feuil1.Shapes
    myShape.OnAction = myShape.Name & "_Click"
  Next
End Sub

En s'assurant que les noms des shapes ne contiennent pas d'espace. On pourrait s'en assurer par macro

Code:

1
2
3
4
5
6
7
Sub SetOnAction()
  Dim myShape As Shape
 
  For Each myShape In Feuil1.Shapes
    myShape.OnAction = Replace(myShape.Name & "_Click", " ", "_")
  Next
End Sub

10/08/2017, 20h47
Pierre Fauconnier

Citation:

Envoyé par patricktoulon

re
oui tout dépend du contexte
si les boutons font la même action avec un argument diffèrent je vois pas l'intérêt de faire 36 macros

[...]

Là, je n'ai rien à dire, c'est effectivement une question de contexte, mais il faudra tout de même que les case tiennent compte des arguments différents...

On en revient alors à la norme de programmation qui veut qu'une procédure/fonction n'ait qu'une responsabilité. Si effectivement, les boutons doivent faire exactement la même chose mais avec un paramètre différent, ok pour une seule macro pour tous (encore faudra-t-il récupérer l'argument, qui devra forcément dépendre de l'image, qui ne possède pas de Tag, et donc je ne vois pas bien où on stockera la valeur de cet argument, sauf coder en dur dans les cases, à utiliser un tableau clé/valeur ou à monter une usine à gaz avec une feuille qui contiendrait une liste clé/valeur). Donc ça me paraît un peu foireux quand même et probablement plus délicat à mettre en place qu'une fonction par bouton.

Mais bon, sur ce point-là, je peux te rejoindre quant au contexte qui pourrait avoir une certaine importance...

1 pièce(s) jointe(s)

comme je le disais tout depent du contexte

demo une seule macro qui n'a rien de compliquer a deboguer

Code:

1
2
3
4
5
6
7
8
9
10
Sub SetOnAction()
    Dim myShape As Shape, rng As Range
    For i = 1 To 3
        Set rng = Range(Cells(1, i), Cells(3, i))
        ActiveSheet.Shapes(i).OnAction = "'total " & Chr(34) & rng.Address & Chr(34) & "'"
    Next
End Sub
Sub total(add)
    MsgBox Application.WorksheetFunction.Sum(Range(add))
End Sub

Pièce jointe 302161

10/08/2017, 21h07
Pierre Fauconnier

Citation:

Envoyé par patricktoulon

comme je le disais tout depent du contexte [...]

Oui, dans ce cas précis que nous rencontrons tous les matins, tu auras raison :marteau:
11/08/2017, 09h19
CrasherSEP

Merci pour vos réponses et conseils :-)