Traduction Formule excel en VBA

_Thierry

XLDnaute Barbatruc

Repose en paix

• 13 Avril 2006

• #2

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

N

n3Twork

XLDnaute Occasionnel

• 13 Avril 2006

• #3

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'

 

Vote positif 0 Vote négatif

A

AV

Guest

• 13 Avril 2006

• #4

Ave,

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

Code:

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

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

AV [aaa]

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 13 Avril 2006

• #5

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]

 

Vote positif 0 Vote négatif

N

n3Twork

XLDnaute Occasionnel

• 13 Avril 2006

• #6

Yes sa marche merci

voila la formule finale

Code:

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

 

Vote positif 0 Vote négatif