G
Greg
Guest
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
*******************
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
*******************