Discussion :

[lafafmentvotre]

Bonjour

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

Code :

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

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

et

Code :

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

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

Merci pour l'aide

[pgz]

Bonjour

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

Cordialement,

PGZ

[lafafmentvotre]

Bonjour

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

[pgz]

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

[lafafmentvotre]

Oui tout à fait

[pgz]

RE,

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

Code :

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

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

Voilà.

PGZ