Discussion :

[S l i d e]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

=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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Est ce possible sous VB?
Merci à vous

[ouskel'n'or]

Regarde Iif dans l'aide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.Value = IIf([A1] < [B1], "ok", IIf([D4] > [G4], 2, 1))

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Quelqu'un voit'il ou est mon erreur?

[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

[ouskel'n'or]

Je répondais à ça :

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[S l i d e]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[ouskel'n'or]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

A+