Discussion :

[Pierre Fauconnier]

Salut.

De toute façon, si les valeurs sont identiques, le test renvoie VRAI (TRUE) et donc le message "le résultat est faux" apparaît.

C'est donc que les valeurs ne sont pas égales. Point à la ligne. Il se peut que les valeurs affichées semblent identiques (arrondi d'affichage par exemple) alors que les valeurs calculées sont différentes...

La seule solution est effectivement de passer par les valeurs espion pour bien comprendre quelles sont les valeurs prises en compte...

Cela dit, je soumets à votre réflexion le code suivant, qui prouve qu'Excel peut évaluer un test logique de façon "fantaisiste". En fait, en l'absence d'une comparaison d'une valeur avec une valeur logique, VBA test que c'est faux ou que ce n'est pas faux. Le SI d'Excel se comporte de la même manière...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
  Dim Valeur As Long
 
  Valeur = 34
 
  If Valeur = True Then
    MsgBox "TEST 1 = VRAI"
    Else
    MsgBox "Test 1 = FAUX"
  End If
 
  If Valeur Then
    MsgBox "TEST 1 = VRAI"
    Else
    MsgBox "Test 1 = FAUX"
  End If

Rigolo, n'est-il pas?

[ZebreLoup]

Bonjour Pierre,

Ca ne me semble pas si fantaisiste que ça en fait :

• Dans le premier cas, on teste l'égalité entre deux variables. L'une est un entier long, l'autre un booléen. Il y a donc un cast logique vers le type le plus "large" et le booléen True, devient l'entier 1 qui n'est pas égale à 34.
• Dans le second cas, on attends un booléen, donc VBA essaie de transformer notre entier en booléen, et la règle c'est False pour 0 et True pour tout autre entier (c'est là que c'est discutable à la rigueur, le plus propre serait d'interdire cette conversion avec perte d'information).

D'ailleurs, je ne sais pas, question aux experts, on peut empêcher les cast implicites dans VBA ou pas (Une option strict quoi) ?

N'empêche que moi, j'aimerais bien avoir le fin mot de l'histoire, alors mauvaise cellule ou pas ?

[Didier Gonard]

Bonjour,

Pour le cas de Pierre, vu de ma fenêtre (de l’éditeur VBE bien sûr).

CAS 1 – on lui soumet bien une expression* à analyser et ça répond aux données de l’aide VBA pour l’instruction If..Then…Else

*expression
Combinaison de mots clés, d'opérateurs, de variables et de constantes générant une chaîne, un nombre ou un objet. Une expression peut effectuer un calcul, manipuler des caractères ou tester des données.

Tu tentes de comparer un long avec une valeur de Boolean => False retourné

Condition : Une expression numérique ou expression de chaîne qui prend la valeur True ou False. Si l'argument condition est Null, il est considéré comme False.

…/… Null : Valeur indiquant qu'une variable ne contient pas de données valides. La valeur Null est le résultat de l'attribution explicite de la valeur Null à une variable ou de toute opération entre des expressions contenant la valeur Null.

Donc en tentant d'interpréter Valeur en booléan, n'ayant pas été attibuée, soit il prend la valeur par défaut des Boolean => False, soit il considère l'argument de condition comme Null.


Cas 2

Là je ne sais pas à ce jour, on ne pose rien explicitement, le mieux serait d’avoir un message d’erreur comme si on mettait Valeur en string et qu’on lui assignait « toto » au lieu de 34 vu qu’on fait n’importe quoi.
J’ai bien mis « toto » au lieu de 34 car si on met Valeur en string et valeur = 34, on s’aperçoit qu’il traduit bien 34 en « 34 » mais que le cas 2 ne plante pas donc, qu’il réinterprète « 34 » en 34.
Donc cas 2 => nous somme face aux pouvoirs d’interprétation du VBA, et dans ce cas je ne connais pas la règle. Il ne plante pas donc le fait de donner à valeur une donnée numérique (ou interprétable comme telle) lui permet d’interpréter un cas de figure qui renvoie True.

Quand à empêcher les cas implicite, je ne pense pas que ce soit possible, pas vu dans les options et d’un autre côté, ça voudrait dire qu’à chaque fois qu’on adresse une cellule non pointée par une variable objet, on passe par une écriture Application.WorkBooks(xx).worksheets(yy).Range…. etc…

D’un autre côté, les écritures du genre cas 1 ou 2 exploitées quand elle passent sont soit une volonté d’offuscation soit du développement masochiste

Les valeurs Boolean, type de données (Visual Basic) ne sont pas stockées en tant que nombres et les valeurs stockées ne sont pas destinées à être équivalentes aux nombres. Pour garantir la compatibilité avec les versions antérieures, Visual Basic fournit des mots clés de conversion (CType Function, CBool, CInt, etc.) pour effectuer des conversions entre des types Boolean et numériques. Toutefois, d'autres langages exécutent parfois différemment ces conversions, comme c'est le cas pour les méthodes du .NET Framework.

Vous ne devez jamais écrire un code qui repose sur les valeurs numériques équivalentes à True et False. Autant que possible, limitez l'utilisation des variables Boolean aux valeurs logiques pour lesquelles elles sont conçues. S'il s'avère nécessaire de mélanger des valeurs Boolean et des valeurs numériques, assurez-vous que vous comprenez la méthode de conversion choisie.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Pierre1()
Dim Valeur As Long
  Valeur = 34
 
  If Valeur = True Then
    MsgBox "TEST 1 = VRAI"
    Else
    MsgBox "Test 1 = FAUX"
  End If
End Sub
Sub Pierre2()
Dim Valeur As Long
 
  Valeur = 34
  If Valeur Then
    MsgBox "TEST 1 = VRAI"
    Else
    MsgBox "Test 1 = FAUX"
  End If
End Sub

cordialement,

Didier

[Pierre Fauconnier]

Oui oui...

Je voulais juste faire remarquer que les tests logiques peuvent être déroutants.

Par défaut, on pourrait penser que If CONDITION Then impose que CONDITION renvoie VRAI, alors qu'en fait, il suffit que CONDITION ne renvoie pas FAUX...

Et donc, comme le dit Didier, il vaut mieux être explicite.

Quand à un verrou sur le transtypage automatique, je ne vois pas d'outils qui permette cela.

Cela dit,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  If True Then MsgBox "Joyeuses fêtes"

[Didier Gonard]

Par défaut, on pourrait penser que If CONDITION Then impose que CONDITION renvoie VRAI, alors qu'en fait, il suffit que CONDITION ne renvoie pas FAUX...