faire un compteur sous 2 conditions

[malouve]

Bonjour,

Je souhaiterais tout en parcourant ma feuille excel de près de 200000 lignes rechercher les valeurs supérieures à une valeur appelée val2, lorsque qu'une première valeur satisfait la condition, je voudrais regarder les 200 suivantes afin de savoir si elles rrendent ma condition vraie
si oui, il y a un compteur nb_cal qui s'incrémente
voici le code utilisé mais je n'ai pas le resultat voulu.

For k = 1 To NbrLign
If Cells(k, 2).Value > val2 Then
For m = k + 1 To k + 200 'pour parler des 200 valeurs suivantes
If Cells(m, 2).Value > val2 Then
nb_cal = nb_cal + 1
End If
Next m
End If
Next k

Avez-vous une idée de comment avoir le resultat
je vous remercie d'avance

 

[skoobi]

Re : faire un compteur sous 2 conditions

Bonjour,

D'après ce que j'ai compris, tu devrais passer le compteur à 0 après chaque incrémentation de "k":

For k = 1 To NbrLign
If Cells(k, 2).Value > val2 Then
[COLOR=Blue][B]nb_cal = 0[/B][/COLOR]
       For m = k + 1 To k + 200  'pour parler des 200 valeurs suivantes 
         If Cells(m, 2).Value > val2 Then
            nb_cal = nb_cal + 1
            End If
        Next m
    End If
  Next k