FormulaLocal

vbacrumble

XLDnaute Accro

• 3 Mai 2009

• #2

Re : FormulaLocal

Bonjour

Ainsi c'est bon.

Code:

Sub test()
Dim Formule$
Formule = "=SOMME($A2:$E2)"
ActiveSheet.Range("A1").FormulaLocal = Formule
End Sub

 

Vote positif 0 Vote négatif

L

lerexcel

XLDnaute Junior

• 3 Mai 2009

• #3

Re : FormulaLocal

Merci pour ta réponse ultra rapide !! Mais malheureusement cela ne marche pas...snif
Est-ce parce que je suis sur Excel2007 ?

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 3 Mai 2009

• #4

Re : FormulaLocal

Bonjour Lerexcel, VBACrumble
C'est bizarre, chez moi

Code:

Sub test()
Dim Formule As String
Formule = "=SOMME($A2:$E2)"
ActiveSheet.Range("A1").FormulaLocal = Formule
End Sub

fonctionne parfaitement... Et je suis en 2007.
A +

 

Vote positif 0 Vote négatif

L

lerexcel

XLDnaute Junior

• 3 Mai 2009

• #5

Re : FormulaLocal

Apparement cela ne marche que quand je coche L1C1 dans les options d'excel. Y-a-t-il une syntaxe pourl qui le comprenne automatiquement dans le genre FormulaR1C1Local ? ou quelque chose comme ça ?

 

Vote positif 0 Vote négatif

L

lerexcel

XLDnaute Junior

• 3 Mai 2009

• #6

Re : FormulaLocal

Bonjour et merci pour ta réponse JPN cela m'a fait le même pb erreur 1004, je pense que c'est lié à L1C1.

 

Vote positif 0 Vote négatif

L

lerexcel

XLDnaute Junior

• 3 Mai 2009

• #7

Re : FormulaLocal

Bon j'ai trouvé un truc pas très joli mais ça marche, si vous avez mieux je prend ^^ lol !

Sub test()

Application.ReferenceStyle = xlR1C1

Formule = "=SOMME($A2:$E2)"
ActiveSheet.Range("A1").FormulaLocal = Formule

Application.ReferenceStyle = xlA1

End Sub

Merci à tous !

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 3 Mai 2009

• #8

Re : FormulaLocal

Bonjour à tous,

Peux-tu essayer avec :

Code:

Option Explicit

Sub test()
Dim Formule As String
Formule = "=SOMME(L(1)C1:L(1)C5)"
ActiveSheet.Range("A1").FormulaLocal = Formule
End Sub

A+ à tous

 

Vote positif 0 Vote négatif

L

lerexcel

XLDnaute Junior

• 3 Mai 2009

• #9

Re : FormulaLocal

Ca fonctionne parfaitement JCGL, merci bien !

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 3 Mai 2009

• #10

Re : FormulaLocal

Bonjour


Quelqu'un peut m'expliquer pourquoi

Code:

Sub test()
Dim Formule$
Formule = "=SOMME($A2:$E2)"
ActiveSheet.Range("A1").FormulaLocal = Formule
End Sub

ne fonctionnerait pas sur Excel 2007 ??

 

Dernière édition: 3 Mai 2009

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 3 Mai 2009

• #11

Re : FormulaLocal

Re ,

vbacrumble à dit:

Quelqu'un peut m'expliquer pourquoi

Code:

Sub test()
Dim Formule$
Formule = "=SOMME($A2:$E2)"
ActiveSheet.Range("A1").FormulaLocal = Formule
End Sub

ne fonctionnerait pas sur Excel 2007 ??

Cliquez pour agrandir...

Ben non, vu que même en passant en L1C1, le code fonctionne toujours... Si notre ami pouvait mettre son fichier qui bloque, on pourrait y jeter un œil...
Bonne soirée

 

Vote positif 0 Vote négatif

L

lerexcel

XLDnaute Junior

• 7 Mai 2009

• #12

Re : FormulaLocal

Dsl, mais le fichier est bourré d'info confidentiel...

J'ai trouvé d'où venait le problème originel...j'avais un problème avec le format de la valeur renvoyé par la variable...en effet quand on passe par un textbox, donc par une variable en définitive, la valeur renvoyée par le textbox est déjà considérée comme une valeur textuelle, dans ce cas, il ne faut pas employer de guillemet.

J'ai donc réussi à créer un modificateur de formule par une boîte de dialogue, c'était également le but de mon problème.

Merci à tous ceux qui se sont penché sur mon problème !!

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 7 Mai 2009

• #13

Re : FormulaLocal

Bonjour à tous

Dsl, mais le fichier est bourré d'info confidentiel...

Cliquez pour agrandir...

lerexcel, Bon et bien la prochaine fois, ce serait bien que tu mettes un fichier dès le début sans données confidentielles (ce n'est pas très dur à faire) car la on reste un peu sur sa faim.

 

Vote positif 0 Vote négatif