Calcul de prorata

Bonjour le forum ,je reviens vers vous car j'ai fait une erreur sur mon fichier et je ne trouve pas la raison .J'ai fait appel a votre forum plusieurs fois pour le même fichier mais sous des demandes différentes car c'est mes demandes sont assez complexe à comprendre .Je suis presque arrivé à finaliser mais je bloque dans la formule :

Private Sub CmdbCalcul_Click()
    Dim Lig As Long, Coef As Long
    With Sheets("Accueil")
    Lig = Application.Match(CmbdMois.Value * 1, Range("O1:016"), 0)
    Select Case TbxAnciennete.Value * 1
        Case Is < 11
            Coef = Cells(Lig, "P")
        Case Is < 21
            Coef = Cells(Lig, "Q")
        Case Else
            Coef = Cells(Lig, "R")
    End Select
    TbxSocleP.Value = Coef
    End With
End Sub

Merci de votre compréhension

Bonjour Cfab6 ,

A mon avis, juste une petite coquille.

Dans la ligne : Lig = Application.Match(CmbdMois.Value * 1, Range("O1:016"), 0) il y a un zéro 0 devant le 16 de l’adresse du range alors que ce devrait être la lettre O.

Bravo je ne l'avais pas vu ,vraiment une faute d'inattention ,un grand merci .Cdlt

Re,

Si j'ai bien compris, pour l'inscrire dans une cellule à l'adresse T2 : sheets("Accueil").Range("t2") = Coef