Modification d'une formule par VBA

A

AlainTech

XLDnaute Nouveau

• 16 Juin 2005

• #2

Le plus simple pour voir comment écrire une formule est de lancer l'enregistreur de macros, taper ta formule, arrêter l'enregistreur et regarder la macro écrite dans le module qui s'est créé.

 

Vote positif 0 Vote négatif

M

Matt78

Guest

• 16 Juin 2005

• #3

bonsoir AlainTech,le forum,

Je connais le générateur de macros, c'est pour cela que j'ai spécifié en VBA, car j'ai la même ds plusieurs classeurs créé par VBA. Mais la formule fait référence au nom d'un classeur créé. c'est pourquoi je souhaite savoir si on peut et comment modifier la formule d'une cellule en VBA.
bonne soirée AlainTech, toutes et tous.
Matt778

 

Vote positif 0 Vote négatif

2passage

XLDnaute Impliqué

• 17 Juin 2005

• #4

Bonjour,

ce que tu cherches est la propriété formula. Copie de l'aide :
Worksheets('Sheet1').Range('A1').Formula = '=$A$4+$A$10'

voila
a+

 

Vote positif 0 Vote négatif

M

Matt78

Guest

• 17 Juin 2005

• #5

Bonjour 12passage, le forum,

Merci pour ton début de solution. Effectivement, je n'avait pas remarqué cette fonction, néanmoins elle me pose un soucis car je n'arrive pas a référencer un autre classeur ou une autre feuille..
Ex:
Private Sub workBook_open()

Dim f1, f2, c1 As String
f1 = 'Feuil2'
f2 = 'Feuil3'
c1 = 'A1'
Worksheets('Feuil1').Range('A1').Formula = '=Worksheets(f1).range(c1).value + Worksheets(f2).range(c1).value'

End Sub
Cette macro ne fonctionne pas. As tu une idée?
Bonne journée
Matt78

 

Vote positif 0 Vote négatif

Gibson94

Nous a quitté

Repose en paix

• 17 Juin 2005

• #6

Bonjour Matt78, 2passage, AlainTech, le forum

Je te propose de remplacer ta formule

Worksheets('Feuil1').Range('A1').Formula = '=Worksheets(f1).range(c1).value + Worksheets(f2).range(c1).value'

par

Worksheets('Feuil1').Range('A1').Cells = Worksheets(f1).Range(c1).Value & Worksheets(f2).Range(c1).Value

 

Vote positif 0 Vote négatif

M

Matt78

Guest

• 17 Juin 2005

• #7

Bonjour Gibson94, le forum,

Non car en fait après le signe égal, cela doit être une chaine qui devient la formule de la cellule 'A1'.
Merci de l'info,@+.
Matt78

 

Vote positif 0 Vote négatif