Problème de somme multi-onglet !?

[Novice avance !?]

bonjour,
petit souci de somme de 2 cellules de 2 feuilles différentes ...

E1 = 01/01/07 au format ( mmmm aaaa ) dc janvier 2007
le nom de l'onglet de la 1ère feuille devient dc janvier 2007
H1= 01/03/07 au format ( mmmm aaaa )dc mars 2007
le nom de l'onglet de la 1ère feuille devient dc mars 2007


cette formule marche :
Range("E5").Select
Selection.FormulaR1C1 = ""
Selection.FormulaR1C1 = "Sum('mars 2007:janvier 2007' !RC)"

mais celle-ci ne fonctionne pas

Range("E5").Select
Selection.FormulaR1C1 = ""
Selection.FormulaR1C1 = Sum(Range("H1").Text & ":" & Range("E1").Text!RC)

d'où vient le souci !?

merci

 

[wilfried_42]

Re : Problème de somme multi-onglet !?

bonjour novice avance

Range("E5").Select
Selection.FormulaR1C1 = ""
Selection.FormulaR1C1 = Sum(Range("H1").Text & ":" & Range("E1").Text!RC)

= "Sum('" & format(range("H1").value,"mmmm aaaa") & ":" & format(Range("E1").value, "mmmm aaaa") & "' !RC)"

sans aucune garantie

 

[Novice avance !?]

Re : Problème de somme multi-onglet !?

désolé ça ne marche pas alors j'ai essayé ceci

Sheets("Recap").Range("E5").Select
Selection.FormulaR1C1 = ""
Selection.FormulaR1C1 = "Sum('" & Range("H1").Text & ":" & Range("E1").Text & "' !RC)"

mais voici le résultat : Sum('février 2007:janvier 2007' !RC) en toute lettre à la place d'avoir le résultat de la somme

 

[wilfried_42]

Re : Problème de somme multi-onglet !?

re:

personnellement j ne suis pas mecontent lol

je te cite

cette formule marche :
Range("E5").Select
Selection.FormulaR1C1 = ""
Selection.FormulaR1C1 = "Sum('mars 2007:janvier 2007' !RC)"

je ne pense pas qu'il y aie beaucoup de différence non ?

donc nous n'en sommes pas trop loin je crois, verifie ce qui est sensé fonctionné, il y a peut etre une faute de frappe : =

 

[wilfried_42]

Re : Problème de somme multi-onglet !?

re:

essaie ceci

Selection.FormulaR1C1 = "=Sum('" & Range("H1").Text & ":" & Range("E1").Text & "' !RC)"

dis moi Ton RC correspond à quoi ?

 

[ChTi160]

Re : Problème de somme multi-onglet !?

Salut Novice avance
Bonsoir le Fil
Arff un peu tard mais voila ce que j'ai fait
les dates en E1 et H1 mise en forme dans la macro à voir
addition des cellules A1 des deux feuilles

Sub tester()
'E1 = 01/01/07 au format ( mmmm aaaa ) dc janvier 2007
'le nom de l'onglet de la 1ère feuille devient dc janvier 2007
'H1= 01/03/07 au format ( mmmm aaaa )dc mars 2007
'le nom de l'onglet de la 1ère feuille devient dc mars 2007

Dim F As String, I As String

Range("E5").Select
Selection.FormulaR1C1 = ""
F = Format(CDate(Range("E1")), "mmmm yyyy")
I = Format(CDate(Range("H1")), "mmmm yyyy")

Range("E5").FormulaR1C1 = "=SUM([COLOR=Red]'[/COLOR]" & F & ":" & I & "[COLOR=Red]'[/COLOR]!R1C1 )"
'Range("E5").FormulaLocal = "=Somme([COLOR=Red]'[/COLOR]" & F & ":" & I & "[COLOR=Red]'[/COLOR]!A1 )" 'ou
'Range("E5").Formula = "=SUM([COLOR=Red]'[/COLOR]" & F & ":" & I & "[COLOR=Red]'[/COLOR]!A1 )"          'ou
'Selection.Formula = "=SUM([COLOR=Red]'[/COLOR]" & F & ":" & I & "[COLOR=Red]'[/COLOR]!A1 )"           'ou etc etc

End Sub

Salut Wilfried pour le RC je me suis posé la même question Lol
Bonne fin de Soirée

 

[Novice avance !?]

Re : Problème de somme multi-onglet !?

bonsoir et merci à tous

Pour ChTi160.. qui m' proposé ceci !

---------------
Dim F As String, I As String

Range("E5").Select
Selection.FormulaR1C1 = ""
F = Format(CDate(Range("E1")), "mmmm yyyy")
I = Format(CDate(Range("H1")), "mmmm yyyy")


'Range("E5").FormulaLocal = "=Somme('" & F & ":" & I & "'!A1 )" 'ou
'Range("E5").Formula = "=SUM('" & F & ":" & I & "'!A1 )" 'ou
'Selection.Formula = "=SUM('" & F & ":" & I & "'!A1 )" 'ou etc etc

-------------------

à savoir que Range("E5").Formula = "=SUM('" & F & ":" & I & "'!A1 )" fonctionne parfaitement
mais que Range("E5").FormulaR1C1 = "=SUM('" & F & ":" & I & "'!R1C1 )" a pour conséquence de fixer la cellule de départ en $A$1

Sinon merci j'ai trouvé mon bonheur grâce à vous

bonne soirée

 

[ChTi160]

Re : Problème de somme multi-onglet !?

re

oui Effectivement,mais c'était quoi la question ????? 😀

Bonne fin de Soirée