Menu

Optimisation du code Vba (automatiquement) [Résolu]

Messages postés
10
Date d'inscription
mercredi 20 mars 2019
Statut
Membre
Dernière intervention
29 mars 2019
- - Dernière réponse : Leaig
Messages postés
10
Date d'inscription
mercredi 20 mars 2019
Statut
Membre
Dernière intervention
29 mars 2019
- 20 mars 2019 à 14:44
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).Select
End With




Configuration: Windows / Internet Explorer 11.0
Afficher la suite 

Votre réponse

2 réponses

Messages postés
10
Date d'inscription
mercredi 20 mars 2019
Statut
Membre
Dernière intervention
29 mars 2019
0
Merci
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))"
Commenter la réponse de Leaig
Messages postés
4498
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
17 mai 2019
106
0
Merci
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 & ")"

Leaig
Messages postés
10
Date d'inscription
mercredi 20 mars 2019
Statut
Membre
Dernière intervention
29 mars 2019
-
Merci d'avoir répondu
Commenter la réponse de ThauTheme