A voir également:
- Comment savoir quelle macro est affectée à un bouton
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Comment débloquer un bouton enfoncé - Forum Samsung
- Comment faire une capture d'écran sur un samsung sans bouton ? - Guide
- Bouton on/off comment savoir - Forum Windows 10
- Comment debloquer un bouton enfoncé - Forum iPhone
6 réponses
une petite astuce simple : définissez le nom de la macro en variable au début de chacune d'elle ... ensuite mettez ce nom dans une cellule ... de ce fait, selon que vous lanciez une macro ou une autre par les boutons, vous serez fixé ;)
Bonjour,
Pour chaque bouton ne mettre dans le code qu'une valeur dans une variable btn et appeler la macro commune. La macro commune testera cette variable.
eric
Pour chaque bouton ne mettre dans le code qu'une valeur dans une variable btn et appeler la macro commune. La macro commune testera cette variable.
eric
Re,
une fonction ou un autre sub.
ex:
eric
une fonction ou un autre sub.
ex:
Dim btn As Integer
Private Sub CommandButton1_Click()
btn = 1
commun
End Sub
Sub commun()
If btn = 1 Then
'...
End If
'...
End Sub
eric
Merci pour ta réponse mais, si je puis me permettre, un peu d'optimisation serait un plus.
Avec ton code j'écrirais plutot.
Dim btn As Integer
Private Sub CommandButton1_Click()
btn = 1
commun
End Sub
Sub commun()
Select case btn
Case 1
(Actions)
Case 2
(Actions)
'...
End Select
'...
End Sub
Mais j'ai fait sans variable Btn, et sans Select, voilà ce que ça donne
Private Sub CommandButton1_Click()
Commun(1)
End Sub
Sub commun(Num as Byte)
(Actions, par exemple msgbox chr(Num + 64)
End Sub
Merci pour tes lumières.
Avec ton code j'écrirais plutot.
Dim btn As Integer
Private Sub CommandButton1_Click()
btn = 1
commun
End Sub
Sub commun()
Select case btn
Case 1
(Actions)
Case 2
(Actions)
'...
End Select
'...
End Sub
Mais j'ai fait sans variable Btn, et sans Select, voilà ce que ça donne
Private Sub CommandButton1_Click()
Commun(1)
End Sub
Sub commun(Num as Byte)
(Actions, par exemple msgbox chr(Num + 64)
End Sub
Merci pour tes lumières.
Bonjour tt le monde
Si tu crées tes boutons avec la barre d'outils "formulaire"
What Else ?
Si tu crées tes boutons avec la barre d'outils "formulaire"
sub macro_unique() choix=Application.Caller 'choix est affecté du nom du bouton sur lequel tu as cliqué... select case choix etc
What Else ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Désolé, je viens d'essayer avec 2 boutons "formulaire"
les deux affectés à la m^me macro
Sub unique()
application.caller
end sub
me renvoie bien le nom sur bouton sur lequel j'ai cliqué
si tu utilises des boutons "contr^le", tu peux le faire je crois avec un module de classe, mais tu peux aussi mettre tes boutons dans un userform et boucler jusqu'à celui qui a le focus ou encore un combobox (sur userform ou feuille) avec les 26 lettres....
autrement pourquoi ne pas utiliser un tableau de cellules en utilisant Worksheet_selection change
les deux affectés à la m^me macro
Sub unique()
application.caller
end sub
me renvoie bien le nom sur bouton sur lequel j'ai cliqué
si tu utilises des boutons "contr^le", tu peux le faire je crois avec un module de classe, mais tu peux aussi mettre tes boutons dans un userform et boucler jusqu'à celui qui a le focus ou encore un combobox (sur userform ou feuille) avec les 26 lettres....
autrement pourquoi ne pas utiliser un tableau de cellules en utilisant Worksheet_selection change
As tu trouvé une solution, si oui, pourrais tu me la faire partager.
Par avance, merci, et bien entendu je continue à chercher de mon coté.