OVH Cloud OVH Cloud

somme

2 réponses
Avatar
patrick2708
dans mon classeur, j'ai x feuilles que je copie dans une feuille nommée recap.
dans cette recap, une fois les lignes de toutes mes feuilles importées, je
fais la somme de certaines colonnes. Mon problème est que lorsque je rajoute
des lignes dans une feuille et que je reintegre mes lignes dans ma recap, ma
fonction somme ne fonctionne plus car une partie de mon code ne s'incremente
pas. ci-joint le code qui ne bouge pas dans la fonction somme -436. Comment
puis-je faire pour que cette valeur s'incremente avec le nombre de lignes
supplementaires que j'ajoute dans mes feuilles ?
Merci de votre aide
patrick
Sub Macro7()
'
' Macro7 Macro
' Macro enregistrée le 14/10/2005 par patrick
'

'
Range("a1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "total"
ActiveCell.Offset(0, 3).Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-436]C:R[-1]C)"
ActiveCell.Offset(0, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-436]C:R[-1]C)"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-436]C:R[-1]C)"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-436]C:R[-1]C)"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-436]C:R[-1]C)"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-436]C:R[-1]C)"

End Sub

2 réponses

Avatar
Patrick Fredin
Bonjour,

Dans la macro, je remplacerais "[-436]" par "2" par exemple (si 2 est la 1e
ligne où le calcul doit commencer). Comme cela, où que soit la formule, elle
comprendra toutes les lignes nécessaires.

--
Patrick


"patrick2708" wrote:

dans mon classeur, j'ai x feuilles que je copie dans une feuille nommée recap.
dans cette recap, une fois les lignes de toutes mes feuilles importées, je
fais la somme de certaines colonnes. Mon problème est que lorsque je rajoute
des lignes dans une feuille et que je reintegre mes lignes dans ma recap, ma
fonction somme ne fonctionne plus car une partie de mon code ne s'incremente
pas. ci-joint le code qui ne bouge pas dans la fonction somme -436. Comment
puis-je faire pour que cette valeur s'incremente avec le nombre de lignes
supplementaires que j'ajoute dans mes feuilles ?
Merci de votre aide
patrick
Sub Macro7()
'
' Macro7 Macro
' Macro enregistrée le 14/10/2005 par patrick
'

'
Range("a1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "total"
ActiveCell.Offset(0, 3).Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-436]C:R[-1]C)"
ActiveCell.Offset(0, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-436]C:R[-1]C)"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-436]C:R[-1]C)"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-436]C:R[-1]C)"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-436]C:R[-1]C)"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-436]C:R[-1]C)"

End Sub


Avatar
patrick2708
désolé mais cela ne fonctionne pas, car avec cette valeur il calcul en
dehors de la plage


Bonjour,

Dans la macro, je remplacerais "[-436]" par "2" par exemple (si 2 est la 1e
ligne où le calcul doit commencer). Comme cela, où que soit la formule, elle
comprendra toutes les lignes nécessaires.

--
Patrick


"patrick2708" wrote:

dans mon classeur, j'ai x feuilles que je copie dans une feuille nommée recap.
dans cette recap, une fois les lignes de toutes mes feuilles importées, je
fais la somme de certaines colonnes. Mon problème est que lorsque je rajoute
des lignes dans une feuille et que je reintegre mes lignes dans ma recap, ma
fonction somme ne fonctionne plus car une partie de mon code ne s'incremente
pas. ci-joint le code qui ne bouge pas dans la fonction somme -436. Comment
puis-je faire pour que cette valeur s'incremente avec le nombre de lignes
supplementaires que j'ajoute dans mes feuilles ?
Merci de votre aide
patrick
Sub Macro7()
'
' Macro7 Macro
' Macro enregistrée le 14/10/2005 par patrick
'

'
Range("a1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "total"
ActiveCell.Offset(0, 3).Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-436]C:R[-1]C)"
ActiveCell.Offset(0, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-436]C:R[-1]C)"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-436]C:R[-1]C)"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-436]C:R[-1]C)"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-436]C:R[-1]C)"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-436]C:R[-1]C)"

End Sub