Discussion :

[Erinaceus1975]

Bonjour,
le code suivant :

Sub test()
Dim toto As Variant
toto = -1
If toto = True Then
Debug.Print "condition remplie"
Else
Debug.Print "condition non remplie"
End If
End Sub

renvoie "condition remplie", alors que tous les autres nombres renvoient "condition non remplie"
Quelqu'un sait-il pourquoi ? Cela peut causer des surprises dans le comportement du code !
Xavier

[Thumb down]

Bonjour,
False/True =0/-1
Fais ce test
msgbox True * 1

[Erinaceus1975]

Merci Thumb Down ! Je comprends mais je trouve cela piégeux.

Du coup, j'en appelle aux développeurs vba de ce forum. Quelle est la bonne pratique pour faire un test qui n'est satisfait que sur un booléen de valeur True ou le texte "VRAI" ?

If Range("A1") then...

ne fonctionne pas car si Range("A1") est un nombre (sauf 0), c'est satisfait

If Range("A1") = True then...

ne fonctionne pas car si Range("A1") est égal à -1, c'est satisfait

If Not IsNumeric(Range("A1")) And Range("A1") = True Then...

ne fonctionne pas car si Range("A1") = True, IsNumeric(Range("A1")) renvoit True (donc Not IsNumeric(...) renvoie FAUX

Je suis donc sur
If Not Application.WorksheetFunction.IsNumber(Range("A1")) And Range("A1") = True Then...
qui fonctionne

ça me semble un peu compliqué pour un besoin aussi simple !

Votre avis ?

[Philippe Tulliez]

Bonjour,
Un booléen ne peut pas être un texte.
Si vous faites un test booléen par rapport à la valeur contenue dans une cellule Excel, il suffit d'indiquer VRAI ou FAUX dans la cellule (pour les versions française d'excel) et TRUE ou FALSE (pour les version anglaise) et évidemment ce n'est pas du texte mais bien une valeur booléenne. A savoir que dans Excel, VRAI est égal à 1 contrairement au VBA ou il est égal à -1 mais bien entendu la conversion est faite au moment de la lecture
La valeur VRAI ou FAUX dans la cellule peut bien entendu être le résultat d'un test logique

[Thumb down]

If Range("A1").Text="Vrai" then...

[Erinaceus1975]

@Philippe Tulliez : je comprends que vous privilégiez des formules de type =si(A1=A2;"VRAI";"FAUX") plutôt que =A1=A2, de façon à toujours avoir du texte et non un booléen en cellule excel ?

@Thumb Down : excellent, ça fonctionne. Il faut juste modifier un peu la syntaxe : If Range("A1").Text = "VRAI" Then...
Dans ce cas, seul le booléen True et le texte "VRAI" passent (le texte "Vrai" ne passe pas)
Si on met = "Vrai", le booléen True ne passe pas.

Je remplace donc ma longue formule

If Not Application.WorksheetFunction.IsNumber(Range("A1")) And Range("A1") = True Then...

par

If Range("A1").Text = "VRAI" Then...

Merci !

[Erinaceus1975]

En résumé, d'après mes tests :

Dans Excel :

True = toutes valeurs numériques sauf 0
False = 0
On peut le voir dans =si(A1;”oui”;”non)
ou dans if Range(“A1”) then

Dans VBA :

True = -1
False = toutes valeurs numériques sauf -1
On peut le voir dans if Range(“A1”) = True then

[Thumb down]

Oui le if respect la case Majuscule/ Minuscule donc oui il faut écrire "VRAI"

[Philippe Tulliez]

Bonjour,

@Philippe Tulliez : je comprends que vous privilégiez des formules de type =si(A1=A2;"VRAI";"FAUX") plutôt que =A1=A2, de façon à toujours avoir du texte et non un booléen en cellule excel ?

Certainement pas. =(A1=A2) suffit amplement. Je ne vois pas la raison de renvoyer une chaîne de caractères alors que la valeur booléenne peut-être testée immédiatement.


Si le sujet vous intéresse, je vous invite à lire mon billet titré VBA - De la mauvaise utilisation d'un If...Then...Else pour modifier une propriété Booléenne