En utilisant une formule d'une autre colonne dans Excel

Question

Je vais simplifier par exemple bien

J'ai une formule dans la colonne B qui est Ax + 2,

par exemple en B1, c'est A1 + 2 en B2, c'est A2 + 2

Je veux faire une formule dans la colonne Y qui reflète la formule B dans tous les cas, mais remplace A dans la formule par un X.

par exemple dans Y1, c'est X1 + 2 dans Y2, c'est X2 + 2

Peu importe ce qu'il advient de la formule dans la colonne B, je veux que la formule dans Y reflète ces changements. En fait, si je pouvais faire quelque chose comme = B1.formula.replace ("A", "X") alors cela ferait l'affaire. Cela peut-il être fait dans la barre de formule en haut ou devra-t-il être fait via une macro?

Merci

Answer 1

Voici la solution

Sub Button1_Click() Dim s As String

de = Range ("b2"). Formule

res Dim As String res = REPLACE (le s, "A", "x")

MsgBox res

End Sub

Answer 2

Sélectionnez B, copiez la colonne, sélectionnez Y et "Collage spécial" formule le choix ne doit faire le travail

Suite à votre commentaire:

Private Sub Workbook_Open() 
    Range("Y:Y").FormulaR1C1 = Range("B:B").FormulaR1C1 
End Sub 

fera le travail (macro à mettre dans ThisWorkbook)

Après votre deuxième commentaire:

Sub Workbook_Open() 
    On Error GoTo errLbl 
    xlCalc = Application.Calculation 
    Application.Calculation = xlCalculationManual ' stop calculation ' 
    Application.ScreenUpdating = False ' disable screen update ' 

    For Each c In Range("B:B") 
     Range("Y" & c.Row).Formula = Replace(c.Formula, "A", "D") 
     If c.Formula = vbNullString Then Exit For ' stop if "B" has no formula ' 
    Next 

errLbl:  
    Application.ScreenUpdating = True ' enable screen update ' 
    Application.Calculation = xlCalc ' enable calculation back to where it was ' 
End Sub