Moyenne sur colonnes variable

Version imprimable

21/10/2009, 13h18
bedoch

Moyenne sur colonnes variable

Bonjour a tous.

Je recherche une macro pour faire une moyenne de prix, le problème c'est que le nombre de colonne est variable.

Donc en gros il faudrait que le calcul de la moyenne s'effectue de la colonne G, toute les 2 colonnes (G & I & K...) et cela jusqu'à la fin du tableau.

Merci d'avance

Salut,
As tu des titres à tes colonnes, si oui, quels sont-ils?
Peut-on trouver des éléments communs aux colonnes à prendre en compte différents de celles à ne pas prendre en compte ?
Exemple: Tot_A_2008 / Tot_A_2009 / Tot_B_2008 / Tot_B_2009 / ...
A+

Re,
Pas été attentif, j'avais pas vu que tu voulais une Macro...:aie:

Tu peux faire une boucle avec un 'saut'
Exemple (pas testé, écrit à main levé):
Code:

1 2 3 4 5 6 7 8 9 10 Dim DerCol as long, c as long, MaSom as long, MonNb as long, MaMoy DerCol = sheets("Feuil1").cells(1,rows(1).cells.count).end(xltoleft).column 'récupère la dernière colonne remplie sur base de la ligne 1 For c = 7 to DerCol step 2 'Boucle de la colonne 7 (G) à la dernière remplie avec saut de 2, ça veut dire qu'à la boucle suivante c vaudra 9, ensuite 11,... MaSom = MaSom + cells(2,c) 'Somme les valeur de la ligne 2 toute les 2 colonne selon la boucle MonNb = MonNb+1 'Compte le nombre de colonne (il y a d'autre possibilité mais...) next c 'Passe au c suivant MaMoy = MaSom/MonNb
A+

21/10/2009, 16h54
bedoch

1 pièce(s) jointe(s)

je n'arrive pas a tout saisir, voici mon fichier pour faciliter la compréhension.

Pièce jointe 54336

OK, essaies ça, j'esère que les commentaires sont assez explicites...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub Moy()
 
Dim DerCol As Long, c As Long, MaSom As Long, MonNb As Long, MaMoy As Long, r As Long
 
DerCol = Sheets("Feuil1").Cells(2, Rows(2).Cells.Count).End(xlToLeft).Column 'récupère la dernière colonne remplie sur base de la ligne 2
 
For r = 3 To 22 'Boucle sur les lignes en considérant que le nombre est fixe
    For c = 7 To DerCol Step 2 'Boucle de la colonne 7 (G) à la dernière remplie avec saut de 2, ça veut dire qu'à la boucle suivante c vaudra 9, ensuite 11,...
        MaSom = MaSom + Cells(r, c) 'Somme les valeur de la ligne variable toute les 2 colonne selon la boucle
        MonNb = MonNb + 1 'Compte le nombre de colonne (il y a d'autre possibilité mais...)
    Next c 'Passe au c suivant
    Sheets("feuil1").Cells(r, 5) = Round(MaSom / MonNb, 2)
    MaSom = 0
    MonNb = 0
Next r
 
For r = 3 To 22 'Boucle sur les lignes en considérant que le nombre est fixe
    For c = 8 To DerCol Step 2 'Boucle de la colonne 8 (H) à la dernière remplie avec saut de 2, ça veut dire qu'à la boucle suivante c vaudra 9, ensuite 11,...
        MaSom = MaSom + Cells(r, c) 'Somme les valeur de la ligne variable toute les 2 colonne selon la boucle
        MonNb = MonNb + 1 'Compte le nombre de colonne (il y a d'autre possibilité mais...)
    Next c 'Passe au c suivant
    Sheets("feuil1").Cells(r, 6) = Round(MaSom / MonNb, 2)
    MaSom = 0
    MonNb = 0
Next r
 
End Sub

A+

P.S. J'ai pas vérifié si ligne vide mais c'est possible afin de ne pas avoir des 0€

23/10/2009, 13h06
bedoch

Merci Fvandermeulen c'est très sympa.

J'ai placé les résultats dans la dernière colonne et le tour est joué.