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

 

[Staple1600]

Re : case à cocher (ActiveX)

Re



Tu avais la réponse dans ton premier post
https://www.excel-downloads.com/threads/case-doption-controle-activex.89298/

Conseil our retrouver tes posts, utilises [Recherche] -> Noms d'utilisateurs

et saisi ton pseudo

 

[meldja]

Re : case à cocher (ActiveX)

Merci mille fois
et excuse pour mom manque d'attention, ça marche nickel.
et désolé de t'avoir fait répéter (je sauvegarde direct ta macro pour pas la perdre).
Encore merci

 

[meldja]

Re : case à cocher (ActiveX)

Encore une question si ce n'est pas trop du harcellement,
Quand je protège ma feuille et que j'essaie de cocher une case d'option, j'ai un message d'erreur et ça plante.
Précision, j'ai bien fait un clique droit sur la case, Format, Protection et décocher l'option Vérouillé
Merci d'avance

 

[Dull]

Re : case à cocher (ActiveX)

Salut meldja, Staple, le forum

Peut-être en mettant ces lignes de code

Private Sub Worksheet_Activate()
ActiveSheet.Protect UserInterfaceOnly:=True
End Sub

Bonne Journée

 

[Staple1600]

Re : case à cocher (ActiveX)

Re


Voir par ici:
https://www.excel-downloads.com/threads/proteger-avec-userinterfaceonly.61191/


edit: bonjour Dull, houps collision

 

[Pierrot93]

Re : case à cocher (ActiveX)

Bonjour Meldja, Staple, Dull

si j'ai bien compris, lorsque tu protèges ta feuille, coches "modifier les objet", disponible à partir de version 2002 si je ne m'abuse...

bon après midi
@+

 

[meldja]

Re : case à cocher (ActiveX)

Merci pour la réponse, mais après test, j'ai toujours un plantage

 

[Pierrot93]

Re : case à cocher (ActiveX)

Re

quel test ? tu as 2 propositions....

 

[meldja]

Re : case à cocher (ActiveX)

La proposition de Dull n'a pas marché, mais peut être que je n'ai pas recopier les lignes de codes au bon endroit, je les ai recopié dans :
VBAProject()
Microsoft Excel Objets
Feuil1 (Feuil1)
Quand à la deuxième solution, je suis toujours aussi coincé puisque je n'y capte pas grand chose.
Merci si quelqu'un à des éclaircissement.

 

[meldja]

Re : case à cocher (ActiveX)

Pardon,
La proposition de Dull marche nickel, je l'ai simplement recopier dans Thiswoorkbook, et c'est bon !!
Dull, fais gaffe, quand tu t'adresses à des amateurs, prend conscience qu'il existe des niveaux proches du zéro, à qui il faut tout expliquer.
En tout cas, encore merci pour tes réponses !!

 

[meldja]

Re : case à cocher (ActiveX)

Je reviens sur ce que j'ai dit, ça semblait marcher, mais après fermeture et réouverture du fichier, ça marche pas.
Retour à zéro, comment faire pour que la feuille soit protégée est que les contrôles marchent toujours ?
Merci si résolution du pbme.

 

[Pierrot93]

Re : case à cocher (ActiveX)

Re

essaye peut être comme ci dessous :

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

@+

 

[cabsen]

Re : case à cocher (ActiveX)

Tu as décoché l'option de protection de ta case à cocher mais il faut aussi retirer l'option de protection de la cellule liée à ta case à cocher avant d'activer le verrouillage de la feuille.

 

[meldja]

Re : case à cocher (ActiveX)

Non
Toujours Erreur d'éxecution "1004" et ça plante (je l'ai mis dans ThisWoorkBooks)