[VBA-E] gestion de bouton dynamique

Version imprimable

22/04/2007, 09h43
alorse

[VBA-E] gestion de bouton dynamique

Bonjour,

je cree des boutons dynamiquement. Tous ces boutons ont la meme legende "+" et referent a une meme macro. Mon probleme cest que qd je clique avec la souris sur un de ces boutons jaimerais retrouver le bouton en question et recuperer son nom ( name).

:?

Exemple :
Jai bouton1 et bouton2. Je clique sur bouton2. Ma macro doit savoir que cest le bouton2 sur lequel jai appuye.

Merci davance
22/04/2007, 09h59
dadavyvy

Bonjour et bienvenue sur le forum.

1/ C'est du VBA-Excel? du VBA-Word? ou autre?
2/ Quel est ton code qui génère tes boutons? Sont-ce des boutons formulaire ou des boutons ActiveX?

Pour le 1/, il suffit d'indiquer [VBA-E] ou [VBA-W] ou autre dans le sujet de ton topic.
Pour le 2/, n'oublie pas de mettre ton code dans des balises de code grâce au bouton http://www.developpez.net/forums/images/editor/code.gif pour une meilleure lisibilité du problème.

Cest du vba excel. Je suis debutante et je nai pas encore de code. je cree un bouton de cette facon :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
ActiveSheet.Buttons.Add(147.75, 207.75, 82.5, 59.25).Select
    Selection.OnAction = "un"
    ActiveSheet.Shapes("Button 4").Select
    Selection.Characters.Text = "Bouton 4"
    With Selection.Characters(Start:=1, Length:=8).Font
        .Name = "Arial"
        .FontStyle = "Normal"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With

Merci beaucoup

utilise Application.caller

Code:

1
2
3
Sub Un()
 MsgBox "Click sur bouton : " & Application.Caller
End sub

22/04/2007, 11h43
alorse

Merci beaucoup, ça marche !!!!