Comment transformer les valeurs TRUE/FALSE en cases à cocher dans Excel ?

Supposons que vous ayez saisi des nombres dans deux colonnes. Si la valeur de la première colonne est supérieure à celle de la deuxième, affichez VRAI ; sinon, affichez FAUX, comme le montre la capture d’écran ci-dessous. Vous pouvez désormais modifier facilement la formule pour transformer ces valeurs VRAI ou FAUX en cases à cocher dans Excel.

Remplacez la formule d’origine par =IF(original_formula,«þ»,«¨»)

1. Dans cet exemple, j’utilise la formule =B3>C3 pour comparer les valeurs des deux colonnes. Je vais donc ajuster la formule d’origine comme indiqué ci-dessous, puis étirer la poignée de recopie vers les autres cellules.

=IF(B3>C3,«þ»,«¨»)

2. Conservez les cellules contenant la formule sélectionnées, cliquez avec le bouton droit, puis choisissez Définir le format des cellules dans le menu contextuel.

3. Dans la boîte de dialogue Définir le format des cellules, accédez à l’onglet Police, sélectionnez Windings dans la liste déroulante Police, puis cliquez sur le bouton OK.

Vous verrez désormais les caractères spéciaux affichés sous forme de cases à cocher, cochées ou non. Voir la capture d’écran :

Cette section présente une macro VBA qui transforme facilement plusieurs valeurs TRUE et FALSE en cases à cocher interactives dans Excel. Suivez ces étapes :

1. Sélectionnez les cellules contenant « TRUE » et « FALSE » que vous souhaitez transformer en cases à cocher.

2. Appuyez simultanément sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

3. Cliquez sur Insertion > Module, puis collez le code VBA ci-dessous dans la nouvelle fenêtre du module.

VBA : Convertir TRUE et FALSE en contrôles de cases à cocher dans Excel

Sub ConvertTrueFalseToCheckbox()
Dim xCB As CheckBox
Dim xRg, xCell As Range
Application.ScreenUpdating = False
On Error Resume Next
Set xRg = Selection
For Each xCB In ActiveSheet.CheckBoxes
xCB.Delete
Next
For Each xCell In xRg
If (UCase(xCell.Value) = "TRUE") Or (UCase(xCell.Value) = "FALSE") Then
Set xCB = ActiveSheet.CheckBoxes.Add(xCell.Left, xCell.Top, cDblCheckboxWidth, xCell.Height)
xCB.Value = xCell.Value
xCB.LinkedCell = xCell.Address
xCB.Text = ""
End If
Next
Application.ScreenUpdating = True
End Sub

4. Appuyez sur la touche F5 ou cliquez sur le bouton Exécuter pour exécuter ce code VBA.

Toutes les cellules sélectionnées contenant TRUE et FALSE seront automatiquement converties en cases à cocher : TRUE devient une case cochée, FALSE une case décochée. Voir la capture d’écran :

Si vous avez installé Kutools pour Excel, vous pouvez utiliser sa fonctionnalité Insertion groupée Case à cocher pour insérer plusieurs contrôles de cases à cocher en une seule opération dans Excel.

Kutools pour Excel – Plus de 300 outils pratiques pour Excel inclus. Profitez d’un essai gratuit complet pendant 60 jours, sans carte bancaire requise !Obtenez-le dès maintenant

1. Sélectionnez les cellules contenant « TRUE » et « FALSE » que vous souhaitez convertir en cases à cocher, puis cliquez sur Kutools > Insertion > Insertion groupée Case à cocher.

2. Une case à cocher est désormais insérée dans chaque cellule sélectionnée. Cochez-les manuellement selon vos besoins.