Conditions multiples Excel

Version imprimable

30/12/2008, 17h29
babybell

Conditions multiples Excel

Bonjour

J'ai un code à condition multiples

Code:

ActiveCell.FormulaR1C1 ="=IF(RC[-1]=""A"",VLOOKUP(RC[-1],ListeDeroulante!R3C[-7]:R6C[-5],2),IF(RC[-1]=""B"",VLOOKUP(RC[-1],ListeDeroulante!R3C[-7]:R6C[-5],2),IF(RC[-1]=""C"",VLOOKUP(RC[-1],ListeDeroulante!R3C[-7]:R6C[-5],2),IF(RC[-1]=""D"",VLOOKUP(RC[+2],ListeDeroulante!R2C[+7]:R13C[+9],2),IF(RC[-1]=""E"",VLOOKUP(RC[+2],ListeDeroulante!R2C[+20]:R39C[+23],3)))))))"

et il fonctionne bien tant que je met les 4 premières conditions, mais pas quand j'en met 5,6 ou 7.
Je croyais pourtant que cela fonctionnait jusqu'à 7.
Existe-t-il un moyen pour faire fonctionner ce code ?

Merci de vos réponses
30/12/2008, 17h38
Invité

Bonjour

De mémoire ce n'est pas au nombre de conditions, mais d'imbrications de parenthèses, et à première vu tu as atteint le quota.

Deux solutions :

Passer à Excel 2007 qui permet plus d'imbrications (il me semble que c'est 64).
Créer une fonction en VB et la récupérer comme une fonction personnalisée.

Philippe
30/12/2008, 20h14
babybell

Merci de ta réponse, mais deux choses :
* Comment se fait-il que ces conditions fonctionnent en direct dans une formule

Code:

=SI(G379="A";RECHERCHEV(G379;ListeDeroulante!A$3:C$6;2);SI(G379="B";RECHERCHEV(G379;ListeDeroulante!A$3:C$6;2);SI(G379="C";RECHERCHEV(G379;ListeDeroulante!A$3:C$6;2);SI(G379="D";RECHERCHEV(J379;ListeDeroulante!O$2:Q$11;2);SI(G379="E";RECHERCHEV(J379;ListeDeroulante!AB$2:AE$38;3);RECHERCHEV(G379;ListeDeroulante!AB$2:AE$38;3))))))

et que cela ne fonctionne pas en VB
* Ensuite, je ne sais pas comment créer une fonction en VB et la récupérer comme une fonction personnalisée.

Merci de me guider

Bonjour Babybell,
je ne peux pas répondre à ta question pourquoi on peut le faire en Excel mais pas en VBA. Par contre, j'ai peut-être une piste de solution à te proposer.

Si tu souhaites réaliser cela en VBA, je te proposerais de la décortiquer en éditant un petit bout de code qui ferait la même chose que la fonction demandée plutôt que d'essayer de convertir une formule d'un kilomètre en VBA avec l'enregistreur. Par exemple, tu pourrais faire un select case avec ta cellule.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Cellule = Cells(379, 7) On Error Resume Next Select Case Cellule Case "A" 'ton VLookup Case "B" 'ton VLookup Case "C" 'ton VLookup Case "D" 'ton VLookup Case "E" 'ton VLookup End Select
Comme tu as parlé de code dans ton premier message, je crois que c'est une piste de solution qui pourrait te convenir. Si c'est le cas, tu n'as qu'à faire signe et nous pourrions t'aider à pousser un peu plus !

Cordialement,

Étienne

30/12/2008, 20h59
babybell

Bonjour

Cela m'irai très bien, d'autant plus que ce genre d'exercice, je dois le faire 2 ou 3 fois, avec des VLOOKUP différents?
Merci à toi de m'aider
30/12/2008, 21h01
pgz

Bonjour Etienne.

La ligne

Code:

On Error Resume Next

est en trop, non?

PGZ
30/12/2008, 21h17
Etienne2323

Re, Babybell, pgz, le forum,
je crois babybell que le plus simple serait vraiment de nous mettre un fichier exemple sans données confidentielles qui nous permettrait de te donner un coup de main concret, et non de seulement envoyer des idées en l'air comme ça. Qu'est-ce que t'en dis ?

Etienne

PS : Excellent point pgz ! Elle est complètement inutile ! Salutations !
30/12/2008, 23h25
babybell

Voici un petit bout de mon appli. Ce que je voudrais faire en VBA, c'est le contenu des cellules C2 et D2.

Merci à toi

Bonjour,

Tu peux déjà simplifier ta formule.

Code:

1
2
3
4
5
6
=SI(B2="A";RECHERCHEV(B2;ListeDeroulante!A$3:C$6;2);
SI(B2="B";RECHERCHEV(B2;ListeDeroulante!A$3:C$6;2);
SI(B2="C";RECHERCHEV(B2;ListeDeroulante!A$3:C$6;2)
;SI(B2="D";RECHERCHEV(E2;ListeDeroulante!O$2:Q$11;2);
SI(B2="E";RECHERCHEV(E2;ListeDeroulante!AB$2:AE$38;3);
RECHERCHEV(B2;ListeDeroulante!AB$2:AE$38;3))))))

Peut être remplacée par :

Code:

1
2
3
=SI(OU(B2="A";B2="B";B2="C");RECHERCHEV(B2;ListeDeroulante!A$3:C$6;2);
SI(B2="D";RECHERCHEV(E2;ListeDeroulante!O$2:Q$11;2);
RECHERCHEV(B2;ListeDeroulante!AB$2:AE$38;3)))

31/12/2008, 09h09
babybell

Effectivement c'est plus simple et cela fonctionne.
Merci de ton aide, bonne journée et bonne fêtes de fin d'année à tous