Traduction Formule excel en VBA

[n3Twork]

Bonjour,

jai un petit probleme comment ecrire cette formule ci en VBA ?

=SI(ESTTEXTE(AJ211);'';AI211*GAUCHE(AJ211;2))

J'ai trouver ceci mais il y a un bug qlq part ....

'=IF(ISTEXT(RC[-1]),'''',RC[-2]*LEFT(RC[-1];2))'

merci

Message édité par: n3twork, à: 13/04/2006 14:37

Message édité par: n3twork, à: 13/04/2006 14:39

 

[_Thierry]

Bonjour N3Twork, le Forum

Vite fait, si j'ai bien compris...

Sub FormulaWriter()
    ActiveCell.Formula = _
    '=IF(ISTEXT(' & Range('AJ211').Address(0, 0) & '),'''',' & _
                    Range('AI211').Address(0, 0) & '*LEFT(' & _
                    Range('AJ211').Address(0, 0) & ',2))'
End Sub

Bon aprèm
[ol]@+Thierry[/ol]

 

[n3Twork]

euhh c'est pâs pôssible souis cette forme ?

'=IF(ISTEXT(RC[-1]),'''',RC[-2]*LEFT(RC[-1];2))'

il me fau des 'RC'

 

[AV]

Ave,

''..jai un petit probleme comment ecrire cette formule ci en VBA ?

=SI(ESTTEXTE(AJ211);'';AI211*GAUCHE(AJ211;2))''

Comme ça :
 '=IF(ISTEXT(AJ211),'''',AJ211*LEFT(AJ211,2))'

AV [aaa]

 

[_Thierry]

Re

Dans ce cas là, écris ta formule avec l'enregistreur de Macros activé, et tu auras ta syntax en format R1C1

ActiveCell.FormulaR1C1 = _
'=IF(ISTEXT(R[210]C[35]),'''',R[210]C[34]*LEFT(R[210]C[35],2))'

Bon aprèm (je m'en vais chez le toubib maintenant)
[ol]@+Thierry[/ol]

 

[n3Twork]

Yes sa marche merci

voila la formule finale

'=IF(ISTEXT(RC[-1]),'''',RC[-2]*LEFT(RC[-1],2))'