Discussion :

[toushusss]

Bonjour,
je souhaiterai traduire en code la Somme de la cellule .Range("C" & Tot.Row +7) à la cellule .Range("C" & Tot.Row + 10)

J'ai le début mais pas la fin

Code :

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

.Range("C" & Tot.Row + 11 ).Formula = "=Sum (.......)

Quelqu'un pourrail t il m'aider. Merci

[mercatog]

Tu as le choix
1. Formule absolue:

Code :

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

    .Range("C" & Tot.Row + 11).Formula = "=SUM(C" & Tot.Row + 7 & ":C" & Tot.Row + 10 & ")"

2. Formule relative:

Code :

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

    .Range("C" & Tot.Row + 11).FormulaR1C1 = "=SUM(R[-4]C:R[-1]C)"

3. Directement valeur:

Code :

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

    .Range("C" & Tot.Row + 11).Value = Application.Sum(.Range("C" & Tot.Row + 7 & ":C" & Tot.Row + 10))

[toushusss]

Merci beaucoup mercatog. Je viens d'utiliser la 1ere méthode et ça fonctionne impec.
Merci encore

Merci aussi a trash