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

degards

XLDnaute Occasionnel
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
 

Discussions similaires

Statistiques des forums

Discussions
311 540
Messages
2 080 523
Membres
101 234
dernier inscrit
Layani89