case à cocher (ActiveX)

[meldja]

Re bonjour,
Je viens d'apprendre à renvoyer une valeur en cochant une case d'option ou une case à cocher.
Ma question : est-il possible de renvoyer une autre valeur quand la case à cocher est déccochée.
Du style, si je coche la case à cocher, ça me renvoie la valeur 0 en A1
et si je la décoche, ça me renvoie la valeur 0 en A1
Merci d'avance

 

[Pierrot93]

Re : case à cocher (ActiveX)

Re

essaye peut être cpmme ceci :

Private Sub Workbook_Open()
Sheets("nomdetafeuille").Protect DrawingObjects:=False, Contents:=True, UserInterfaceOnly:=True
End Sub

nom de la feuille à adapter

 

[meldja]

Re : case à cocher (ActiveX)

Ok, avec la déprotection des cellules liées ça marche nickel pour le dernier code que j'ai testé :
Private Sub Workbook_Open()
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, UserInterfaceOnly:=True
End SubPrivate Sub Workbook_Open()
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, UserInterfaceOnly:=True
End Sub
Merci, je vais quand même fermé le fichier et le réouvrir pour voir si ça marche toujours.

 

[meldja]

Re : case à cocher (ActiveX)

Pour info,
le code de Dull marche nickel après que j'ai déprotégé les cellules où sont renvoyées les valeur. Voici son code si quelqu'un est intéressé :
Private Sub Worksheet_Activate()
ActiveSheet.Protect UserInterfaceOnly:=True
End Sub
Fallait y penser : déprotéger les cellules destination...LaRaoullah koitlabillaï
Merci tout le monde

 

[meldja]

Re : case à cocher (ActiveX)

Je tiens à rajouter que ce site m'a apporté énormément grâce à la compétence et au dévouement des participants. J'en remercie tout les membres actifs.