Discussion :

[iperkut]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

bonjour,

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

[edelweisseric]

Bonjour à tous

Peut-être comme cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[nchal]

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.