bonjour!

pourquoi je recois toujours le msgbox erreur dans la class_initialize tandisque dans la sub log msgbox welcome ?

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
Dim a As Variant
Dim b As Variant
 
Public Sub log(a As Variant, b As Variant)
a = a
b = b
If a = "echo" And b = "echo" Then
    MsgBox "welcome "
    Else
    MsgBox "error"
End If
End Sub
 
Private Sub Class_Initialize()
log a, b
End Sub

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
Private Sub Command1_Click()
Dim x As Class1
Set x = New Class1
x.log "echo", "echo"
End Sub