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

[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

[Huubb]

C parfait !

THx Michel

[Huubb]

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 !

[SilkyRoad]

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

Code :

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

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