Discussion :

[Huubb]

bonjour à tous

je debute VBA

Voila g un tableau excel a la fin duquel g 2 colonne ; 1 colonne somme et 1 colonne moyenne
G une petite macro qui me rajoute dans ce tableau chaque semaine 1 nouvelle colonne de données. Cequi décale automatiquement mes colonnes moyenne et somme situées a la fin de mon tableau.

Mon Pb c est que j arrive pas a faire que mes formules englobent la nouvelle colonne. Elles continuent de calculer somme et moyenne sur 6 semaine quand je vient de rajouter une 7 ème semaine par exemple.

Lors de l enregistrement à la main de macro, g pourtant utilisé Ctrl + Shift + fleche gauche pour bien lui dire de prendre toute la ligne !!

Voila le code qu il a retenu

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
ActiveCell.Offset(1, 1).Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=AVERAGE(RC[-8]:RC[-1])"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=SUM(RC[-9]:RC[-2])"
    ActiveCell.Offset(0, -1).Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    ActiveCell.Range("A1:B4").Select
    ActiveSheet.Paste

L objectif serait d avoir un truc du style
Average(RC[-1]:End(xlToLeft)), evidemment ca marche pas
Sachant en plus qu il faudrait que mon End(xlToLeft) s arrete une cellule avant la fin de mon tableau histoire de pas prendre la légende

Comment faire