Discussion :

[TonyRc]

Bonjour,

Dans un fichier excel j'ai des colonnes utilisés de la manière suivante :

Code :

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

Code Projet / Production M - Ratio M / Production M-1 - Ratio M-1 / Production M-i - Ratio M-i

Je souhaite effectuer la somme arithmétique des Production M, Production M, Production M-i sur une période de 12 mois conséquentives de mon code projet.

J'ai pensé à une code "For i= 1 to 12" allant de 2 en 2. Mon soucis est que je ne sais pas comment stocker la valeur des Arguments présenté afin d'en faire la somme.


Ex:

Code :

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

5106 / Juin: 12 - 40% / May: 14 - 76%/ Avril: 18 - 82% etc...

Je souhaite effectuer la somme artimétique de : 12, 14, 18 de la colonne C,E,G et la médiane de 40%, 76%, 82% de la colonne D,F,H etc...

Une idée pour écrire le code?

Remarques : Les dates sont décroissantes puisque je rajoute deux colonnes en début du mois avant d'écrire mes résultats.

[mercatog]

exemple
sonnées en ligne 2 à partir de colonne C

Code :

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

1
2
3
4
5
6
7
Dim i As Integer
Dim som As Double
 
For i = 3 To 25 Step 2
    som = som + Cells(2, i)
Next i
msgbox som

[TonyRc]

Merci pour l'idée! Effectivement, il me manquait le code suivant :

Code :

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

Step X

Mon code fonction à merveille grâce à toi!

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
Dim beta, y, z as integer
Dim a, sum, alpha as double
 
Alpha = WorksheetFunction.Count(Range("a:a"))
Range("H2").Value = Alpha
 
Sheets("West").Select
For beta = 1 To alpha
Sum = 0
z = 5 + beta
    For y = 3 To 25 Step 2
 
        a = Cells(z, 8 + y)
        Sum = a + Sum
    Next y
Cells(5 + beta, 7) = Sum
Next beta

Maintenant je tente avec la médiane