La fonction VBA CBool permet de réaliser une macro pour renvoyer un booléen, soit une valeur 1 ou 0.
La fonction CBool
La fonction VBA CBool suit la syntaxe suivante :
CBool(variable)
Exemple de macro avec CBool
La macro
Sub macro()
Dim x, y
Dim Resultatx = Range("A1")
y = Range("B1")Resultat = CBool(x = y)
ActiveCell.Offset(0, 0).FormulaR1C1 = _
ResultatActiveCell.Offset(1, 0).Select
End Sub
Les données sources
| A | B | C | D | |
|---|---|---|---|---|
| 1 | 25 | 25 | ||
| 2 | ||||
| 3 |
Le résultat
| A | B | C | D | |
|---|---|---|---|---|
| 1 | 25 | 25 | VRAI | |
| 2 | ||||
| 3 |