Discussion :

[pascal4782]

Bonjour à tous,

J’essaye de passer en vain une formule Excel en code VBA sans succès.
En Excel j’ai ça =SI(ET(D9>$C$3;D9<$C$4;A9=1);1;SI(ET(D9>$C$3;D9<$C$4;A9=0);0;2))
En VBA j’ai tenté ça mais ne marche pas

Code :

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

.range("F9:F1618").formula=.range(SI(ET(RC[-2]>" & C & ";RC[-2]<R4C3;rc[-5]=1);1;SI(ET(RC[-2]>" & C & ";RC[-2]<R4C3;rc[-5]=0);0;2)))

« C » est une variable qui s’incrémente de 1 à 60

Merci par avance

[mercatog]

Bonjour

Écris ta formule dans une cellule et sélectionne cette cellule
Dans l'éditeur vba, fenêtre: Exécution, écris ceci:

?activecell.formular1c1

et valide (Enter)
Tu récupéras ta formule à insérer dans ton code

Code :

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

Range("Q20").FormulaR1C1 = "=IF(AND(R[-12]C[-10]>R3C3,R[-12]C[-10]<R4C3,R[-12]C[-13]=1),1,IF(AND(R[-12]C[-10]>R3C3,R[-12]C[-10]<R4C3,R[-12]C[-13]=0),0,2))"

Par exemple si, tu veux dans ta formule insérer une variable

Code :

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

1
2
3
4
Dim MaVar As Double
 
MaVar = 34.678
Range("Q21").FormulaR1C1 = "=IF(AND(R[-12]C[-10]>" & MaVar & ",R[-12]C[-10]<R4C3,R[-12]C[-13]=1),1,IF(AND(R[-12]C[-10]>R3C3,R[-12]C[-10]<R4C3,R[-12]C[-13]=0),0,2))"

[pascal4782]

Bonjour mercatog,

Un grand merci pour la rapidité, de plus je ne connaissais pas cette fonctionnalité très intéressante.

Bonne soirée.