Calcul de moyennes de cellules non adjacentes

Question

Bonjour,

J'ai un petit soucis avec excel. Je m'explique:

J'ai un tableau avec en colonne A des valeurs de temps (0, 1, 2,...) et en B une valeurs x correspondant et ainsi de suite, C temps, D valeurs de x correspondant à C... Je souhaite faire des calculs de stat par temps, c'est a dire calculer la moyenne, ecart type au temps t=0, t=9, t=27... (uniquement multiple de 9). Le probleme est que les valeurs de temps ne sont pas ailgnées: le pas de temps des colonnes A B et C va de 1 en 1, et pour les colonnes suivantes de 9 en 9.

Ce que je souhaite c'est faire la moyenne des cellules B10, D10, F10, H2, J2, K2 et M2 (exemple pout le temps 9sec) ensuite pour le temps 18sec (B19, D19 F19 H3 J3 K3 et M3)...j'ai 10000sec a traiter! J'ai essayé d'incrémenter les cellules mais excel ne comprend pas.

Merci beaucoup pour votre aide.

Le Pingou · Answer

Bonjour,
Et si vous mettiez votre exemple sur https://www.cjoint.com/ se serais pus simple de comprendre...

maroree · Answer

Voici mon exemple (mon ordi ne peut pas se connecter a  cjoint.com).

Ce que j'ai 			Ce que je souhaite	
0	2,80E+01		0	2,80E+01
1	3,60E+01		9	4,20E+01
2	2,60E+01		18	3,60E+01
3	2,50E+01		27	3,60E+01
4	9,80E+01			
5	6,30E+01			
6	3,65E+02			
7	2,50E+01			
8	3,22E+03			
9	4,20E+01			
10	4,90E+01			
11	3,30E+01			
12	1,20E+01			
13	1,10E+01			
14	2,70E+01			
15	7,60E+01			
16	5,90E+01			
17	8,40E+01			
18	3,60E+01			
19	5,80E+01			
20	9,50E+01			
21	4,50E+01			
22	2,30E+01			
23	6,50E+01			
24	9,50E+01			
25	8,40E+01			
26	1,25E+02			
27	3,60E+01			

Merci pour votre aide

Aurelie

michel_m · Answer

bonjour à tous
compte tenu du nombre de lignes je propose une solution par vba

Sub moyenne_avec_delai_mesures()
Dim delai As Byte, lig_mes1 As Integer, lig_mes2 As Integer, lig_moy As Integer, col_result As Byte
Dim fin As Integer
'---------------------------------------------------------------------initialisations
delai = Range("délai_sec")
lig_mes1 = 10
lig_mes2 = 2
lig_moy = 2
col_result = 16
'nettoyage moyenne
Range(Cells(lig_moy, col_result), Cells(20000, col_result)).ClearContents
'ligne dernière mesure
fin = Range("B65536").End(xlUp).Row
'fige l'écran
Application.ScreenUpdating = False
'-------------------------------------------------------------------------calculs
While lig_mes1 <= fin
Cells(lig_moy, col_result) = Application.Average(Cells(lig_mes1, 2), Cells(lig_mes1, 4), Cells(lig_mes1, 6), _
                                    Cells(lig_mes2, 8), Cells(lig_mes2, 10), Cells(lig_mes2, 11), Cells(lig_mes2, 13))
lig_mes1 = lig_mes1 + delai
lig_mes2 = lig_mes2 + 1
lig_moy = lig_moy + 1

Wend
End Sub



ci joint maquette à adapter
https://www.cjoint.com/?hipmtXNwuO

maroree · Answer

Merci beaucoup pour votre aide, je ne m'en sortais plus!!

Je pourrai recuperer la maquette ce soir depuis mon ordi perso!

Calcul de moyennes de cellules non adjacentes

4 réponses

Discussions similaires

Newsletters