FormulaR1C1

Bonjour, actuellement dans mon code j'ai des lignes en FormulaR1C1 et j'aimerais bien les passer en FormulaLocal pour rendre le code un peu plus compréhensible. Existe-il un moyen simple pour faire cette transition ?

Merci.

bonjour,

Formula local c'est la formule telle que tu pourras la lire dans la barre de formule.

Ex:

ActiveCell.FormulaLocal = "=SI(A3 > 0; A3; 0)"

A+

galopin01 a écrit :

bonjour,

Formula local c'est la formule telle que tu pourras la lire dans la barre de formule.

Ex:

ActiveCell.FormulaLocal = "=SI(A3 > 0; A3; 0)"

A+

Merci, cependant, cela je le sais, ce que je souhaitais savoir c'était si on pouvait transformer une formulaR1C1 en formulaLocal directement, il s'agit d'un code assez ancien, c'est pour cela que j'aimerais faciliter sa compréhension.

bonsoir

avez vous vus ca

Sub test()
    Dim x,  InputFormula, OuputFormula
    InputFormula = "=MAX(IF(C[-2]<>1111,C[-2]))"
    OuputFormula = Application.ConvertFormula( _
        Formula:=InputFormula, _
        fromReferenceStyle:=xlR1C1, _
        toReferenceStyle:=xlA1)
     MsgBox Evaluate(OuputFormula)
    'pour ecrit la formule dans la cellue
    'ActiveSheet.Evaluate("C1").FormulaArray = OuputFormula       
    End Sub