Formule en VB

Bonjour

Comment remplacer ce type de formule en VB pour chaque ligne ?

Code:

---

=IF(O1="";"";O1/Q1)

---

et

Code:

---

=IF(AK1="";AG1/AI1;IF(AJ1="";"";AJ1))

---

Merci pour l'aide

Bonjour

L'équivalent de la fonction de feuille IF est en VBA IIF.

Cordialement,

PGZ

Bonjour

Je me suis mal expliqué.
Comment remplacer les formules contenues dans les cellules par la même chose en VB ?

Re,


Qu'est-ce que tu entends pas "remplacer"?
Tu ne veux plus des formules dans la feuille, mais une procédure qui renseigne les cellules concernées?

PGZ

Oui tout à fait

RE,

Alors c'était la bonne réponse.
Pour être plus précis

Code:

---

1 2 3

With Thisworkbook.Worksheets("NomFeuille") .Range("??") = IIF(.Range("Q1").value = "";"";.Range("O1").Value/.Range("Q1").Value) End with

---

Voilà.

PGZ

Attention, le séparateur en VBA est la virgule, pas le point-virgule.

Code:

---

1 2 3

With Thisworkbook.Worksheets("NomFeuille") .Range("??") = IIF(.Range("Q1").value = "";"",.Range("O1").Value/.Range("Q1").Value) End with

---