Taille Checkbox sur Feuille

Question

Ceci n'est pas une question mais plutôt le fruit de mon imagination.

Face à un problême pour la taille de checkbox directement sur une feuille j'en suis venu à une petite solution que je partage pour futures recherches sur le forum.

On coche et décoche avec un double-clic.

On utilise la police WingDings

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Application.Intersect(Target, ActiveCell) Is Nothing Then
        Cancel = True
         If ActiveCell.Value = "¨" Then
                    With Selection.Font
        .Name = "Wingdings"
        .Size = 20
    End With
   ActiveCell.Value = "þ"
           ElseIf ActiveCell.Value = "þ" Then
                    With Selection.Font
        .Name = "Wingdings"
        .Size = 20
      End With
   ActiveCell.Value = "¨"

    End If
              End If
End Sub

Dan · Answer

Comme dit souvent, évitez les cases à cocher (cela ne provoque que des soucis de mettre des objets sur les feuilles). Vu ce que vous faites, utilisez plutot le X avec le doubleclick. Cela donnera le même résultat avec l'utilisation de police wingdings Cordialement...