fonction Average dans un tableau ou on rajoute des colonnes

Version imprimable

1 pièce(s) jointe(s)

bonjour à tous

je debute VBA :aie:

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:

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 :(

13/09/2006, 18h34
SilkyRoad

bonjour

tu peux remplacer les formules de somme et de moyenne ainsi:

En L14 tu saisies
=MOYENNE(INDIRECT("D14:"&ADRESSE(LIGNE();COLONNE()-1)))

En M14 tu saisies
=SOMME(INDIRECT("D14:"&ADRESSE(LIGNE();COLONNE()-2)))

et tu adaptes pour les lignes suivantes ...
en L15
=MOYENNE(INDIRECT("D15:"&ADRESSE(LIGNE();COLONNE()-1)))
en M15
=SOMME(INDIRECT("D15:"&ADRESSE(LIGNE();COLONNE()-2)))
...etc...

Désormais le calcul continue à s'effectuer meme si tu insères une colonne à la suite

Nota:
lors de la construction de tableaux, il est toujours préférable de positionner les calculs tout en haut ou sur la gauche afin d'éviter ce type de désagrément

michel
14/09/2006, 16h24
Huubb

:king:

C parfait !

THx Michel
14/09/2006, 16h54
Huubb

1 pièce(s) jointe(s)

J en profite pour te demander si c possible de mettre a jour le graph qui represente le tableau.
Ma macro ne prend pas en compte la nouvelle colonne dans ces données sources et me refait le graph d avant l insertion de la colonne supplémentaire.

tu me diras certainement que c pas tres compliqué de dérouler á la main la plage de donnée qui apparait qd je clique sur le graph, mais bon...
je me renseigne, et tu m a l R d etre la bonne personne ! 8-)

tu peux tester cette procedure pour modifier la plage source du graphique

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub modification_SourceGraphique()
    Dim x As Integer
    Dim Plage As Range
    Dim Ws As Worksheet
 
    Set Ws = Sheets("Tabelle1")
 
    x = Ws.Range("B14").End(xlToRight).Column - 2
    Set Plage = _
        Ws.Range(Ws.Cells(14, 2).Address, Ws.Cells(16, x).Address)
 
    Ws.ChartObjects(1).Chart.SetSourceData Source:=Plage, _
                PlotBy:=xlRows
End Sub

michel