cellule à cocher

[clautu]

Bonjour à tous

Je voudrais savoir si on peut convertir une cellule en case à cocher pour que d'un simple click dans la cellule, apparaisse la valeur 1 et d'un autre click la valeur 1 disparaisse. Comme une case à cocher mais dans une cellule. Comme j'ai plusieurs centaines de cellules je ne veux pas être obligé de créer une case pour chaque cellule
J'utilise cette formule qui fonctionne bien mais ça fonctionne avec le double clic et je ne peux effacer qu'en utilisant suppression.
SIZE="2"]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(ActiveCell, Range("d4:ag110")) Is Nothing Then
ActiveCell.FormulaR1C1 = "1"
End If[/SIZE][/SIZE]
Mois je voudrais que ca fonctionne d'un simple click et que la valeur puisse apparaitre et disparaisse d'un simple click
Quelqu'un aurait une solution
Merci

 

[Excel-lent]

Re : cellule à cocher

Bonsoir Clautu,

Voici ci-joint un début de réponse.

Lorsque tu clic sur une cellule de la première colonne, il écrit dans la cellule sélectionné le chiffre 1.

Bonne réception

 

[13GIBE59]

Re : cellule à cocher

Bonjour, Clautu, bonjour Excel-lent, bonjour le forum.

Clautu, essaie le fichier joint qui utilise la fonction Iif (équivalent de la fonction SI en vba)

A +

JB

 

[Guest]

Re : cellule à cocher

Bonjour Clautu, Exel-Lent,

essaie ceci en remplacement des lignes de codes que tu as données plus haut.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Intersect(ActiveCell, Range("d4:ag110")) Is Nothing Then
  'Met 1 ou "" dans la cellule
  Target = IIf(Target.Text = vbNullString, 1, vbNullString)
 End If
End Sub

A+

 

[CB60]

Re : cellule à cocher

Bonjour

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target = "" Then
Target = 1
Else
Target = ""
End If
End Sub

 

[clautu]

Re : cellule à cocher

Bonsoir à tous,
Je vous remercie infiniement, C'est tout à fait ce que je voulais.
Le seul petit probleme et je ne sais pas si on peut y remédier c'est que le chiffre 1 apparait aussi lorsque j'utilise les flèches Haut, bas ,gauche et droite.
Mais c'est un détail. Il faut dire que je monte ce fichier pour des collègues qui ne sont pas forts en informatique. Donc plus c'est simple d'exécution mieux c'est.
Je vous suis très reconnaissant pour les efforts que vous m'avez apportés.
Merci Mille fois.