Discussion :

[adummm]

Bonjour,

J'essaye un moyen d'editer une formule dans excel via VBA

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
current_formula = final.Cells(2,2)
final.Cells(2,2FormulaLocal = "=" & current_formula& "+" & 100

sachant que dans ma formule initiale, j'ai par exemple :
=70+40

et que le resultat que je souhaite soit :
=70+40+100

toutes mes tentatives que j'ai pour l'instant me donnent :
=110+100
je n'arrive donc pas a conserver les deux nombres du debut ...

merci d'avance pour votre aide !
alex

[jfontaine]

Bonjour,

Une idée a peaufiner

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Dim i As Integer
 
For i = 1 To 100 Step 10
 
    If Range("A1").FormulaLocal = "" Then Range("A1").FormulaLocal = "="
 
    Range("A1").FormulaLocal = Range("A1").FormulaLocal & "+" & i
 
Next i

Bon courage

[adummm]

j'ai trouvé, apres 3h de recherches .. le fait de poster ici m'a debloqué la situation ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
 
current_formula  = final.Cells(2,2).Formula
stri = current_formula  & "+" & 100
final.Cells(2,2).FormulaLocal = stri

[edelweisseric]

Bonjour à tous
Bonjour adummm

Essaie comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub essai_01()
current_formula = Cells(2, 2).Formula
Cells(2, 3).FormulaLocal = current_formula & "+" & "100"
End Sub

si j'ai bien compris

Eric

NB : Pas raffraichi. Bonjour jfontaine