Trouver le maximum et son indice, sans utiliser de boucle

Version imprimable

15/09/2017, 15h45
Vbajon

Trouver le maximum et son indice, sans utiliser de boucle

Bonjour,

J'ai une répartition horaire de la charge. Je voudrai trouver le maximum et l'heure correspondante, SANS UTILISER UNE BOUCLE FOR. Exemple:

Heure P Load AC
00:00 86
01:00 86
02:00 86
03:00 80
04:00 82
05:00 80
06:00 0
07:00 0
08:00 0
09:00 2800
10:00 2800
11:00 3500
12:00 700
13:00 2800
14:00 2800
15:00 2800
16:00 702
17:00 0
18:00 290
19:00 290
20:00 290
21:00 290
22:00 290
23:00 290

En effet, j'évite de boucle car ça prend du temps pour l'exécution du code, et surtout parce que j'en ai déjà de trop dans le code. Merci

Cordialement

1 pièce(s) jointe(s)

bonjour,

Code:

1
2
3
4
5
6
7
Sub test()
 With CreateObject("AdoDb.connection")
        .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=YES"""
            Debug.Print .Execute("SELECT Count([Heures]),[Heures] from [Feuil1$] Group By [Heures]").getstring
        .Close
    End With
End Sub

Pièce jointe 312656

1 pièce(s) jointe(s)

Bonjour,

admettant que les données sont à partir de A1 et qu'on travaille sur la feuille active

Code:

1
2
3
4
5
6
7
8
9
10
Sub toto()
Dim PosValeurMax As Range
 
With ActiveSheet.Cells(1, 1).CurrentRegion
    Set PosValeurMax = .Find(Application.Max(.Columns(2)), , , xlWhole)
End With
 
If Not PosValeurMax Is Nothing Then MsgBox "Valeur Max : " & PosValeurMax.Value & " | Heure P : " & PosValeurMax.Offset(0, -1).Text
 
End Sub

Pièce jointe 312664

18/09/2017, 15h26
Menhir
Citation:

Envoyé par Vbajon

J'ai une répartition horaire de la charge. Je voudrai trouver le maximum et l'heure correspondante, SANS UTILISER UNE BOUCLE FOR.

On peut même le faire sans VBA.
En supposant que tes données sont en A2:B100
Code:

1 2 =INDEX(A2:A100;EQUIV(MAX(B2:B100);B2:B100)) =INDEX(B2:B100;EQUIV(MAX(B2:B100);B2:B100))
Ces formule étant éventuellement facilement transposable à du VBA avec Evaluate ou WorksheetFunction.
https://msdn.microsoft.com/fr-fr/lib.../ff841212.aspx
https://msdn.microsoft.com/fr-fr/lib.../ff193019.aspx

Citation:
Envoyé par joe.levrai
Bonjour,

admettant que les données sont à partir de A1 et qu'on travaille sur la feuille active
Code:

1 2 3 4 5 6 7 8 9 10 Sub toto() Dim PosValeurMax As Range With ActiveSheet.Cells(1, 1).CurrentRegion Set PosValeurMax = .Find(Application.Max(.Columns(2)), , , xlWhole) End With If Not PosValeurMax Is Nothing Then MsgBox "Valeur Max : " & PosValeurMax.Value & " | Heure P : " & PosValeurMax.Offset(0, -1).Text End Sub
Pièce jointe 312664
Ooooh làlà vous êtes un génie. Merci bcp. Je ne pensais pas qu'il y a une solution à ce problème. Thx :)