Lorsque vous travaillez dans VBA, l’une des choses que vous pouvez créer est connue sous le nom de «formulaire utilisateur». Ces formulaires vous permettent de créer essentiellement vos propres boîtes de dialogue. Vous pouvez ajouter de nombreux types de contrôles différents à un formulaire utilisateur, si vous le souhaitez. Par exemple, vous pouvez ajouter des étiquettes, des zones de texte, des listes déroulantes, des boutons radio et de nombreux autres contrôles.

Certains des contrôles que vous pouvez redimensionner; d’autres, vous ne pouvez pas. Une case à cocher ne peut pas être redimensionnée. Bien que vous puissiez modifier la taille de police utilisée pour l’étiquette à côté de la case à cocher, vous ne pouvez pas redimensionner la case à cocher elle-même.

Si vous trouvez les cases à cocher dans vos formulaires utilisateur trop petites à votre goût, vous pouvez les «contourner» en simulant une case à cocher. Pour ce faire, créez une étiquette au lieu d’une case à cocher. Ensuite, modifiez les propriétés de l’étiquette afin qu’elle ait un arrière-plan transparent et que la police utilisée soit Wingdings. Vous devez également vous assurer que la police est définie sur une grande taille, telle que 20 ou 26 points.

Maintenant, double-cliquez sur votre étiquette, ce qui devrait ouvrir une fenêtre de code. L’événement que vous programmez est l’événement Click pour l’étiquette, ce qui signifie qu’il sera exécuté à chaque clic sur l’étiquette. Utilisez ceci comme code:

Private Sub Label1_Click()

If Label1.Caption = Chr(254) Then         Label1.Caption = Chr(168)

Else         Label1.Caption = Chr(254)

End If End Sub

Dans la police Wingding, Chr (254) est une case cochée et Chr (168) est une case sans coche. Lorsque vous exécutez le formulaire utilisateur et cliquez sur l’étiquette, il bascule entre une case vide et une case cochée. Vous pouvez également ajouter un autre code à l’événement Click qui effectue d’autres tâches, si nécessaire.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (8566) s’applique à Microsoft Excel 2007, 2010, 2013, 2016, 2019 et Excel dans Office 365. Vous pouvez trouver une version de cette astuce pour l’ancienne interface de menu d’Excel ici:

link: / excel-Resizing_Checkboxes [Redimensionner les cases à cocher].