vba bouton - trouver ce qui a été cliqué

J'ai attribué macro pour quelques boutons.

Comment puis-je trouver à l'intérieur de la macro quel bouton a été cliqué?

Je suis en train de faire en tant qu'utilisateur, où il peut entrer des peuples de la famille:

nom1:
nom1:

nom2:
nom2 appartenance: |ajouter des membres suivant|

Je souhaite que le bouton apparaisse toujours en dernière ligne de la dernière personne ajoutée.
Pour des raisons de simplicité, je pense que c'est mieux d'avoir 100 vide formes dans l'
feuille de mais tous invisibles au début.
Ensuite, lorsque l'utilisateur clique sur ajouter des membres suivant j'ai tout simplement faire suivant les lignes visibles,
et bouton déplacer à la prochaine personne. Mais pour ce faire j'ai besoin de savoir ma position actuelle.

Similaire avec la suppression, je voudrais faire des lignes invisibles au moment de le retirer bouton est cliqué.

nom1:
nom1: [supprimer]

nom2:
nom2 appartenance: [supprimer]

nom3:
surname3: |ajouter des membres suivant|

J'ai besoin de savoir qui de supprimer un bouton a été cliqué.

EDIT:
Trouvé dans le web - qu'en pensez-vous, semble être le meilleur /moyen

Dim r As Range
Set r = ActiveSheet.Buttons(Application.Caller).TopLeftCell
Range(Cells(r.Row, r.Column), Cells(r.Row, r.Column)).Select

Afin de clarifier votre montage, il semble que vous n'avez qu'un ensemble de boutons, mais vous garder en mouvement. Donc tout ce que vous devez savoir, c'est comment la position des boutons dans une rangée. Est ce que c'est?
J'nombre de "remove", et à la très et le bouton "ajouter".
OK, j'ai trouvé comment avoir le bouton, mais il semble que vous avez déjà trouvé. Vous pouvez simplifier l'instruction Select, mais, il a l'air bien.
la dernière ligne de simplifier à R.SELECT

OriginalL'auteur Gadolin | 2010-10-04

15

J'écris toujours des wrappers pour chaque bouton, puis d'appeler la macro en question.

Comme suit:
```
Public Sub StoreButton_Click()

  Call StoreTransValues(ActiveSheet)

End Sub
```
Si vous avez un seul bouton pour tout une seule page, vous pouvez juste obtenir la propriété ActiveSheet, et il sera le bouton sur la page.

Edit:

Voici le code à trouver et à utiliser le nom de l'appelant bouton:
```
Dim ButtonText As String

ButtonText = Application.Caller

ActiveSheet.Shapes(ButtonText).Delete
```
Vous utilisez l' .Méthode de déplacement pour déplacer le bouton.

Je ne peux pas simplement adapter votre proposition pour mon cas. J'ai encore besoin de savoir quelle est la position de cliqué sur le bouton, puis de trouver la ligne qui il est, et enfin supprimer par exemple, tous les 2 lignes ci-dessus.

OriginalL'auteur Lance Roberts

J'ai enfin trouvé la solution pour déterminer quel bouton dans une Feuille de calcul a été poussé. Le crédit est dû à Derk à http://www.ozgrid.com/forum/showthread.php?t=33351.

Mon dernier exemple de code:

Sub HereIAm()
    Dim b As Object
    Dim cs, rs As Integer
    Dim ss, ssv As String
    Set b = ActiveSheet.Buttons(Application.Caller)
    With b.TopLeftCell
        rs = .Row
        cs = .Column
    End With
    ss = Left(Cells(1, cs).Address(False, False), 1 - (ColNumber > 26)) & rs
    ssv = Range(ss).Value
    MsgBox "Row Number " & rs & "    Column Number " & cs & vbNewLine & _
        "Cell " & ss & "   Content " & ssv
End Sub

Si vous n'avez pas besoin de les cellules de l'étiquette, les Cellules(rs,cs).La valeur des œuvres.

OriginalL'auteur NeverLift

1

Puisque vous avez une macro câblé à votre bouton(s), je suppose que vous savez ce qui touche, c'est que l'utilisateur a cliqué. Pour obtenir l'emplacement de la touche, utilisez ceci:
```
ActiveSheet.Shapes("ButtonName").TopLeftCell.Address
```
Pour déplacer un bouton à un nouvel emplacement, utilisez ceci:
```
Dim NewAddress as Range
NewAddress = ActiveSheet.Cells(5, 5) 'Or where ever you need it to go
ActiveSheet.Shapes("ButtonName").Left = NewAddress.Left
ActiveSheet.Shapes("ButtonName").Top = NewAddress.Top
```
pas si vous simplifier le code en attribuant la même macro pour chaque bouton, dans lequel cas la macro neeeds être plus intelligent
A obtenu la position de votre réponse et l'a placé dans stackoverflow.com/a/8303944/2932994

OriginalL'auteur Nick Spreitzer

-2

Dim button as a string:

    button = ActiveSheet.Shapes(Application.Caller).Name

OriginalL'auteur pablo

Vous devez vous connecter pour publier un commentaire.