Optimisation du code Vba (automatiquement)
Résolu
Leaig
Messages postés
10
Date d'inscription
Statut
Membre
Dernière intervention
-
Leaig Messages postés 10 Date d'inscription Statut Membre Dernière intervention -
Leaig Messages postés 10 Date d'inscription Statut Membre Dernière intervention -
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.
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).Select
End With
Configuration: Windows / Internet Explorer 11.0
2 réponses
-
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))" -
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 & ")"
