Incompatibilité de type :-(

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:

---

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

---

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

Code:

---

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

---

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:

---

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

---

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

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

Merci, la macro tourne bien!