FormulaR1C1 = "=SUM...

skoobi

XLDnaute Barbatruc

• 10 Novembre 2007

• #2

Re : FormulaR1C1 = "=SUM...

Bonjour,
remplace voir les + par &. Test et dis-nous

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 10 Novembre 2007

• #3

Re : FormulaR1C1 = "=SUM...

bonjour


Zone = "r" & r1 & "C" & c1 & ":r" & r2 & "c" & c2

.formular1c1 = "=Sum(" & zone & ")"

 

Vote positif 0 Vote négatif

E

Edith

XLDnaute Nouveau

• 10 Novembre 2007

• #4

Re : FormulaR1C1 = "=SUM...

si j'ai bien compris, il faudrait codifier de la façon suivante. J'ai essayé mais j'obtiens l'erreur 1004 sur la dernière ligne !
r1 = "1"
c1 = "1"
r2 = "1"
c2 = "2"
zone = "r" & r1 & "C" & c1 & ":r" & r2 & "c" & c2

Cells(3, 1).FormulaR1C1 = "=SUM(&zone&)"

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 10 Novembre 2007

• #5

Re : FormulaR1C1 = "=SUM...

Enlève les & sur la denière ligne, ce n'est que dans les variables que tu dois le mettre.
Désolé de ne pas avoir précisé🙁

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 10 Novembre 2007

• #6

Re : FormulaR1C1 = "=SUM...

re:

perso comme dit dans mon precedent post, zone etant une variable string et non une plage

Formular1c1 = "=Sum(" & zone & ")"

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 10 Novembre 2007

• #7

Re : FormulaR1C1 = "=SUM...

re,
Salut wilfried,
Formular1c1 = "=Sum(zone)" marche aussi, j'ai testé, sauf si zone est déclaré comme Range biensûr.

 

Vote positif 0 Vote négatif

E

Edith

XLDnaute Nouveau

• 10 Novembre 2007

• #8

Re : FormulaR1C1 = "=SUM...

je suis désolée mais ça ne marche pas

la macro ne plante pas mais j'ai en A3 #NOM? et si je clique sur la case
=SOMME(zone)

(pour info :version EXEL 2000)


voici le code (mélange de reprise macro et de codification personnelle)
Cells.Clear
Range("a1") = 10
Range("b1") = 5

Range("C1").Activate

ActiveCell.FormulaR1C1 = "=SUM(RC[-2]:RC[-1])"
Cells(2, 1).FormulaR1C1 = "=SUM(r1c1:r1c2)"

r1 = "1"
c1 = "1"
r2 = "1"
c2 = "2"
zone = "r" & r1 & "C" & c1 & ":r" & r2 & "c" & c2

Cells(3, 1).FormulaR1C1 = "=Sum(zone)"

 

Vote positif 0 Vote négatif

B

Banzai64

XLDnaute Accro

• 10 Novembre 2007

• #9

Re : FormulaR1C1 = "=SUM...

Bonjour

Je confirme la solution de wilfried_42

Cells(3, 1).FormulaR1C1 = "=Sum(" & zone & ")"

 

Vote positif 0 Vote négatif

Gorfael

XLDnaute Barbatruc

• 10 Novembre 2007

• #10

Re : FormulaR1C1 = "=SUM...

Salut Edith, marcel et le forum

valeur 10 dans A1 et 5 dans B1
en utilisant l'enregitreur de macro et en me pointant en C1 j'obtiens :
ActiveCell.FormulaR1C1 = "=SUM(RC[-2]:RC[-1])" et la valeur 15

Étant feignant de la comprenette, je préfère utiliser autre chose :

Code:

Sub test()
Dim Col_1 As String
Dim Col_2 As String
Dim Lig_1 As Long
Dim Lig_2 As Long
Dim Zone As String
Col_1 = "A"
Lig_1 = 1
Col_2 = "B"
Lig_2 = 1
Zone = Col_1 & Lig_1 & ":" & Col_2 & Lig_2
Range("C1").FormulaLocal = "=Somme(" & Zone & ")"
End Sub

Mais on peut définir Zone différemment
A+

 

Vote positif 0 Vote négatif

E

Edith

XLDnaute Nouveau

• 10 Novembre 2007

• #11

Re : FormulaR1C1 = "=SUM...

OK ça marche. Merci à tous
il fallait codifier
Cells(3, 1).FormulaR1C1 = "=Sum(" & zone & ")"

Ca ne s'invente pas ??? mais comment faites vous pour connaitre toutes ces solutions. Je n'ai pas vu d'aide explicite à ce sujet

Merci encore

 

Vote positif 0 Vote négatif