Prob bizzare pour un calcul de pourcentage

[Greg]

Bonjour,

J'ai un petit probleme concernant la ligne de code suivante dans ma macro "complete" (alors que ce probleme ne semble pas se poser dans ma macro simplifiée. C'est pourtant le meme code pour cette partie). LE deboggeur m'amene donc à la ligne suivante : ActiveCell.FormulaR1C1 = "=RC[-1]/" & TotalVar

j'ai uploader les 2 macro à cette adresse

MAcro complete (celle qui ne fonctionne pas) :
http://www.dubanel.com/GregNotOK.xls
Macro simplifiée (fonctionne) : http://www.dubanel.com/GregOK.xls

Pourriez-vous m'aider à indentifier ce qui ne vas pas dans la macro complete, alors que ma macro simplifiée fonctionne ?

Merci d'avance pour votre aide;

Gregory


*****************

Range("D3").Select
Range(Selection, Selection.End(xlDown)).Select
Nblignes = Selection.Rows.Count

Range("F3").Select
Line = 0

Do Until ActiveCell = ""
ActiveCell.Offset(1, 0).Select
Line = Line - 1
Loop
Selection.Interior.ColorIndex = 40
ActiveCell.Formula = "=SUM(R[" & Line & "]C:R[-1]C)"
TotalVar = ActiveCell


Range("G3").Select
counter3 = 0
Do Until counter3 = Nblignes
ActiveCell.FormulaR1C1 = "=RC[-1]/" & TotalVar
ActiveCell.Offset(1, 0).Select
counter3 = counter3 + 1
Loop

*******************

 

[Zon]

Salut,

Quand on écrit une formule en VBA tu ne peux mettre directement une variable, de la même manière pour la variable Line 3 lignes au dessus, il faut rajouter des guillemets. Comme tu es en bout de formule il en faudra 3 ou 4, à tester :

ActiveCell.FormulaR1C1 = "=RC[-1]/" & """" & TotalVar & """"


A+++