Discussion :

[Orbeaman]

Bonjour,

J'ai développé les classes clsWindow et clsWindows qui se basent et encapsulent l'API Windows.

clsWindows est en fait une classe collection de clsWindow.

Dans clsWindows, j'ai la méthode find, ainsi je peux chercher une clsWindow de la façon suivante : Dim window As clsWindow: Set window = windows.find(classname:="..", name:=".."). La méthode find renvoie Nothing s'il n'y a aucun résultat. Par contre, lorsque j'écris If Not windows.find(classname:="..", name:="..") Is Nothing Then .., Not windows.find(classname:="..", name:="..") Is Nothing est toujours évalué à True sous Excel 64 bits, alors que c'est évalué à False sous Excel 32 bits. Avez-vous une explication ?

Par contre, tout fonctionne bien sous Excel 32 et 64 bits si j'écris :

Code :

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

1
2
3
Dim window As clsWindow: Set window = windows.find(classname:="..", name:="..")
 
If Not window Is Nothing Then ..

Merci par avance !

[clementmarcotte]

Bonjour,

Grouper des instructions à la file sur la même ligne, c'est peut-être utile pour économiser de la mémoire. Mais cela transforme le débogage en enfer. En fait, cela date de l'époque des PC à 16 K de mémoire (et 16 K c'était presque juste pour les riches) et des variables à deux caractères maximum. C'est encore là juste pour préserver la compatibilité.

Quoiqu'il en soit, je ne pense pas que la différence 32 ou 64 buts ne soit en cause. Sauf peut-être une conversion implicite qui tourne mal.

En VB6 - VBA, la vraie valeur de true c'est -1, mais toute valeur numérique différente de zéro doit, du moins selon Microsoft, doit être compilée comme valant True. 0 (zéro) est automatiquement compilé comme étant False.

[Orbeaman]

Merci Clément pour ces explications. Personnellement, je trouve ça plus "esthétique" d'aller droit au but au lieu de déclarer plein de variables temporaires .

[Orbeaman]

Il s'avère que dans certains cas, même en ajoutant un booléen dans l'expression, le problème persiste... Par exemple, si myProperty est une propriété d'une classe renvoyant un booléen (idem avec une fonction) évalué à False, l'expression complète est quand même évaluée à True...

Code :

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

If myObj.myProperty And False Then Debug.print("oups, même si myObj.myProperty = False")

PS : je ne travaille en fait pas avec Excel, mais avec CATIA (vu le prix du logiciel...), même si j'exploite Excel avec les scripts.

C'est quand même étrange, non ?