Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
[Résolu] Recuperation des cordonnes d'un bouton dans la feuil "ligne et colonne"
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
Re : Recuperation des cordonnes d'un bouton dans la feuil "ligne et colonne"
Bonjour à tous,
TotoTiti🙂
Pierrot🙂
Si c'est un bouton de formulaire:
Code:
Sub Bouton2_Clic()
Dim shp As Shape
'Contrôler si c'est bien un objet shape qui a appelé la macro
If TypeName(Application.Caller) <> "String" Then GoTo Fin
On Error GoTo Fin
With ActiveSheet.Shapes(Application.Caller)
MsgBox "Ligne: " & .TopLeftCell.Row & vbCrLf & "Colonne: " & .TopLeftCell.Column
End With
Fin:
End Sub
Si c'est un bouton ActiveX:
Code:
Private Sub CommandButton1_Click()
With CommandButton1
MsgBox "Ligne: " & .ShapeRange(1).TopLeftCell.Row & vbCrLf & "Colonne: " & .ShapeRange(1).TopLeftCell.Column
End With
End Sub
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD