fonction personnalisée VBA

Bonsoir,

J'ai utilisé cette fonction personnalisée :

Code:

---

1 2 3 4 5 6 7 8 9 10

Function concours(pays, nombrefrance, nombreetranger, juges, nombrejuges, certificats, nombrecertificats) For i = 1 To pays.Count If UCase(certificats(i)) = "OBTENU" Then nc = nc + 1 If pays(i) <> "" Then If UCase(pays(i)) = "FRANCE" Then nf = nf + 1 Else ne = ne + 1 If juges(i) <> "" Then If InStr(jugesstr, juges(i)) = 0 Then nj = nj + 1: jugesstr = jugesstr & juges(i) End If Next i concours = nf >= nombrefrance And ne >= nombreetranger And nj >= nombrejuges And nc >= nombrecertificats End Function

---

la fonction est à utiliser dans une cellule excel comme n'importe quelle autre fonction excel.

Code:

---

=concours(pays, nombrefrance, nombreetranger, juges, nombrejuges, certificats, nombrecertificats)

---

où
pays : est la plage du tableau contenant les pays,
nombrefrance : est le nombre minimum de certificats obtenus en France nécessaire
nombreetranger : est le nombre minimum de certificats obtenus à l'Etranger nécessaire
juges : est la plage du tableau contenant les noms des juges
nombrejuges : est le nombre minimum de juges différents nécessaire
certificats : est la plage contenant le statut des certificats
nombrecertificats : est le nombre minimum de certificats obtenus nécessaire

Dans cette fonction je voudrais juste qu'elle renvoi Vrai ou Faux quand je l'utilise et je dois pouvoir utiliser le vrai ou faux pour vérifier une autre condition

Pouvez vous m'aider svp

Bonsoir,

Citation:

---

Envoyé par mickaeldu45

Dans cette fonction je voudrais juste qu'elle renvoi Vrai ou Faux quand je l'utilise

---

Au lieu de

Code:

---

concours = nf >= nombrefrance And ne >= nombreetranger And nj >= nombrejuges And nc >= nombrecertificats

---

il suffit de mettre ceci en fonction du résultat déterminé :

Code:

---

1 2 3

concours = False ' ou concours = True

---

Bonjour

ou

Code:

---

if concours = nf >= nombrefrance And ne >= nombreetranger And nj >= nombrejuges And nc >= nombrecertificats then true else false

---

mais en principe ta formulation devrait fonctionner...

Bonjour 78chris

Tout d'abord merci pour ta réponse j'ai essayé ta proposition mais lorsque je modifie une erreur de compilation apparaît (Attendu : numéro de ligne ou étiquette ou instruction ou fin d'instruction

Citation:

---

Envoyé par 78chris

Bonjour

ou

Code:

---

if concours = nf >= nombrefrance And ne >= nombreetranger And nj >= nombrejuges And nc >= nombrecertificats then true else false

---

mais en principe ta formulation devrait fonctionner...

---

Salut

Essai en mettant des parenthèses

Code:

---

concours = (nf >= nombrefrance) And (ne >= nombreetranger) And (nj >= nombrejuges) And (nc >= nombrecertificats)

---

Parfois je pense qu'Excel interprète avec des priorités de calcul que nous n'attendons pas, je doute pourtant que ce soit le cas ici mais après avoir eu quelques mauvaises surprises, je mets des parenthèses quand il y a plusieurs terme dans une expression booléenne.

Et en précisant le type de la variable de sortie

Code:

---

Function concours(pays, nombrefrance, nombreetranger, juges, nombrejuges, certificats, nombrecertificats) as Boolean

---

[Edit]
Pour l'erreur rencontré avec le code du dessus, c'est parce que tu n'as pas précisé à quelle variable tu voulais attribuer True ou False

Code:

---

if (concours = nf >= nombrefrance) And (ne >= nombreetranger) And (nj >= nombrejuges) And (nc >= nombrecertificats) then concours=true else concours=false

---

[/Edit]

++
Qwaz

Bonjour Qwazerty,

J'ai essayé d'utiliser tes lignes de codes mais je n'obtient toujours pas le résultat escompté, je te met en PJ le fichier de mise en situation de la formule :

En cellule S3 j'utilise ma formule :

Code:

---

=concours(D4:D6;1;0;L4:L6;3;Q4:Q6;3)

---

Lorsque toute mes conditions sont réunies un VRAI apparaît dans la cellule S3

Dans la cellule S4 j'utilise cette formule :

Code:

---

=SI(S3="VRAI";"OK";"NOK")

---

Ma question est la suivante : théoriquement si S3 m'affiche VRAI alors S4 devrait me renvoyer OK mais la ce n'est pas le cas pourquoi ?

Voici le code de ma fonction personnalisé :

Code:

---

1 2 3 4 5 6 7 8 9 10

Function concours(pays, nombrefrance, nombreetranger, juges, nombrejuges, certificats, nombrecertificats) For i = 1 To pays.Count If UCase(certificats(i)) = "OBTENU" Then nc = nc + 1 If UCase(pays(i)) = "FRANCE" Then nf = nf + 1 Else ne = ne + 1 If InStr(jugesstr, juges(i)) = 0 Then nj = nj + 1: jugesstr = jugesstr & juges(i) End If Next i concours = nf >= nombrefrance And ne >= nombreetranger And nj >= nombrejuges And nc >= nombrecertificats End Function

---

Pièce jointe 516427

Bonjour,

Code:

---

=SI(S3=VRAI;"OK";"NOK")

---

VRAI (booléen =1 sur une feuille) n'est pas pareil que la chaine "VRAI"

Par ailleurs, tu concatènes inutilement les noms des juges.
eric

Bonjour,

Citation:

---

Dans la cellule S4 j'utilise cette formule :

Code:

---

=SI(S3="VRAI";"OK";"NOK")

---

Ma question est la suivante : théoriquement si S3 m'affiche VRAI alors S4 devrait me renvoyer OK mais la ce n'est pas le cas pourquoi ?

---

VRAI est une valeur booléenne et pas une chaîne de caractères donc pour tester la valeur renvoyée par la fonction personnalisée si celle-ci est booléenne

Code:

---

=SI(S3=VRAI;"OK";"NOK")

---

ou encore

Code:

---

=SI(S3;"OK";"NOK")

---

[EDIT]
Désolé Eriiic mais j'ai été au téléphone entre le début de la rédaction de ma réponse et l'envoi de celle-ci

J'en profite pour signaler qu'il est possible de se passer d'une cellule intermédiaire et d'imbriquer directement la fonction personnalisée dans la fonction SI comme par exemple

Code:

---

=SI(concours(D4:D6;1;0;L4:L6;3;Q4:Q6;3);"OK";"NOK")

---

Je n'ai pas vérifié ni tenté de comprendre la fonction Concours mais j'ajouterai qu'il serait préférable de typer la fonction personnalisée ainsi que ses arguments.

A lire éventuellement Les fonctions personnelles dans Excel