Bonjour,
Je souhaite trouver un minimum dans une plage définie par 2 bornes variables.
Dans mon tableau j'ai en:
- Colonne 1 des dates
- Colonne 2 des températures
L'utilisateur choisi la date et l'heure de début et de fin pour la plage a traiter.
L'outil VBA trouve un minimum en colonne 2 comprise entre les lignes des dates choisies.
Voilà le code :
J'ai essayé les deux méthodes pour trouver la température minimale.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22 Cellule_utile = Cells(num_ligne, 1).Value - 1 + 18 / 24 Cellule_Tmin_debut = Application.Match(CDbl(Cellule_utile), Sheets("Data 1").Columns(1), 0) Cellule_utile_2 = Cells(num_ligne, 1).Value + 18 / 24 Cellule_Tmin_fin = Application.Match(CDbl(Cellule_utile_2), Sheets("Data 1").Columns(1), 0) With Worksheets("Data 1") Set Plage_temp = .Range(.Cells(2, 1), .Cells(.Rows.Count, 2).End(xlUp)) Set Plage_Tmin = .Range(.Cells(WorksheetFunction.index(Plage_temp, Cellule_Tmin_debut, 2), 2), .Cells(WorksheetFunction.index(Plage_temp, Cellule_Tmin_fin, 2), 2)) End With Tmin = WorksheetFunction.Min(WorksheetFunction.index(Plage_temp, Cellule_Tmin_debut, 2), WorksheetFunction.index(Plage_temp, Cellule_Tmin_fin, 2)) ' Tmin = WorksheetFunction.Min(Plage_Tmin) Cells(num_ligne_DJU, 4).Value = Tmin
La valeur renvoyé est pour la première méthode, la température minimale entre les deux valeurs des deux bornes, soit l'une soit l'autre. Ne considère pas les températures entre les bornes.
La valeur renvoyé est pour la deuxième méthode (en commentaire), une température, ne correspondant ni au minimum, ni au maximum, ni la moyenne de ma plage.
Pourriez-vous m'aider sur ce coup là?
Merci!
Partager