code macro pour moyenne

[fredo]

bonjour bonjour

voila j'ai fait une macro que j'ai codée moi meme (et oui j'en suis fier meme si elle fera rigoler la plupart d'entre vous) mais j'ai un souci avec la moyenne, ça ne marche pas, mes compteurs ne s'incrementent pas....
si qqun peut jetter un oeil ça me rendrait bien service...

Merci

ci joint le code :


Sheets("Graph").Select
Range("B5:B65536").Select
Dim Maxi As Integer
Dim Mini As Integer
Dim Moy
Dim compteur1 As Integer
Dim compteur2 As Integer
compteur1 = 0
compteur2 = 0
Maxi = 0
Mini = 1000
Moy = 0
For Each c In Selection
If c.Value > Maxi Then
Maxi = c.Value
End If
Next c
Range("E4") = "" & Maxi & ""
For Each c In Selection
If c.Value < Mini And c.Value <> "" Then
Mini = c.Value
End If
Next c
Range("E5") = "" & Mini & ""
For Each c In Selection
If c.Value <> "" Then
compteur1 = compteur1 + c.Value And compteur2 = compteur2 + 1
End If
Next c
Moy = compteur1 / compteur2
Range("E6") = "" & Moy & ""
Range("A3").Select

 

[Michel_M]

Bonjour,

On a tous débuter 1 jour ou l'autre et on a tous été fier de notre "oeuvre" donc bravo, ta macro n'est pas mal du tout

ce qui est bizarre:
compteur1 = compteur1 + c.Value And compteur2 = compteur2 + 1

à transformer en
compteur1 = compteur1 + c.Value
compteur2 = compteur2 + 1
Le "AND" étant un opérateur logique

Michel (atwork)

 

[fredo]

merci ça marche super

bon je vous dit "au prochain bug", e,fi, je voulais dire "abientot"....lol