Discussion :

[mat.lac]

Bonjour à tous,

Grand débutant en macro VBA, je n'arrive pas à résoudre un problème d'incompatibilité de type.
Voilà l'idée: j'ai des valeurs (colonne 19) dont je souhaite faire la moyenne par intervalle c'est-à-dire en fonction des valeurs stockées dans la colonne 11 et stocker ces moyennes dans la colonne 65.
Le problème se situe dans les conditions de ma boucle while...

Pourriez-vous m'aider SVP?
Merci d'avance!

Voici le programme:

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
34
35
36
Sub Moyenne()
 
Dim nb_cell As Integer
Dim pas As Integer
Dim p As Integer
Dim Total_cells As Integer
Dim nb_interval As Integer
Dim somme As Single
Dim Moyenne As Single
 
nb_interval = InputBox("nombre interval")
 
pas = 0
Moyenne = 0
p = 1
 
Total_cells = ActiveSheet.UsedRange.Rows.Count
 
While pas <= nb_interval
 
    For i = 4 To Total_cells
While [Cells(i, 11).Value > (374967 + pas * 2221 / nb_interval)] And [Cells(i, 11).Value <= (374967 + (pas + 1) * 2221 / nb_interval)]
        somme = somme + Cells(i, 19).Value
        nb_cell = nb_cell + 1
        Wend ' problèmes
 
    Moyenne = somme / nb_cell
    Cells(p, 65) = Moyenne
    p = p + 1
    somme = 0
    nb_cell = 0
    pas = pas + 1
    Next i
 
Wend
End Sub

[mercatog]

Pas de crochets, vba c'est pas un traitement de texte

Code :

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

While (Cells(i, 11).Value > (374967 + pas * 2221 / nb_interval)) And (Cells(i, 11).Value <= (374967 + (pas + 1) * 2221 / nb_interval))

[mat.lac]

Merci pour votre réponse qui m'a permis d'avancer!

J'arrive maintenant à faire fonctionner la macro (après quelques modifications) mais seulement si nb_interval est inférieur à 15... La valeur critique du pas est 14. Au-delà, je dépasse la capacité d'un des paramètres, sans réussir à trouver lequel. Le problème se situe toujours dans la déclaration de la boucle while
Encore une fois, merci d'avance pour votre aide!

Voici le programme avec les modifications:

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
34
35
36
37
38
39
Sub Moyenne()

Dim nb_cell As Integer
Dim pas As Integer
Dim p As Integer
Dim Total_cells As Long
Dim nb_interval As Integer
Dim somme As Single
Dim Moyenne As Single

nb_interval = InputBox("nombre interval")

pas = 0
Moyenne = 0
p = 1
nb_cell = 0

Total_cells = ActiveSheet.UsedRange.Rows.Count

While pas < nb_interval

    For i = 4 To Total_cells

        While (Cells(i, 11).Value > (374967 + pas * 2221 / nb_interval)) And (Cells(i, 11).Value <= (374967 + (pas + 1) * 2221 / nb_interval))
        somme = somme + Cells(i, 19).Value
        nb_cell = nb_cell + 1
        i = i + 1
        Wend

    Moyenne = somme / nb_cell
    Cells(p, 65) = Moyenne
    p = p + 1
    somme = 0
    nb_cell = 0
    pas = pas + 1
    Next i

Wend
End Sub

[mercatog]

Tu es maître de tes déclarations en fonction des valeurs possibles de tes variables.
Regardes ce tuto

[mat.lac]

Il suffisait effectivement de changer de déclaration (Integer -> Long) et ça a résolu le problème!

Merci, la macro tourne bien!