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   -
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
A voir également:

2 réponses

Réponse 1 / 2
Leaig Messages postés 10 Date d'inscription   Statut Membre Dernière intervention  
 
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))"
0
Réponse 2 / 2
ThauTheme Messages postés 1442 Date d'inscription   Statut Membre Dernière intervention   160
 
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 & ")"
0
Leaig Messages postés 10 Date d'inscription   Statut Membre Dernière intervention  
 
Merci d'avoir répondu
0

Discussions similaires

sertissage des cables rj45
lekludo -
brupala -

7 réponses