Discussion :

[Vbajon]

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

[Invité]

bonjour,

Code :

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

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

[joe.levrai]

Bonjour,

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

Code :

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

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

[Vbajon]

Bonjour,

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

Code :

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

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

Ooooh làlà vous êtes un génie. Merci bcp. Je ne pensais pas qu'il y a une solution à ce problème. Thx

[Menhir]

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 :

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

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