Discussion :

[ESVBA]

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

[tedo01]

Bonjour,
Le problème vient de la fermeture incorrecte du If. Il faut écrire End If à la place du End :

Code :

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

1
2
3
4
         'If Trim(GetMACAddress) = Autorise(Bcle) Then
         If GetMACAddress = Autorise(Bcle) Then
            Good = True
         End If '<--- Ici

[ESVBA]

l'erreur me parait tellement grosse.

Le fichier s'est bloqué à plusieurs reprises, j'ai fait des modifications....

je regarde en rentrant.

Merci.

ESVBA

[ESVBA]

bon, il faut l'avouer l'erreur est tellement grosse que c'est la bonne !

on fait plusieurs choses en même temps, l'appli plante, on s'énerve et heureuse qu'il y a "développez".

Merci à toi tedo01.

ESVBA