XL 2013 Macro si changement dans case à cocher

Yvan1

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

Pièces jointes

  • Test Cases à cocher.xlsm
    31.8 KB · Affichages: 5

gbinforme

XLDnaute Impliqué
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.
 

Pièces jointes

  • Test Cases à cocher.xlsm
    30.3 KB · Affichages: 4

Phil69970

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

Pièces jointes

  • Imitation Cases à cocher V1.xlsm
    20.4 KB · Affichages: 10

Discussions similaires

Statistiques des forums

Discussions
313 197
Messages
2 096 107
Membres
106 500
dernier inscrit
mmontagu