Gestion droits d'acces : vba un peu plus galant?

[fredl]

Bonjour à tous,
existe t'il un moyen plus galant d'écrire le code ci dessous?
(on trouve dans l'exemple ci dessous 14 ayants droits à l'install d'une application, mais supposons qu'il y ai 50 ayants droits sur un ensemble total de 200pers ....Pratiqueriez vous de la même manière pour coder la chose?)

utilisation de Array?, autre?
merci d'avance pour vos réponses.

If Not UCase(VUserName) = VloginAyantDroit1 And Not UCase(VUserName) = VloginAyantDroit2 And Not UCase(VUserName) = VloginAyantDroit3 And Not UCase(VUserName) = VloginAyantDroit4 And Not UCase(VUserName) = VloginAyantDroit5 And Not UCase(VUserName) = VloginAyantDroit6 And Not UCase(VUserName) = VloginAyantDroit7 And Not UCase(VUserName) = VloginAyantDroit8 And Not UCase(VUserName) = VloginAyantDroit9 And Not UCase(VUserName) = VloginAyantDroit10 And Not UCase(VUserName) = VloginAyantDroit11 And Not UCase(VUserName) = VloginAyantDroit12 And Not UCase(VUserName) = VloginAyantDroit13 And Not UCase(VUserName) = VloginAyantDroit14 Then
MsgBox "vous n'avez pas les droits pour l'installation de cette application."
Application.Quit
End If

 

[Dranreb]

Re : Gestion droits d'acces : vba un peu plus galant?

Bonjour
essayez:
if iserror(worksheetfunction.match(UCase(VUserName), Array(VLoginAyantDroit1, VLoginAyantDroit2, etc...), 0)) then
à tester
À +

 

[fredl]

Re : Gestion droits d'acces : vba un peu plus galant?

je teste et vous tiens au courant
Merci

 

[fredl]

Re : Gestion droits d'acces : vba un peu plus galant?

Merci.
Apres test, je constate l'erreur suivante :
"Impossible de lire la propriété match de la classe worksheetFunction"
Avez vous une idée du problème rencontré?
Merci

 

[Staple1600]

Re : Gestion droits d'acces : vba un peu plus galant?

Bonsoir

fredl
Pratiquer sans fichier exemple c'est pas commode....
Joindre un fichier sur XLD, c'est par contre relativement commode..

YAKACLIKER sur Gérer les pièces jointes 😉

 

[fredl]

Re : Gestion droits d'acces : vba un peu plus galant?

désolé,
Désolé de ne pas avoir été clair dans ma demande qui ne necessite pas de fichier puisqu'elle ne traite que de variables présentes dans le code.

J'ai une 50aine de variables et je souhaiterai alléger ma condition "if" qui prend 10 lignes de code:

'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'variables
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

public prenom1="fred"
public prenom2="marie"
.............................
public prenomx="XXX"
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'macro
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

sub essai
if Vprénom=prenom1 or if Vprénom=prenom2 or if (50 variables prénom)............................ & _
.......................................................................................................& _

.......................................................................................................& _
(10lignes!!!)
then lancerMacroTraitement

end sub

'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
existe t'il un moyen plus galant d'écrire ce code?(array?, autres?)
En espérant avoir été plus clair.
Merci pour votre aide.
Frédéric