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

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
À +

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

je teste et vous tiens au courant
Merci

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

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 😉

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