selection au sein d'un boucle

[Reeaz]

Bonjour, j'ai crée la macro suivante:

Sub Limites()

Sheets("Feuil4").Select

fin = Range("A5").End(xlDown).Row
lim = 0
For i = 5 To fin

Do While Cells(i, 1).Value <= 23 And Cells(i, 1).Value >= 12
lim = lim + Cells(i, 4).Value
Loop

Next i

lim = Range("G21").Value
End Sub

En fait mon fichier se positionne de la façon suivante:

1 52,83% (avec 3 coll d'écart entre 1 et 52.83%)
2 6,86%
3 0,41%
4 5,42%
5 7,60%
6 4,58%
7 13,23%
8 5,63%
9 1,76%
10 1,12%
22 0,00%
23 0,56%

Je voudrai que ma lacro fasse d'abord un test sur la première collone, si le chiffre de la première coll est compris entre 12 et 23, je prend la valeur de la collonne 4 (par exple si 23 je prend 0.5%) et à chaque fois que je suis ds cet intervalle, j'aditionne le chiffre et je renvoie ds une cell la somme.
Est ce que qqun pourrait jeter un cp d'oeil à ma macro?

Merci

 

[Yo]

Salut,
Essaye ça.
Si je comprends bien la somme est stocké dans la cellule G21

PS: J'ai repondu à ta question de ce matin, sur le calcul de la moyenne

Sub Limites()

Sheets("Feuil4").Select

fin = Range("A5").End(xlDown).Row
lim = 0
For i = 5 To fin

if Cells(i, 1).Value <= 23 And Cells(i, 1) >= 12 then lim = lim + Cells(i, 4).Value

Next i

Range("G21").Value=lim
End Sub

 

[Reeaz]

Je te remercie, ca marche .

merci également pr le truc de ce matin, cela m'a bien aidé.

Bon week end.

 

[Yo]

Bon Week End à toi aussi.