addition de colonnes

Bonjour et bonne annee a tous.:P

Voila, j ai un soucis. je souhaite donner a une cellule, une formule d'addition.

Code:

---

Cells(19, dercol).Formula = "=Sum(B19:dercol-1&19)"

---

je veux avoir la fonction somme allant de B19 à "dercol"19, et bien je n arrive pas a trouver comment faire.

Merci d avance

Bonsoir,

Tout d’abord, ta concaténation est incomplète ; il faudrait écrire

Code:

---

Cells(19, DerCol).Formula = "=SUM(B19:" & DerCol - 1 & "19)"

---

Mais surtout, cela ne peut pas marcher tel quel : SUM attend une référence de colonne sous forme de lettre. Or, DerCol est numérique, puisque tu écris "DerCol - 1" !

Il faudrait donc à partir de "DerCol - 1" déterminer la lettre ou la combinaison de lettres désignant le colonne dont le numéro est "DerCol - 1", ce qui est faisable, bien sûr, mais inutilement compliqué.

Il vaut donc mieux utiliser FormulaR1C1, ce qui donne :

Code:

---

Cells(19, DerCol).FormulaR1C1 = "=SUM(RC[-" & DerCol - 2 & "]:RC[-1])"

---

NB - Ici "DerCol - 2" sert à déterminer le nb de colonnes entre "DerCol" et la colonne B (colonne n° 2)

Bonne année,

Michel Gaboly

Salut
P'vez répéter la question ??

ce que je comprends : tu veux mettre une formule en dernière colonne +1 de la ligne 19 faisant la somme de cette ligne de B à dernière colonne

Code:

---

1 2 3 4 5 6 7

Sub test() Dim DerCol As Integer DerCol = Range("IV19").End(xlToLeft).Column Cells(19, DerCol + 1).FormulaLocal = "=somme(B19:" & _ Cells(19, DerCol).Address(0, 0) & ")" End Sub

---

A+
PS Moi, j'ai Excel en français, et je trouve plus facile d'utiliser les formules française que les anglaise, mais tu peux utiliser Sum à la place de Somme

Un tres grand merci pour votre aide.

Code:

---

Cells(19, DerCol).FormulaR1C1 = "=SUM(RC[-" & DerCol - 2 & "]:RC[-1])"

---

fonctionne a merveille.

Bonne soiree

2008 est une annee qui commence tres bien !!:yaisse2:

Tant mieux

Je te souhaite qu’elle se poursuive aussi bien ;-))