Traduire la fonction SI dans VBA

[PierYves]

Bonjour,
je souhaiterais savoir comment traduire la fonction d'une cellule excel en VBA.
j'ai ds un tableur excel une cellule avec : =SI(B22=1;+F22*G22*R$8;0)
je suis deja parti sur ça :

ActiveCell.Offset(0, 6).Value = Application.WorksheetFunction.

Mais j'arrive pas à trouver comment la fonction se traduit en VBA.
Merci d'avance pour toute votre aide.

ps: ici la valeur X22 je pense la remplacer par ActiveCell.Offset (....

 

[James007]

Re : Traduire la fonction SI dans VBA

Bonjour,

En VBA, on utilise :

If ..... Then
...............
End If

A +

 

[Etienne2323]

Re : Traduire la fonction SI dans VBA

Salut PierYves,
si vous souhaitez qu'il y ait une formule dans votre cellule, alors vous devez utiliser ceci :

Cells(1, 1).Value = "=IF(B22=1,+F22*G22*R$8,0)"

Sinon, en VBA

If Range("B22").Value = 1 Then
    Range("A1").Value = Range("F22") * Range("G22") * Range("R8")
Else
    Range("A1").Value = 0
End If

Dans le premier cas, l'enregistreur de macro est un bon outil pour vous aider à convertir des formules du français à l'anglais !

Bonne continuité,

Étienne

 

[Papou-net]

Re : Traduire la fonction SI dans VBA

Bonsoir PierYves, James007, Etienne2323,

Je ne comprends pas bien, mais j'essaierais comme ceci :

Cells(1, 1).Value = IIF([B22] = 1, [F22] * [G22] * [R$8], 0)

Sans autre garantie.

Cordialement.

 

[job75]

Re : Traduire la fonction SI dans VBA

Bonsoir PierYves, [Edit] James007, Etienne2323, Papou-net,

Au lieu de :

=SI(B22=1;+F22*G22*R$8;0)

il est beaucoup plus simple d'écrire :

=(B22=1)*F22*G22*R$8

Pour VBA, X22 est-elle la cellule active ou la cellule où est entrée la formule ?

1) si c'est la cellule active :

ActiveCell.Offset(, 6).FormulaR1C1 = "=(RC[-28]=1)*RC[-24]*RC[-23]*R8C[-12]"

2) si c'est la cellule où est entrée la formule :

ActiveCell.Offset(, 6).FormulaR1C1 = "=(RC[-22]=1)*RC[-18]*RC[-17]*R8C[-6]"

A+

 

[PierYves]

Re : Traduire la fonction SI dans VBA

C'est bon ! merci beaucoup Job75 pour ton aide ton code était nickel ! j'ai juste adapté à ma feuille les chiffres de placement des cellules.
Il s'agissait en effet de la cellule ou est rentrée la formule.
Merci a tous pour vos réponses et votre rapidité !
Merci beaucoup