azerty6767
XLDnaute Junior
Bonjour,
Sur une feuille Excel, j'ai 10 shapes (ce sont des Check Boxes) sur les 10 premières lignes (à la colonne J).
Par exemple, lorsque je clique sur la Shape de la 8ème ligne, je souhaite stocker l'information suivante : "la shape sélectionnée se trouve à la ligne n°8).
Si je sélectionne une autre Shape (à la 10ème ligne), je souhaite stocker l'info : "la shape sélectionnée se trouve à la ligne n°10.
J'ai essayé ça :
mais le code ci-dessus fait la liste de toutes les shapes.
Or je ne souhaite connaître que le numéro de ligne de LA shape sélectionnée (pas toutes !!).
Quelqu'un pourrait m'aider svp ?
Merci d'avance,
Cordialement,
Olivier
Sur une feuille Excel, j'ai 10 shapes (ce sont des Check Boxes) sur les 10 premières lignes (à la colonne J).
Par exemple, lorsque je clique sur la Shape de la 8ème ligne, je souhaite stocker l'information suivante : "la shape sélectionnée se trouve à la ligne n°8).
Si je sélectionne une autre Shape (à la 10ème ligne), je souhaite stocker l'info : "la shape sélectionnée se trouve à la ligne n°10.
J'ai essayé ça :
Code:
''''' Dim maShape As Shape
''''' Dim C As Range
'''''
''''' For Each C In Range("J1:J200")
''''' For Each maShape In ActiveSheet.Shapes
''''' If Intersect(maShape.TopLeftCell, C) Is Nothing Then
''''' '
''''' Else
''''' MsgBox maShape.Name & " est avec " & C.Row
''''' Exit For
''''' End If
''''' Next maShape
''''' Next C
mais le code ci-dessus fait la liste de toutes les shapes.
Or je ne souhaite connaître que le numéro de ligne de LA shape sélectionnée (pas toutes !!).
Quelqu'un pourrait m'aider svp ?
Merci d'avance,
Cordialement,
Olivier
Dernière édition: