Discussion :

[FCL31]

Bonjours à tous

J'ai des chiffres dans des cellules (au format nbr) avec un nombre non fixe de ligne (selon utilisation).

J'ai des calcules a faire en fonction du nombre de ligne utilisé.
J'ai fais le code ci-dessous mais sa marche pas.
Je me doute que le problème vient du x dans les calcules mais je sais pas comment faire pour que sa marche.

Code :

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

1
2
3
4
5
    x = Range("A65536").End(xlUp).Row
    Columns("D:E").NumberFormat = "#,##0.00"
    Range("E & (x+2)").FormulaR1C1 = "=SUM(R[-x]C:R[-2]C)"
    Range("E2").FormulaR1C1 = "=RC[-1]*RC[-2]"
    Range("E2").AutoFill Destination:=Range("E2:E & x"), Type:=xlFillDefault

Quelqu'un aurait une idée SVP
Merci d'avance de vote aide

.

[tedo01]

Bonjour,
Il y avait juste des guillements mal placés :

Code :

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

1
2
3
4
 
    Range("E" & (x + 2)).FormulaR1C1 = "=SUM(R[-" & x & "]C:R[-2]C)"
    Range("E2").FormulaR1C1 = "=RC[-1]*RC[-2]"
    Range("E2").AutoFill Destination:=Range("E2:E" & x), Type:=xlFillDefault

La variable x doit toujours se trouver en dehors des guillemets pour que sa valeur soit prise en compte.

[FCL31]

Impecable

J'avais réussi une partie en remplaçant

Code :

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

Range("E2").AutoFill Destination:=Range("E2:E & x"), Type:=xlFillDefault

par

Code :

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

Range("E2").AutoFill Destination:=Range(Cells(2, 5), Cells(x, 5)), Type:=xlFillDefault

Merci beaucoup

Toutefois, je ne comprend pas vraiment la formule : "=SUM(R[-" & x & "]C:R[-2]C)"
Une petite explication SVP ??
Merci

.

[tedo01]

Re-bonjour,

Par rapport à la cellule définie par Range("E" & (x + 2)) (= colonne E, ligne x+2),
la fonction somme (SUM) est calculée dans la colonne courante, depuis la première ligne du bloc (R[-x] = x lignes au-dessus de la ligne courante)
jusque 2 lignes avant (R[-2]).

Une fois ce code exécuté, la fonction est traduite dans la langue d'Excel.
Par exemple en français, si on a 10 lignes de données, la formule dans la cellule E12 sera :
=SOMME(E2:E10)