Opération logique AND

Bonjour,

j'ai du louper quelque chose, mais je ne comprends pas le résultat de mon code

J'ai volontairement épuré ce code pour être certain de mon incompréhension :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Option Explicit Sub majBDD()   Dim topFac As Integer, topPay As Integer   topFac = 0 topPay = 0 If topFac And topPay = 0 Then MsgBox "Aucune mise à jour à faire", Title:=titre Else End If   End Sub

---

Le code ne passe pas par MsgBox (?)

En fin de message la copie d'écran de l'exécution de la macro en pas à pas arrêté sur "Else"

pour aller un peu plus loin j'ai écrit

Code:

---

1 2 3 4 5 6 7 8 9

If topFac = 0 Then If topPay = 0 Then MsgBox "Aucune mise à jour à faire", Title:=titre Exit Sub Else End If Else End If

---

Et là pas de problème

Si vous avez une idée, je n'en ai aucune
Merci

Bonjour,
Dans cette ligne If topFac And topPay = 0 Then cela signifie que topFac est différent de 0

Bonjour,

Oui, je suis bien d'accord, sauf que pour bien comprendre j'ai volontairement ajouté les lignes

Code:

---

1 2 3

topFac = 0 topPay = 0

---

juste avant le test

Comment ces variables peuvent-elles être différentes de 0 aunt du test ?

Bonjour,
Dans cette ligne de code If topFac And topPay = 0 Then cela signifie Si topFac est différent de 0 ET topPay = 0 alors
Comme vous avez initialisé les deux variables à 0 le test = FALSE donc il faut écrire If topFac = 0 And topPay = 0 Then ou

Code:

---

If Not topFac And Not topPay Then

---

Pour info, il est parfaitement inutile d'initialiser les variables dans ce cas présent car par défaut dès que l'on déclare une variable numérique elle vaut 0

je n'avais pas saisi la nuance (plus qu'importante !)

Dans mon raisonnement c'était la même chose

Citation:

---

il est parfaitement inutile d'initialiser les variables dans ce cas présent car par défaut dès que l'on déclare une variable numérique elle vaut 0

---

Oui ça je sais, j'avais juste forcé les valeurs à 0 pour m'assurer de mon raisonnement (faux par ailleurs:oops:)

Je vais fêter mes 75 ans rassuré :ptdr:

Merci pour toutes les aides apportées sur ce forum