Catégories
Macro VBA Conversion Macros VBA

VBA CBool() : macro pour renvoyer un booléen

Partager :

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 Resultat

x = Range("A1")
y = Range("B1")

Resultat = CBool(x = y)

ActiveCell.Offset(0, 0).FormulaR1C1 = _
Resultat

ActiveCell.Offset(1, 0).Select

End Sub

Les données sources

 ABCD
1 25 25  
2    
3    

Le résultat

 ABCD
1 25 25 VRAI 
2    
3