VBA excel pb fonction sum Résolu/Fermé

Question

Bonjour,

est ce que quelqu'un pourrait m'expliquer pourquoi ceci ne marche pas ? et éventuellement comment résoudre le problème ??

ligne = Sheets("SITE PREPARATION").Range("total").Row
Set plage = Sheets("SITE PREPARATION").Range(Cells(93, 3), Cells((ligne - 1), 3))
Sheets("SITE PREPARATION").Range("eq_quantity").FormulaR1C1 = "=SUM(" & plage & ")"

J'ai plus au moins résolu mon problème en utilisant : 

somme = Application.WorksheetFunction.Sum(Range(Cells(93, 3), Cells((ligne - 1), 3)))

Mais ça ne m'interresse pas car ça n'affiche pas la formule dans ma feuille de calcul...

Merci pour votre aide !!! :-)

Bidouilleu_R · Answer

bonjour,

on peut expliquer....

ligne = Sheets("SITE PREPARATION").Range("total").Row 
Set plage = Sheets("SITE PREPARATION").Range(Cells(93, 3), Cells((ligne - 1), 3)) 
Sheets("SITE PREPARATION").Range("eq_quantity").FormulaR1C1 = "=SUM(" & plage & ")" 

en ligne 2... tu définis un objet car Set définit un objet.
en ligne 3 tu utilises ce qui devrait être un nom de plage ( ensemble de cellule) mais que tu as définis comme un objet.

la correction c'est ce qui suit....

ligne = Sheets("Feuil1").Range("total").Row
Sheets("feuil1").Range(Cells(93, 3), Cells((ligne - 1), 3)).Name = "plage"
Sheets("feuil1").Range("eq_quantity").FormulaR1C1 = "=SUM(plage)"
Bonne journée

ori05 · Answer

Merci beaucoup !!
Bonne après midi :-)

VBA excel pb fonction sum

2 réponses

Discussions similaires