Problème : Calcul prime ancienneté VBA

Bonjour, j'ai un soucis avec l'algorithme que j'ai écrit en VBA, il n'affiche que 0... Est ce que j'ai oublié quelque chose ? (Ceci est un exercice de cours à partir d'un tableau

Veuillez trouver ci joint mon fichier EXCEL. Le VBA se trouve dans le "Module 1".

Je me pose la question si je n'aurai pas du ajouté avant le End Function : "PBA (nom de ma fonction) = ...." pour lier les fonctions entre elles?

Merci d'avance

Bonjour,

Je me pose la question si je n'aurai pas du ajouté avant le End Function : "PBA (nom de ma fonction) = ...." pour lier les fonctions entre elles?

oui c'est bien ca,

PBA = PrimeBrut

Merci beaucoup pour la réponse rapide

Bonjour,

A tester.

Cdlt.

Option Explicit

Public Function PBA(CAT As String, NBENF As Byte, ANCIEN As Byte) As Double
Dim PrimeBrut As Double
    Select Case ANCIEN
        Case Is <= 2
            Select Case NBENF
                Case Is < 2
                    PrimeBrut = 50
                Case Is = 2
                    PrimeBrut = 150
                Case Else
                    PrimeBrut = 100 * NBENF
            End Select
        Case Is <= 5
            Select Case NBENF
                Case Is < 2
                    PrimeBrut = 100
                Case Else
                    PrimeBrut = 200 + (NBENF - 2) * 200
            End Select
        Case Is > 5
            Select Case NBENF
                Case Is < 2
                    PrimeBrut = 300
                Case Else
                    PrimeBrut = NBENF * 250
            End Select
    End Select
    Select Case CAT
        Case "Cadre"
            PrimeBrut = PrimeBrut * 1.3
        Case Else
            PrimeBrut = PrimeBrut
    End Select
    PBA = PrimeBrut
End Function