XL 2013 Macro si changement dans case à cocher

[Yvan1]

Bonjour,
J'au un tableau de plus de 100 lignes ayant chacune une case à cocher.
Je veux qu'une macro se lance si la cellule liée à la case à cocher change.
J'avais inséré le code suivant :

'Private Sub Worksheet_Change(ByVal Target As Range)

' If Not Intersect(Target, [AO3:AP416]) Is Nothing Then
' MsgBox "Changement"
' Else
' End If

'End Sub

Mais cela ne fonctionne pas étant donné qu'il n'y a pas d'action sur la cellule concernée !!!

Quelqu'un a-t-il une idée ?

Merci d'avance,

Yvan

 

[wDog66]

Bonjour Yvan

Pour ce genre de projet, on préfère en général mettre un "X" dans une cellule
fichier plus léger et moins problématique à utiliser

Y avez-vous pensé ?

A+

 

[Yvan1]

Pas faux.
Je voulais à la base quelque chose de plus "pro", mais ça peut être une idée s'il n'y a pas mieux...
Merci de votre suggestion.
Bonne fin de journée,

 

[gbinforme]

Bonjour
Avec la police Wingdings et une liste validation tu peux obtenir le même effet qu'une case à cocher.
Je t'ai mis une colonne avec cette procédure.
Sinon il faut passer par un module de classe pour gérer tes cases.

 

[Yvan1]

Parfait. J'en étais arrivé au même résultat, mais sans la liste de validation.
Merci de ton temps.
Très bonne fin de journée,

 

[Phil69970]

Bonjour à tous

@Yvan1

Un peu à la bourre mais je l'ai fait je le poste
Sans police wingding ni liste de validation
Juste en cliquant dans la cellule choisie
Merci de ton retour

 

[Yvan1]

Top. Je passais par un double-clique, mais le simple changement de sélection est mieux.
Merci beaucoup.
Très bonne fin de journée,