Valeur max avec critère
Fermé
cajou08
Messages postés
7
Date d'inscription
jeudi 8 octobre 2015
Statut
Membre
Dernière intervention
11 octobre 2015
-
Modifié par Whismeril le 11/10/2015 à 20:40
cajou08 Messages postés 7 Date d'inscription jeudi 8 octobre 2015 Statut Membre Dernière intervention 11 octobre 2015 - 11 oct. 2015 à 21:59
cajou08 Messages postés 7 Date d'inscription jeudi 8 octobre 2015 Statut Membre Dernière intervention 11 octobre 2015 - 11 oct. 2015 à 21:59
A voir également:
- Valeur max avec critère
- Réinitialiser kidicom max ✓ - Forum Tablette tactile
- Max maillot avis ✓ - Forum Consommation et internet
- Excel recherchev valeur max ✓ - Forum Excel
- Pièce 2 euros dessin bonhomme valeur ✓ - Forum Loisirs / Divertissements
- Edraw max - Télécharger - Présentation
1 réponse
cajou08
Messages postés
7
Date d'inscription
jeudi 8 octobre 2015
Statut
Membre
Dernière intervention
11 octobre 2015
11 oct. 2015 à 21:59
11 oct. 2015 à 21:59
Après réflexion, j'ai amélioré le code qui semble fonctionnel même si j'imagine que ce n'est pas forcément bien écrit (j'ai ajouté un contrôle sur l'année en plus du mois) :
Public Function max_m(plage_date As Range, num_mois As Byte, plage_recherche As Range) As Double
'fct max_m : trouve la valeur mensuelle maximale dans une plage donnée
'carnet entraînement : sortie mensuelle avec le + grand kilométrage
'arg1 : plage_date : plage contenant les dates
'arg2 : num_mois : numéro du mois
'arg3 : plage_recherche : plage contenant les données
Application.Volatile
Dim annee As Integer
'annee courante du carnet d'entraînement, la valeur est stockée temporairement dans setup.F5
annee = Sheets("setup").Range("F5").Value
For Each élément In plage_date
ligne_relative = élément.Row - plage_date.Row + 1
colonne_relative = élément.Column - plage_date.Column + 1
If Month(élément.Value) = num_mois _
And Year(élément.Value) = annee Then
If plage_recherche.Cells(ligne_relative, colonne_relative).Value > max_m Then
max_m = plage_recherche.Cells(ligne_relative, colonne_relative).Value
End If
End If
Next
End Function