Changement Valeur 1 à 0 et inversement lors d'un click

[thithib]

Bonjour,

Très grand débutant sur excel, logiciel auquel je commence à m'intéresser depuis quelques jours seulement, je cherche à savoir par quel moyen il est possible d'effectuer un changement de valeur binaire d'une cellule par un simple clic sur celle-ci?
Par exemple sur A1, il y a la valeur 0, je clique dessus, la valeur devient 1, puis si je re-clique dessus, A1 redevient 0 à nouveau.

J'imagine déjà une réponse très simple, mais je n'ai jamais eu à faire aux macros..

 

[Staple1600]

Re : Changement Valeur 1 à 0 et inversement lors d'un click

Bonsoir

Une presque solution du fainéant que parfois je suis
Je saisis 1
CTRL+Z
Je saisis 0
CTRL+Z

 

[JCGL]

Re : Changement Valeur 1 à 0 et inversement lors d'un click

Bonjour à tous,

Dans un module feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A1:A30]) Is Nothing Or Target.Count > 1 Then Exit Sub
Target = IIf(Target = 1, 0, 1)
End Sub

A+ à tous

 

[bcharef]

Re : Changement Valeur 1 à 0 et inversement lors d'un click

Bonsoir thithib et bienvenue parmi nous.
Salut Staple1600 & JCGL,
Bonsoir à toutes et à tous.

Un essai sans VBA, dans l'espoir qu'il conviendra au problème évoquée.

Salutations.

BCharef

 

[thithib]

Re : Changement Valeur 1 à 0 et inversement lors d'un click

Merci à tous pour vos suggestions
@stapple1600: c'est pour éviter de faire à répétition cette manip que j'ai lancé cette discussion
@JCGL: super merci beaucoup, en effet c'était plutôt simple!
@BCharef: merci pour la proposition, c'est vrai que je n'y avais pas pensé