[XL-2003] Formule plus élégante ? [Résolu]

[vieuxmonsieur]

Bonjour,
Y a t-il un moyen de rendre cette formule plus élégante, plus courte ou de faire différent :

=SI(OU(Pers!A11="GAL";Pers!A11="COL";Pers!A11="LCL";Pers!A11="CMA HC";Pers!A11="CM P";Pers!A11="CDT";Pers!A11="CDB";Pers!A11="CMA";Pers!A11="CNE";Pers!A11="CMM 1";Pers!A11="LTN";Pers!A11="CMM 2";Pers!A11="SLT";Pers!A11="SLT";Pers!A11="ASP";Pers!A11="MAJ");1;"")

Je vous remercie par anticipation.

[jfontaine]

Bonjour,

Une Solution (Liste a compléter)

Code :

=SI(ESTERREUR(EQUIV(A1;{"GAL";"COL";"LCL"};0));"";1)

[vieuxmonsieur]

Merci beaucoup jfontaine, c'est vraiment plus élégant.
Bonne journée.

[vieuxmonsieur]

re,
La formule complétée :

=SI(ESTERREUR(EQUIV(A11;{"GAL";"COL";"LCL";"CMA HC";"CM P";"CDT";"CDB";"CMA";"CNE";"CMM 1";"LTN";"CMM 2";"SLT";"ASP";"MAJ"};0));"";1)

Je dois faire une erreur car la formule ne fonctionne pas.

[jfontaine]

Quelle est l'erreur ?

[vieuxmonsieur]

L'erreur venait de moi, je suis vraiment désolé.

=SI(ESTERREUR(EQUIV(Pers!A11;{"GAL";"COL";"LCL";"CMA HC";"CM P";"CDT";"CDB";"CMA";"CNE";"CMM 1";"LTN";"CMM 2";"SLT";"ASP";"MAJ"};0));"";1)

Je n'avais pas corrigé ce que j'ai mis en rouge.
Merci beaucoup jfontaine.
C'est grâce à nos erreures que nous avançons.
Bonne fin de journée.