Petit problème pour certains de ce forum mais je bloque, assez facile à faire par formule excel mais le but ici est de le faire à l'aide d'une macro


L’idée, on a une colonne H de X lignes, tant que ce n’est pas égal à vide,
Si la cellule <> de 0 :

=>On sauvegarde le nombre dans une variable VAR, cette variable sera la somme des nombres.
=>On incrémente un compteur C.

Si la cellule = 0 :
=>On passe à la ligne suivante.

Lorsque la cellule est vide, on fait VAR divisé par C et on inscrit ce résultat dans une cellule J3.

Voici le code (qui ne tourne pas correctement biensûr)
L'explication de ce que je veux faire parait super simple, et il y a surement plusieurs manières de faire mais je bloque après plusieurs tentatives
Soyez indulgent de mon code

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
28
29
30
31
32
33
 
Sub biloute()
 
Dim Val As Integer
Dim Var As Integer
Dim C As Integer
 
Set ws1 = Worksheets("Stat")
Set ws2 = Worksheets("Feuil2")
Set Plage = ws2.Range("D2:D6500")
 
Var = 0
 
With Plage.Select				 
 I = 1                       				
C = 1                      				
    Do While Cells(I, 4).Value <> ""                  
 If Cells(I, 4).Value = "0" 
I = I + 1                           
        	Else: Cells(I, 4).Value = "<>0"
            	C = C + 1                           
            	Cells(I, 4).Value = Val                         
Var = Application.Sum(Var + Val)    
            	I = I + 1                           
        	End If
    Loop
 
    ws1.Select          
    Range("J3").Select
    Range("J3").Value = Var / C      
 
End With
End Sub
D'avance merci