Discussion :

[jcderchain]

Bonjour,

Je ne comprend pas pourquoi le code suivant ne fonctionne pas.

Code :

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

1
2
3
4
 
           calcul = "=somme(" & Chr$(64 + c) & Str$(lg) & ":" & Chr$(64 + c) & Str$(i-1) & ")"
 
            Cells(c, i).Formula = calcul

Sachant

que "c" est le numéro de la colonne

que "lg" est le numero de la premier ligne

que "i" est le numéro de la ligne où je souhaite mettre ma formule

le résultat de "calcul" est par exemple

Code :

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

=somme(H4:H264)

Merci de votre assistance

[Fvandermeulen]

Salut,

A priori ton système "génère" un espace entre la lettre de la colonne et le numéro de ligne,

Code :

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

=somme(H 4:H 264)

Je crois que tu te complique la tâche...je pense qu'il vaut mieux utiliser le principe de cells pour définir ton Range ou le formulaR1C1.

Si j'ai bien compris malgré le peu de ligne de code (et l'inversion de ligne et colonne dans ton Cells), tu place la somme en dessous de la plage à 'sommer'
Si oui, ceci doit faire l'affaire pour autant que c=8; lg=4 et i=265:

Code :

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

Cells(i, c).FormulaR1C1 = "=SUM(R[-" & i - lg & "]C:R[-1]C)"

Sinon, as tu vraiment besoin de la formule? Si non tu peux faire:

Code :

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

Cells(i, c) = Application.Sum(Range(Cells(lg, c), Cells(i - 1, c)))

A+

[jcderchain]

Merci de ta rapide réponse.