Discussion :

[retraite83]

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 :

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

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 :

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

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