Comment convertir vrai/faux en cases à cocher dans Excel ?

Disons que vous avez listé des nombres dans deux colonnes, si le nombre dans la première colonne est plus grand que celui dans la deuxième colonne, affichez VRAI, sinon affichez FAUX comme indiqué dans la capture d'écran ci-dessous. Maintenant, vous pouvez modifier la formule pour convertir facilement VRAI ou FAUX en marques de case à cocher dans Excel.

Changez la formule originale par =SI(formule_originale,"þ","¨")

1. Dans ce cas, j'utilise la formule =B3>C3 pour comparer les nombres dans deux colonnes. Par conséquent, je vais changer la formule originale comme suit, puis faire glisser la poignée de recopie automatique vers d'autres cellules.

=SI(B3>C3,"þ","¨")

2. Gardez les cellules de formule sélectionnées, faites un clic droit, puis sélectionnez Format de cellule dans le menu contextuel.

3. Dans la boîte de dialogue Format de cellule, allez à l'onglet Police , sélectionnez Windings dans la liste déroulante Police, puis cliquez sur le bouton OK.

Maintenant, vous verrez que les caractères spéciaux sont convertis en cases à cocher cochées et non cochées. Voir la capture d'écran :

Cette section présentera une macro VBA pour convertir plusieurs valeurs vrai et faux en contrôles de case à cocher dans Excel. Veuillez procéder comme suit :

1. Sélectionnez les cellules égales à « VRAI » et « FAUX » que vous convertirez 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 Module.

VBA : Convertir VRAI et FAUX en contrôles de case à 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 cette macro VBA.

Ensuite, vous verrez que tous les VRAI et FAUX sélectionnés sont convertis en contrôles de case à cocher. VRAI est converti en une case à cocher cochée, et FAUX est converti en une case non cochée. Voir la capture d'écran :

Si vous avez installé Kutools pour Excel, vous pouvez utiliser sa fonction Insérer des cases à cocher en lot pour insérer plusieurs contrôles de case à cocher en bloc en un seul clic dans Excel.

Kutools pour Excel - Comprend plus de 300 outils pratiques pour Excel. Essai gratuit complet de 60 jours sans carte de crédit requis ! Obtenez-le maintenant

1. Sélectionnez les cellules égales à « VRAI » et « FAUX » que vous convertirez en cases à cocher, puis cliquez sur Kutools > Insérer > Insérer des cases à cocher en lot.

2. Maintenant, un contrôle de case à cocher est inséré dans chaque cellule sélectionnée. Vous pouvez cocher manuellement ces cases à cocher selon vos besoins.