Recherche Max critère cellule de gauche
Thomas_LP
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
Gyrus Messages postés 3334 Date d'inscription Statut Membre Dernière intervention -
Gyrus Messages postés 3334 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous
Voici ma problématique
J'ai besoin de déterminer la date la plus récente selon un critère que se trouve sur la cellule de gauche
Voici un exemple
A 01/01/14 B 01/01/16 A 01/01/15
Le critère est "A" et j'ai besoin de la date la plus récente de ce critère soit 01/01/15
Les données se trouvent sur la même ligne
Pouvez vous m'apporter un coup de pouce
Merci !
Voici ma problématique
J'ai besoin de déterminer la date la plus récente selon un critère que se trouve sur la cellule de gauche
Voici un exemple
A 01/01/14 B 01/01/16 A 01/01/15
Le critère est "A" et j'ai besoin de la date la plus récente de ce critère soit 01/01/15
Les données se trouvent sur la même ligne
Pouvez vous m'apporter un coup de pouce
Merci !
A voir également:
- Recherche Max critère cellule de gauche
- Windows 11 barre des taches a gauche - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Excel cellule couleur si condition texte - Guide
- I14 pro max - Accueil - Guide téléphones
- Proteger cellule excel - Guide
4 réponses
Merci pour vos réponses c'est la réponse qu'il me fallait
Par contre je ne comprends pas comment fonctionne la formule "DateLaPlusRecente"
De plus pour corser la chose j'ai oublié de vous dire qu'il y a une cellule supplémentaire entre chaque "chaine d'info"
-> A 01/01/2010 35 B 01/01/2014 35 A 01/01/2013 35
la réponse recherchée est 01/01/2013 (plus haute valeur du critère A)
Merci d'avance si vous pouvez m'apporter votre aide
Par contre je ne comprends pas comment fonctionne la formule "DateLaPlusRecente"
De plus pour corser la chose j'ai oublié de vous dire qu'il y a une cellule supplémentaire entre chaque "chaine d'info"
-> A 01/01/2010 35 B 01/01/2014 35 A 01/01/2013 35
la réponse recherchée est 01/01/2013 (plus haute valeur du critère A)
Merci d'avance si vous pouvez m'apporter votre aide
Bonjour,
J'ai créé une fonction personnelle nommée "DateLaPlusRecente" .
Pour visualiser le code, il faut ouvrir l'éditeur en appuyant sur alt + F11,
puis ouvrir l'explorateur de projets en appuyant sur ctrl + R.
La fonction se trouve dans le Module1 (sous Modules).
Voici le code commenté :
La cellule supplémentaire entre chaque "chaine d'info" n'a pas d'incidence puisque la cellule qui contient la date reste adjacente à celle qui contient le critère.
A+
J'ai créé une fonction personnelle nommée "DateLaPlusRecente" .
Pour visualiser le code, il faut ouvrir l'éditeur en appuyant sur alt + F11,
puis ouvrir l'explorateur de projets en appuyant sur ctrl + R.
La fonction se trouve dans le Module1 (sous Modules).
Voici le code commenté :
Function DateLaPlusRecente(Plage As Range, Critere As String) As Date
Dim Cel As Range
Dim DateT As Date
'On balaye chaque cellule de la plage
For Each Cel In Plage
'Si la valeur de la cellule est égale au critère, alors
If Cel = Critere Then
'Si la cellule décalée de 1 colonne contient une date plus récente que celle mémorisée (DateT)
'Alors, on mémorise cette nouvelle date.
If Cel.Offset(0, 1) > DateT Then DateT = Cel.Offset(0, 1)
End If
Next Cel
'La fonction renvoie la date la plus récente pour un critère donné
DateLaPlusRecente = DateT
End Function
La cellule supplémentaire entre chaque "chaine d'info" n'a pas d'incidence puisque la cellule qui contient la date reste adjacente à celle qui contient le critère.
A+