Optimisation du code Vba (automatiquement) Résolu/Fermé

Question

Bonjour, 

J'ai un code qui me pose problème ce que j'aimerais c'est qu'il me fasse la somme de la colonne G mais   le nombre de ligne change à chaque lancement du fichier dans mon code la formule permet de faire la somme que de 14 lignes je sais pas comment faire pour qu'il commence à chaque fois à partir de la ligne 5 et la somme se fait dans la colonne G à la première ligne vide.

Merci. 

    Sub Test()     With Worksheets("Feuil2")    .Range("G5:G" & .Cells(.Rows.Count, 2).End(xlUp).Row).FormulaR1C1 = "=((NUMBERVALUE(RC[-2]))*10)+(RC[-1]*10000)"    Selection.NumberFormat = "0.00"End With    With Worksheets("Feuil2")    .Range("G5:G" & .Cells(.Rows.Count, 2).End(xlUp).Row).Select    .Range("G65536").End(xlUp).Offset(1, 0).Select     ActiveCell.FormulaR1C1 = "=(SUM(R[-14]C:R[-1]C))+(SUM(R[-14]C:R[-1]C)/10)"    .Range("G65536").End(xlUp).Offset(1, 0).SelectEnd With 



Configuration: Windows / Internet Explorer 11.0

Leaig · Answer

Problème résolu avec ce code ci 

 Range("G65536").End(xlUp).Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=(SUM(INDIRECT(""G5:G""&ROW()-1))+(SUM(INDIRECT(""G5:G""&ROW()-1))/10))"

ThauTheme · Answer

Bonjour Leaig, bonjour le forum,

Peut-être comme ça :
Dim O As Worksheet
Dim DL As Integer

Set O = Worksheets("Feuil2")
DL = O.Cells(Application.Rows.Count, "G").End(xlUp).Row
O.Cells(DL + 1, "G").Formula = "=SUM(G5:G" & DL & ")"

Optimisation du code Vba (automatiquement)

2 réponses

Discussions similaires