J'ai un problème "NEXT sans FOR" si la boucle contient mon code sinon pas de problème.


Dans le module de la Userform :
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
   Dim Autorise(0 To 5) As String
    Dim Bcle As Long
 
    Dim Good As Boolean
    Autorise(0) = "30 ED 60 FF 3A DD"
    Autorise(1) = "30 ED 60 FF 3A DD"
    Autorise(2) = "30 ED 60 FF 3A DD"                                  'M3
    Autorise(3) = "30 ED 60 FF 3A DD"
    Autorise(4) = "30 ED 60 FF 3A DD"
    Autorise(5) = "30 ED 60 FF 3A DD"
    Good = False
    'For Bcle = LBound(Autorise) To UBound(Autorise)
    For Bcle = 0 To 5
         'If Trim(GetMACAddress) = Autorise(Bcle) Then
         If GetMACAddress = Autorise(Bcle) Then
            Good = True
        End
    Next Bcle
La procédure appelée :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Public Function GetMACAddress() As String
    '...
    GetMACAddress = tmp
End Function
Public et renvoi une chaine. Ok en mode exécution dans vbe.


ESVBA