Recherche prochaine date d'échéance parmi une liste de date

[Sebb01]

Bonjour,
J'aurai besoin d'aide pour trouver une formule matricielle (ou pas) pour rechercher une date de prochaine d'échéance parmi une liste de date D4:M4,
avec comme critère une date C9

Pour l'exemple dans le fichier excel joint, le résultat est B12
mais il faudrait une formule dans B9

Mon tableau final comporte + de 1000 lignes

merci d'avance,
Sébastien

 

[xuard]

Bonsoir Sébastien,

=INDEX(D4:M4;1;EQUIV(RECHERCHEH(C9;D4:M4;1;VRAI);D4:M4;0)+1)

en cellule B12
Et si en B9, on saisit 01/06/2020, quelle valeur doit s'afficher en B12 ?
@+
Christian

 

[Hectorpotaufeu]

Bonjour,
J'aurai besoin d'aide pour trouver une formule matricielle (ou pas) pour rechercher une date de prochaine d'échéance parmi une liste de date D4:M4,
avec comme critère une date C9

Pour l'exemple dans le fichier excel joint, le résultat est B12
mais il faudrait une formule dans B9

Mon tableau final comporte + de 1000 lignes

merci d'avance,
Sébastien

Bonjour,
Je te mets ton fichier que j'ai modifié pour inscrire la formule

 

[Phil69970]

Bonjour Sebb01, Xuard, le forum

Essaye cela dans un module

Sub Test()
Dim VarCible As String
Dim VarExtMois As String
Dim VarExtMois1 As String
Dim VarReCherche As String
Dim Cpt As Byte
Dim X As String

VarCible = Sheets("Feuil1").Range("C9")
VarExtMois = Mid(VarCible, 4, 2) + 1     'Extraction du N° du mois cellule C9 + 1 pour le mois suivant

For Cpt = 0 To 9            'Boucle sur les colonnes

    X = Range("D4").Offset(0, Cpt).Address
    
    VarReCherche = Sheets("Feuil1").Range(X)
    VarExtMois1 = Mid(VarReCherche, 4, 2) * 1  'Extraction du N° du mois pour comparaison
    
    If VarExtMois = VarExtMois1 Then
        Sheets("Feuil1").Range("B9") = Format(VarReCherche, "dd/mm/yyyy")
       Exit Sub
    End If
    
Next Cpt

End Sub

Cordialement

 

[Sebb01]

Bonjour,

je viens d'essayer la formule que tu as inscrite dans le fichier excel
super, ça fonctionne

La formule index fonctionne aussi, j'essayerai un peu plus tard le Vba

Encore merci,
Bonne journée

Sébastien