Probleme utilisateurs

[fabio]

Bonsoir

j'utilise dans des tableaux multiples des droits d'accés en utilisant le code dans la feuille "thisworkbook" :

If Environ("Username") = "FDUPONT" Or Environ("Username") = "FDURAND" Or Environ("Username") = "ALEFEBVRE" Or Environ("Username") = "SMOUVEAU" Or Environ("Username") = "LLAMPIN" Or Environ("Username") = "SRICQ" Then

Les utilisateurs sont différents selon les tableaux

Mon probleme est lorsque l'utilisateur se connecte en minuscule, il ne peux pas avoir accés

Est il possible de modifier ce code pour qu'il ne fait pas la distinction entre les majuscules et les minuscules ?

Est il possible de simplifier ce code dans le genre :
If Environ("Username") = "FDUPONT";"FDURAND"... then

merci pour votre aide

cordialement

fabio

 

[RENAUDER]

Re : Probleme utilisateurs

Bonjour,

Regarde du coté de UCASE

UCase(Environ("Username"))

 

[Modeste]

Re : Probleme utilisateurs

Bonsoir fabio, Eric, le forum,

pour répondre à la deuxième question, on pourrait écrire:

Select Case UCase(Environ("userName"))
Case "FDURAND", "FDUPONT", "ALEFEBVRE", "SMOUVEAU", "LLAMPIN", "SRICQ"
    MsgBox "Bienvenue, " & Environ("userName")
Case Else
    MsgBox "Vous n'êtes pas autorisé ..."
End Select

 

[fabio]

Re : Probleme utilisateurs

grand Merci a vous deux

cordialement

fabio