Discussion :

[hprfr]

Bonjour et bonne annee a tous.

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Bigalo]

Bonsoir,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Gorfael]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[hprfr]

Un tres grand merci pour votre aide.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

fonctionne a merveille.

Bonne soiree

2008 est une annee qui commence tres bien !!

[Bigalo]

Tant mieux

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