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

degards

XLDnaute Junior
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 & ":p" & xx).Select

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

Merci à l'avance de votre aide
 

job75

XLDnaute Barbatruc
Bonjour degards,

Le numéro de ligne de la case à cocher qui déclenche la macro sera donné par :
Code:
lig = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row
A+
 

degards

XLDnaute Junior
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 ,!!
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas