[XL-2003] Boucle et division avec 2 variables.

Boucle et division avec 2 variables.

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 :aie:

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:cry:
Soyez indulgent de mon code ;)
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 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 merci8-)

Salut.

Perso, j'aime bien (voir ma signature) réfléchir d'abord en Excel. Le VB pose parfois des lourdeurs d'exécution, notamment à cause des boucles.

En considérant ta plage commençant en H2 et se terminant en H7 (H8 étant vide), tu aurais

Citation:

=SOMMEPROD((H2:H7<>0)*H2:H7)/SOMMEPROD((H2:H7<>0)*1)

pour obtenir la moyenne des cellules différentes de 0.

Cette formule est traduite en VBA grâce à la fenêtre d'exécution (CTRL+G) dans l'éditeur VB. Tu obtiens

Citation:

=SUMPRODUCT((H2:H7<>0)*H2:H7)/SUMPRODUCT((H2:H7<>0)*1)

Le problème consiste donc à trouver la valeur 7 en VBA, ce qui est réalisé grâce à

Code:

Range("h2").End(xlDown).Row

Tu peux donc composer l'adresse puis remplacer H2:H7 par l'adresse construite, et utiliser la fonction EVALUATE en VBA, qui permet notamment d'évaluer le résultat d'une formule.
Code:

1 2 3 4 5 Dim Moyenne As Variant Dim Adresse As String Adresse = "h2:h" & Range("h2").End(xlDown).Row Moyenne = Evaluate("=SUMPRODUCT((" & Adresse & "<>0)*" & Adresse & ")/SUMPRODUCT((" & Adresse & "<>0)*1)")

Si tu tiens vraiment à réaliser cela avec une boucle, voici un processus

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
  Dim Valeur As Variant
  Dim Compteur As Long
  Dim Cellule As Range
  Dim Moyenne As Variant
 
  Set Cellule = Range("h2")
  Do While Not Cellule = ""
    If Cellule.Value <> 0 Then
      Valeur = Valeur + Cellule.Value
      Compteur = Compteur + 1
    End If
    Set Cellule = Cellule(2)
  Loop
  If Compteur <> 0 Then Moyenne = Valeur / Compteur

Un problème que tu avais dans ton code se situait au niveau du test "<>0" à la ligne 20 de ton code...

Tu pourrais aussi avoir ce test au sein de la boucle, mais le code serait moins "logique".

Code:

1
2
3
4
5
  Do While Not Cellule = ""
    Valeur = Valeur + Cellule.Value
    If Cellule.Value <> 0 Then Compteur = Compteur + 1
    Set Cellule = Cellule(2)
  Loop

Alors premièrement merci pour cette réponse, que je vais tester.:ccool:
Depuis j'ai repris tout à zéro avec une boucle for et ça marche plutôt bien, voici le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Sub Generer_graphique()
 
Dim Val, Var, C, I As Integer
 
Set ws1 = Worksheets("Stat")
 
For I = 2 To 2000
    If Cells(I, 4).Value <> "0" And Cells(I, 4).Value <> "" Then
        C = C + 1
        Var = Cells(I, 4).Value + Var
    ElseIf Cells(I, 4).Value = "" Then
    Exit For
    End If
Next
 
    ws1.Select
    Range("J3").Select
    Range("J3").Value = Var / C
 
MsgBox "Graphique généré"
 
End Sub