Probleme macro indice carriere

Bonjour,

J'ai trouvé un tableau pour calculer un indice de déroulement de carrière et la macro ne fonctionne pas(voir fichier joint)

Je m"explique par exemple pour un ASI qui a 6 ans 10 mois 9 jours il devrai etre a l'indice 381 hors il passe a 391. avant les 7 ans d'ancienneté

Function coef(emploi, dateemb)

anc = DateDiff("yyyy", dateemb, Date)

n = 0

Set valeur = Sheets(emploi.Value).Range("a4").Offset(n, 0)

While valeur.Value <> ""

If anc >= valeur Then

coef = valeur.Offset(0, 2).Value

End If

Set valeur = valeur.Offset(1, 0)

Wend

If anc > valeur.Offset(-1, 0).Value Then coef = valeur.Offset(n - 1, 2).Value

End Function

Je ne connait rien aux macro pouvez vous donc la rectifier .

Je vous en remercie par avance

Bien cordialement

Bonjour,

essaie ceci

Public feuille
Function coef(emploi, dateemb)
    anc = Year(Date - dateemb) - 1900
    n = 0
    Set valeur = Sheets(emploi.Value).Range("a4").Offset(n, 0)
    While valeur.Value <> ""
        If anc >= valeur Then
            coef = valeur.Offset(0, 2).Value
        End If
        Set valeur = valeur.Offset(1, 0)

    Wend

    If anc > valeur.Offset(-1, 0).Value Then coef = valeur.Offset(n - 1, 2).Value
End Function

Bonjour;

Merci beaucoup cela marche parfaitement !

Bien cordialement