Case à cocher

chipriote

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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)
Code:
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
 
Dernière édition:

Discussions similaires

Réponses
2
Affichages
107

Statistiques des forums

Discussions
312 113
Messages
2 085 425
Membres
102 886
dernier inscrit
eurlece