Simplification de formule

Version imprimable

05/11/2007, 09h23
S l i d e

Simplification de formule

Bonjour,

souvent dans mes formules j'utilise beaucoup de SI embriqués les uns dans les autres et ça devient vite compliqué à si retrouver.
Je me demandais si sous VB on pouvais simplifier grace à des valeurs relatives.
exemple:

Code:

=SI(SI(A1<B1;1;2)=AA1;"OK";SI(D4>G4;2;1))

On pourrai simplifier:
code1= SI(A1<B1;1;2)
code2= SI(D4>G4;2;1)

Code:

SI(code1=AA1;"OK";code2)

Est ce possible sous VB?
Merci à vous
05/11/2007, 10h51
ouskel'n'or

Regarde Iif dans l'aide

Code:

ActiveCell.Value = IIf([A1] < [B1], "ok", IIf([D4] > [G4], 2, 1))
05/11/2007, 11h53
S l i d e
Je viens de me rendre compte que c'est possible. Je l'ai utilisé pour une trouver la dernière ligne d'un tableau.

Par contre impossible de le faire marcher.
Code:

1 2 3 4 5 code1= IF(A1<B1,1,2) code2= IF(D4>G4,2,1) Range("AE1").Select ActiveCell.FormulaR1C1 = "IF(code1=AA1,""OK"",code2)"
J'ai bien défini mes formules mais cela ne marche pas. Dans la cellule il me met ?NOM#

Et sous Excel la formule est transcrite comme suit:

Code:

=SI(code1=AA1;"OK";code2)"

Quelqu'un voit'il ou est mon erreur?
05/11/2007, 12h02
wilfried_42

bonjour à tous

Code1, code 2 sont des variables VBA pas des noms de plages, ellse con inonnues par excel, de plus en fin de procedur elles son vidée

Quand tu mes une formule dans un cellule, il affiche #NOM s'il ne les reconnait pas, et c'est le cas

On peu utiliser VBA avec Excel, mais ce que tu utilises dans VBA, n'est pas formement compris par Excel

Je répondais à ça :

Citation:

Je me demandais si sous VB on pouvais simplifier grace à des valeurs relatives.

Maintenant, si tu veux écrire la formule avec VBA, alors tu dois mettre

Code:

ActiveCell.FormulaLocal = "=SI(SI(A1<B1;1;2)=AA1;" & "OK" & ";SI(D4>G4;2;1))"

A+

Edit
Tu peux aussi utiliser des variables tout plein
Code:

1 2 3 4 5 6 7 Adres1 = "A1" Adres2 = "B1" Adres3 = "D4" Adres4 = "G4" Adres5 = "AA1" Range("A10").FormulaLocal = "=SI(SI(" & Adres1 & "<" & Adres2 & ";1;2)=" & Adres5 & ";" & _ "OK" & ";SI(" & Adres3 & ">" & Adres4 & ";2;1))"
A+

05/11/2007, 12h19
S l i d e

Maintenant, si tu veux écrire la formule avec VBA, alors tu dois mettre

Code:

ActiveCell.FormulaLocal = "=SI(SI(A1<B1;1;2)=AA1;" & "OK" & ";SI(D4>G4;2;1))"

Je suis d'accord avec ce code mais la partie SI(A1<B1;1;2)=AA1 sera utilisé plusieurs fois dans la macro. J'aimerai la definir une bonne fois pour toute et pas retaper la formule à chaque fois. En plus ça simplifie la lecture.
C'est possible ça ?

C'est du pareil au même, en reprenant mon exemple précédent

Code:

1
2
3
Code1 = "SI(" & Adres1 & "<" & Adres2
Range("A10").FormulaLocal = "=SI(" & Code1 & ";1;2)=" & Adres5 & ";" & _
      "OK" & ";SI(" & Adres3 & ">" & Adres4 & ";2;1))"

A+

05/11/2007, 14h33
S l i d e
Ca simplifie pas enormement en fait.

Voila ce que j'ai:

je suis en feuille 2
Code:

1 2 Range("F2").Select ActiveCell.FormulaR1C1 = "IF(feuil1!RC[-5]<97000000,IF(feuil1!RC[34]=""Oui"",IF(feuil1!RC<88,""OK"",""FAUX""),IF(feuil1!RC=88,""OK"",""FAUX""),IF(feuil1!RC>88,""OK"",""FAUX"")"
J'aimerai arriver à simplifier cette formule car apparament j'ai trop de IF et ça passe pas.

Je trouve pas mes erreurs car la formule est presque illisible.

Effectivement, ça ne peut pas fonctionner (outre que tu oublies "='If en en début de formule, ton enchaînement de if ne répond pas à la syntaxe Excel. Tous tes "IF" doivent se trouver dans la première séquence. Ici, tous tes tests sont contenus dans le premier "SI"

Code:

=SI(Ceci;VRAI;SI(Cela;SI(Ceci;FAUX;SI(Cela;SI(Ceci;VRAI;FAUX);FAUX))))

Ecris ta formule en VBA puis passe-là en formule
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 If ceci then Vrai else if cela then if ceci then Faux else if cela then if ceci Vrai else faux endif endif 'ici endif Endif
Quatre Endif => 4 "fermer la parenthèse"
Bon courage
Edit
J'ai oublié un else "ici" mais c'est pour le principe ;)

05/11/2007, 15h47
random

evaluate
05/11/2007, 17h01
ouskel'n'or

Tiens, un revenant ! Salut Random, et merci de prendre la suite :aie:
05/11/2007, 20h00
S l i d e

Ce n'est que une erreur de placement?
Car quand je tape la formule sous Excel il me dit que j'ai tapé un nombre trop important d'argument.
05/11/2007, 21h25
ouskel'n'or

Citation:

Envoyé par S l i d e

Ce n'est que une erreur de placement?
Car quand je tape la formule sous Excel il me dit que j'ai tapé un nombre trop important d'argument.

Je reprends ta formule :

Citation:

"IF(feuil1!RC[-5]<97000000,IF(feuil1!RC[34]=""Oui"",IF(feuil1!RC<88,""OK"",""FAUX""),IF(feuil1!RC=88,""OK"",""FAUX""),IF(feuil1!RC>88,""OK"",""FAUX"")"

"IF(feuil1!RC[-5]<97000000,IF(feuil1!RC[34]=""Oui"",IF(feuil1!RC<88,""OK"",""FAUX""),IF(feuil1!RC=88,""OK"",""FAUX"")),IF(feuil1!RC>88,""OK"",""FAUX""))"

Si tu suis les groupes de parenthèses, tu t'aperçois que le dernier IF n'est relié à aucun IF précédent. Et encore j'ai ajouté des parenthèses où il en manquait :aie:
Chaque fois que tu as if, tu dois avoir le résultat si condition vraie et le résultat si condition fausse. Mais rien de plus
Par contre, que condition soit vraie ou fausse, elle peut inclure un nouveau IF comme tu l'as compris. Mais pas en dehors de l'une ou l'autre condition comme tu le fais.
Ecris ta formule en français, ex :

Citation:

si(condition1, vrai alors... la formule, sinon alors si(condition2, vrai alors la formule, sinon si(condition3, vrai alors la formule, sinon si(condition4, vrai alors la formule, sinon la formule))))

ou en VBA
Parce que là, on ne peut même pas corriger ta formule ne pouvant la comprendre.