Additionner des plages de cellules

RENAUDER

Nous a quitté

Repose en paix

• 27 Septembre 2007

• #2

Re : Additionner des plages de cellules

Bonjour,
Quelque chose du genre :

Position = 5
ActiveCell.FormulaR1C1 = "=SUM(R[" & -Position & "]C:R[-1]C)"

 

Vote positif 0 Vote négatif

SergiO

XLDnaute Accro

• 27 Septembre 2007

• #3

Re : Additionner des plages de cellules

Bonjour Cougar, Renauder,


Peut-être comme ceci :

Code:

ActiveCell.FormulaR1C1 = "=SUM(R1C" & ActiveCell.Column & ":R[-1]C)"

@+

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 27 Septembre 2007

• #4

Re : Additionner des plages de cellules

bonjour Cougar
Salut RENAUDER

un code a adapter pour la 1ere ligne de la somme

Code:

ActiveCell.FormulaLocal = "=SOMME(" & ActiveCell.Offset(-1, 0).Address & " :" & Cells([COLOR=red]1[/COLOR], ActiveCell.Column).Address & ")"

il te donnera la somme des cellules au dessus de la cellule active a partir de la ligne 1 (1 a midifier au besoin)

edit : decidement Sergio !!
tu me passe devant presque systematiquement

 

Vote positif 0 Vote négatif

C

Cougar

XLDnaute Impliqué

• 27 Septembre 2007

• #5

Re : Additionner des plages de cellules

Bonjour à vous tous,

Merci pour votre aide mais malheureusement je me suis mal exprimé. J'explique d'une autre manière.

Dans mon code, j'ajoute, selon une condition une nouvelle ligne et la total (=sommexxxx) ne s'ajuste pas. Donc, ma cellule pour le total devient en C10, je dois additionner C8:C9. Par la suite j'ajoute une autre ligne en D24 et la sommation se fait en D25 (D12😀24) et ainsi de suite.

En espérant avec été plus explicite dans ma description.

Courgar

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 27 Septembre 2007

• #6

Re : Additionner des plages de cellules

Re

eh bien désolé mais la seconde explication ne m'eclaire pas plus que la première

si ton code n'est pas couvert par le secret defense , fait nous en part

on comprendra peut-etre mieux

 

Vote positif 0 Vote négatif

C

Cougar

XLDnaute Impliqué

• 27 Septembre 2007

• #7

Re : Additionner des plages de cellules

Bonjour Pierrejean,

Tel que demandé, voici le fichier. Tu remarqueras qu'en prennant le client #7 et en ajouter une valeur de 25 dans le texbox C.T., le tout va très bien mais le total de la colonne (C13:C19) ne se met à jour, il demeure à C13:C18.

Merci pour ton aide

 

Pièces jointes

• Cougar.zip

  28.5 KB · Affichages: 49
• Cougar.zip

  28.5 KB · Affichages: 39
• Cougar.zip

  28.5 KB · Affichages: 42

Vote positif 0 Vote négatif

C

Cougar

XLDnaute Impliqué

• 28 Septembre 2007

• #8

Re : Additionner des plages de cellules

Bonjour le forum,

Pas de solution à mon problème ?

🙁

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 28 Septembre 2007

• #9

Re : Additionner des plages de cellules

bonjour Cougar

toutes mes excuses je t'avais oublié !!!

comme je n'ai pas tout compris de ton code , voila une macro que tu pourras appeler quand necessaire (sous reserve d'etre sur la Feuil1)

Code:

Sub totaux()
For n = 1 To Range("B65536").End(xlUp).Row
 If Range("B" & n) = "total" Then
  form = Range("C" & n).FormulaLocal
  nb = InStr(form, ":C") + 1
  Range("C" & n).FormulaLocal = Left(form, nb) & n - 1 & ")"
 End If
Next n
End Sub

 

Vote positif 0 Vote négatif

C

Cougar

XLDnaute Impliqué

• 28 Septembre 2007

• #10

Re : Additionner des plages de cellules

Bonjour pierrejean,

Le tout fonctionne très bien.

Merci

 

Vote positif 0 Vote négatif