Case à cocher

[chipriote]

Tout d'abord bonjour à toutes et à tous,

Est-il possible de rendre une cellule cochable sur le modèle des cases à cocher? Ceci afin de m'éviter à avoir à liée des cellules à chacune de mes cases à cocher! (190 cases à cocher à liée, c'est long et fastidieux)

Merci à tous pour vos réponses

 

[Staple1600]

Re : Case à cocher

Bonjour


En utilisant VBA et la police Marlett.
A mettre dans le code de la feuille
(ici dans l'exemple plage de cellules concernée: A1:A100)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'source:ozgrid
   If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
       Cancel = True 'Prevent going into Edit Mode
       Target.Font.Name = "Marlett"
        If Target = vbNullString Then
        Target = "a"
         Else
         Target = vbNullString
          End If
    End If
End Sub

EDITION: bonjour Hasco

 

[Guest]

Re : Case à cocher

Comme ceci?

 

[chipriote]

Re : Case à cocher

c'est exactement ce qu'il me fallait merci à vous deux