VBA: IF avec Array

arnaudbu · 21 Janvier 2010

Bonjour,

Je me suis amusé à faire ceci vite fait. Bien sur ca ne fonctionne pas. Je met l'erreur en rouge. Pouvez vous m'expliquer mon erreur ? Merci

Code:

Sub FormLoginShow()

Dim msg As Long, UserName As String, UserOK() As Variant

UserOK = Array(Pierre, Paul, Jacques, Léon)
UserName = Application.UserName

If UserName [COLOR="Red"]<> [/COLOR]UserOK Then
 msg = MsgBox("Vous n'avez pas l'autorisation d'accès à la configuration !", vbCritical, "Attention")
   Exit Sub

Else

FormPass.Show

End If

End Sub

ROGER2327 · 21 Janvier 2010

Re : VBA: IF avec Array

Bonjour arnaudbu

A essayer :

Code:

[COLOR="DarkSlateGray"][B]Sub FormLoginShow()

Dim msg As Long, UserName As String, UserOK() As Variant
Dim i As Integer

UserOK = Array("Pierre", "Paul", "Jacques", "Léon")
UserName = Application.UserName

For i = 0 To UBound(UserOK)
If UserName = UserOK(i) Then Exit For
Next i
If i > UBound(UserOK) Then

msg = MsgBox("Vous n'avez pas l'autorisation d'accès à la configuration !", vbCritical, "Attention")
Exit Sub

Else

FormPass.Show

End If

End Sub[/B][/COLOR]

ROGER2327
#2617

Robert · 21 Janvier 2010

Re : VBA: IF avec Array

Bonsoir le fil, bonsoir le forum,

je verrais plutôt les choses comme ça :

Code:

Sub FormLoginShow()
Dim msg As Long, UserName As String, UserOK() As Variant, x As Byte
 
UserOK = Array("Pierre", "Paul", "Jacques", "Léon")
UserName = Application.UserName
 
For x = 0 To UBound(UserOK)
    If UserName = UserOK(x) Then
        FormPass.Show
        Exit Sub
    End If
Next x
 
msg = MsgBox("Vous n'avez pas l'autorisation d'accès à la configuration !", vbCritical, "Attention")

arnaudbu · 21 Janvier 2010

Re : VBA: IF avec Array

Bonjour,

Merci à vous les deux méthodes fonctionnent à merveilles. J'ai bien compris mes erreurs.

@+

VBA: IF avec Array

arnaudbu

XLDnaute Occasionnel

ROGER2327

XLDnaute Barbatruc

Robert

XLDnaute Barbatruc

arnaudbu

XLDnaute Occasionnel

Discussions similaires

VBA: IF avec Array

arnaudbu

XLDnaute Occasionnel

ROGER2327

XLDnaute Barbatruc

Robert

XLDnaute Barbatruc

arnaudbu

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency