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
essaie ceci en remplacement des lignes de codes que tu as données plus haut.
Code:
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
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.