Fonction pour avoir valeur plus élevé
Bonjour,
On m'a refiler ce bout de code:
Function NbValUniques(laPlage As Range)
Dim ValeursUniques As New Collection
On Error Resume Next
For Each cell In laPlage
ValeursUniques.Add cell.Value, CStr(cell.Value)
Next cell
On Error GoTo 0
NbValUniques = ValeursUniques.Count
End Function
et on aimerai que je la modifie pour que je renvoie la valeur la plus élevé sachant que les valeurs sont des dates apparemment il faudrait que je modifie juste "ValeursUniques.Count" mais rien ne marche. La plage de cellule est variable.
On m'a refiler ce bout de code:
Function NbValUniques(laPlage As Range)
Dim ValeursUniques As New Collection
On Error Resume Next
For Each cell In laPlage
ValeursUniques.Add cell.Value, CStr(cell.Value)
Next cell
On Error GoTo 0
NbValUniques = ValeursUniques.Count
End Function
et on aimerai que je la modifie pour que je renvoie la valeur la plus élevé sachant que les valeurs sont des dates apparemment il faudrait que je modifie juste "ValeursUniques.Count" mais rien ne marche. La plage de cellule est variable.
9 réponses
-
Bonjour,
plus simple:
Function Date_max_txt(laPlage As Range) 'date format texte Date_max_txt = Format(WorksheetFunction.Max(laPlage), "dd/mm/yyyy") End Function
Function Date_max_Date(laPlage As Range) 'date format date avec format cellule Date Date_max_Date = WorksheetFunction.Max(laPlage) End Function -
Je doit remplacer toute la fonction ou seulement la ligne concerner?
-
Re,
Remplacez toute la fonction. -
et si maintenant je veut seulement le maximum parmi certaines dates de la plage?
-
Re,
la c'est une autre histoire. Comment definisez-vous: parmi certaines dates -
je vais essayer d'être précis,
imaginons que l'on veuille faire des contrats.
Chaque contrats a une date de début dans une case et de fin dans celle d'à cote suivi de valeur(chiffre).
J'ai fais en sorte que dans la feuil2 on donne une date et que si la date se retrouve entre celle de début et fin de contrats les valeur soit afficher sur la feuil2 sinon rien.
Mais si je me retrouve avec une date ou 2 contrats sont possible j'aimerai que le contrat ayant la date de début la plus proche soit pris en compte et pas l'autre autrement dit la date la plus élevé dans le temps.
Tout en ignorant les contrats sur lesquelles la date n'est pas comprise entre début et fin -
Re,
je veux bien imaginer tout ce que vous voulez, mais un exemple serait pas mal
et
J'ai fais en sorte que dans la feuil2 on donne une date et que si la date qui c'est le on -
on peut etre un utilisateur quelconque.
-
