Discussion :

[Zuthos]

Bonjour,

J'ai une feuille de calcul avec plusieurs colonnes. Sur chaque colonnes, j'ai un bouton avec une macro.

Je souhaite que cette macro puisse repérer la colonne et la ligne ou est positionné le bouton.

J'ai essayé cette macro:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Sub position()
    Dim Bouton As Shape
    Set Bouton = Worksheets(1).Shapes(Application.Caller)
    MsgBox Bouton.TopLeftCell.Address(0, 0)
End Sub

Mais, lorsque je clique sur un bouton, il m'indique l'erreur suivante: L'élément portant ce nom est introuvableLa ligne 2 est mise en cause.

Quelqu'un a-t-il une solution ou même une piste à suivre?

Cordialement

[patricktoulon]

bonjour
d'abords il faut être plus précis
ces bouton c'est quoi des controls activX ou controls formulaire car c'est pas la même chose

[patricktoulon]

re
celle ci fonctionnera avec les activX ou control formulaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub position(Optional obj As Object = Nothing)
    If obj Is Nothing Then Set obj = ActiveSheet.Shapes(Application.Caller)
    MsgBox Worksheets(1).Shapes(obj.Name).TopLeftCell.Column
End Sub

l'evenement dans la feuille concernant les controls activX

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CommandButton1_Click()
position CommandButton1
End Sub

pour les control formulaire tu n'a cas affecter la macro position au bouton tout simplement

[Zuthos]

bonjour
d'abords il faut être plus précis
ces bouton c'est quoi des controls activX ou controls formulaire car c'est pas la même chose

Bonjour,

Merci de votre aide.

Il s'agit en effet de controls activX.

[Zuthos]

re
celle ci fonctionnera avec les activX ou control formulaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub position(Optional obj As Object = Nothing)
    If obj Is Nothing Then Set obj = ActiveSheet.Shapes(Application.Caller)
    MsgBox Worksheets(1).Shapes(obj.Name).TopLeftCell.Column
End Sub

l'evenement dans la feuille concernant les controls activX

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CommandButton1_Click()
position CommandButton1
End Sub

Merci beaucoup de votre aide.

Cela fonctionne.