Discussion :

[bedoch]

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

[Fvandermeulen]

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...

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

Code :

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

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+

[bedoch]

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

Classeur1.xls

[Fvandermeulen]

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

Code :

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

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€

[bedoch]

Merci Fvandermeulen c'est très sympa.

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