VBA Excel: mise en ligne de cliqué bouton

Je suis en train de faire un bouton dans Excel qui copie une plage de cellules à partir de l'actif classeur vers un autre classeur. La copie de cette gamme fonctionne parfaitement quand je spécifier une plage fixe, mais je suis perplexe sur la façon de déterminer la ligne de l'cliqué bouton.

Chaque ligne contient 7 ou si les cellules, et le 8e de cellules contient une forme avec une macro attachés (le bouton).
Lorsque l'utilisateur appuie sur ce bouton, le 7 cellules sur la même ligne que la ligne contenant le bouton enfoncé besoin d'être copiés.

À l'aide de ActiveCell est d'aucune utilité, car en appuyant sur le bouton ne pas que la cellule active. J'ai cherché autour de beaucoup, mais je n'arrive pas à trouver comment faire pour obtenir cette valeur.
Une fois que j'ai le numéro de ligne de l'cliqué bouton je peux comprendre le reste sur mon propre.

OriginalL'auteur Jort | 2011-06-05

20

Chaque Shape a TopLeftCell de la propriété. Il contient une cellule au sein de laquelle le coin supérieur gauche de la forme réside.

Je vois, merci pour la réponse. Je me demandais également comment obtenir le nom de la forme qui a été cliqué, mais après quelques recherches j'ai trouvé ceci: ActiveSheet.Les Formes(De L'Application.L'appelant).Nom. Je vais essayer de travailler avec la propriété TopLeftCell de la forme et de vous permettre de savoir quand il est en marche. Merci encore pour me pointer dans la bonne direction!
Suis entièrement de travail: MsgBox("Ligne d'appuyer sur le bouton:" & ActiveSheet.Les Formes(De L'Application.L'appelant).TopLeftCell.De ligne). Merci encore!

OriginalL'auteur GSerg

Il y a une excellente solution mentionnée ici:
http://www.ozgrid.com/forum/showthread.php?t=33351&p=167317#post167317

D'or code copié à partir du post ci-dessus:

Sub Mainscoresheet() 
     ' Mainlineup Macro
    Dim b As Object, cs As Integer 
    Set b = ActiveSheet.Buttons(Application.Caller) 
    With b.TopLeftCell 
        cs = .Column 
    End With 
    MsgBox "Column Number " & cs 
End Sub

Très utile avec dynamicly généré boutons.

OriginalL'auteur FraggaMuffin

Excellente réponse. Btw, Il travaille également pour Rownumber!

'Same for rownumbers!
Sub Mainscoresheet() 
     ' Mainlineup Macro
    Dim b As Object, RowNumber As Integer 
    Set b = ActiveSheet.Buttons(Application.Caller) 
    With b.TopLeftCell 
        RowNumber = .Row
    End With 
    MsgBox "Row Number " & RowNumber 
End Sub

OriginalL'auteur Robert Nagtegaal

Vous devez vous connecter pour publier un commentaire.