XL 2013 Extraire le numéro de ligne d'une case à cocher

[degards]

Bonjour à vous !!

Dans une feuille de calcul, j'ai inséré des case à cocher dans une colonne. Ces dernières sont reliées à la cellule où elle se trouve. Quand je la coche, une macro exécute quelques fonctions et tout fonctionne correctement. Par contre il arrive parfois que l'on doivent insérer une ligne, ce qui fait en sorte que toutes les cases à cocher descendent vers le bas. Les cellules reliées suivent par la même occasion sauf que ma macro ne suit pas bien sûr. Est-il possible de faire extraire le numéro de ligne de la cellule relié à la case à cocher afin de l'insérer dans ma macro et que le tout suivent. Je sais que l'erreur se trouve dans ce qui est souligné et en gras mais j'ignore comment faire

Voici l'Extrait de ma macro que je dois modifier :

Sub check() '
'numero de la case a cocher

x = Replace(Application.Caller, "Case ", "")

'derniere ligne vide de la colonne O
xx = Range("o" & Rows.Count).End(xlUp).Row + 1

'Si la case est cochée
If Range("F" & x + 7) Then
'demander le texte
y = InputBox("Inscrire les détails de l'événement ?")
'ecrire en colonne K
Range("p" & xx) = y
'ecrire en colonne J
Range("o" & xx) = Range("c" & x + 7)
Range("o" & xx & "" & xx).Select

'Si la case est decochée
Range("F" & x + 7) = True
End If

Merci à l'avance de votre aide

 

[job75]

Bonjour degards,

Le numéro de ligne de la case à cocher qui déclenche la macro sera donné par :

lig = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row

A+

 

[degards]

Merci beaucoup pour votre réponse cela à corriger mon problème. Désolé du délai mais je n’avais pas eu le temps de m’occuper du retour que vous m’aviez donné. Merci encore ,!!