Find avec une "condition"

Bonjour à tous,

Je dispose à l'heure actuelle d'un fichier contenant un très grand nombre de lignes et pour lequel j’effectue des traitements.
Un jour représente =/- 800 lignes (1 ligne par minute de 8h à 22h).

Je traite donc ce fichier "jour" par jour par bloc de 800 lignes.
Pour chaque bloc je recherche si une valeur (ex: 3000) a été dépacée durant la journée.

Ma méthode actuelle est assez triviale, je passe en revue toutes les cellules de la range du jour( avec un for each), et si la valeur de la cellule est supérieure à celle recherchée, je coupe le traitement.

C'est très très long...
Je me demande donc si "Find" je ne pourrais pas raccourci le temps de traitement.
Avec un truc du genre.....

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim RechMaxi As Range   With Sheets("Feuil1") Set RechMaxi = .Columns(1).Find(">" & 3000)   If Not RechMaxi Is Nothing Then Debug.Print RechMaxi.Row Else Debug.Print "nok" End If End With

---

Le Find me permettrait ainsi de trouver la première cellule supérieur à 3000.
Et si rien n'est trouvé de conclure que 3000 n'a pas était atteint durant la journée.

Sauf que la syntaxe n'est pas ok... je n'ai rien trouvé sur le net qui dise que cela soit possible..


Merci d'avance

bonjour,

et tu cherche ou ? dans une colonne ? pourquoi ne pas utiliser un filtre automatique?

Bonjour à tous

Peut-être comme cela :

Code:

---

1 2 3 4 5 6 7 8

Sub le_plus_grand() Dim lemax As Integer Dim maplage As Range   Set maplage = Worksheets("Feuil1").Range("A10:A1000") lemax = Application.WorksheetFunction.Max(maplage)   End Sub

---

pour la plus grande valeur au-dessus de 3000.
Il suffit ensuite de traiter "lemax".

Eric

Bonjour tout le monde,

Je voudrais savoir qu'est ce que tu appelles un temps de traitement long. Un for each qui boucle sur 840 lignes, sa ne peut pas prendre un temps fou.
Je ne suis sans doute pas aussi expérimenté que vous mais je trouve sa curieux.