Fonction VBA Excel avec Select case

Je voudrais afficher les salaires de mon personnel à l’aide d’une fonction VBA Excel sur la base de l’instruction “Select case” :
Public Function SalaireMensuel (Classement as String, Salaire as Integer)
Select case Classement
Case is "3A"
Salaire=57650
Case is "3B"
Salaire=67980
Case is "3C"
Salaire=83275, ainsi de suite jusqu’à
Case "12F"
Salaire=380000
End select
End Function
Mais je n’y arrive pas. Quelqu’un peut-il m’aider ?

Bonjour, (C’est la moindre des choses pour commencer un post)

Pourquoi reposer une question déjà posée sur le forum auquel il n’y a eu aucune réponse

Ou sur d’autre forum

1 « J'aime »

Bonjour Mimimathy !
Je n’avais pas encore vu votre réponse pour laquelle je vous remercie. Je l’ai consultée mais elle ne se présente pas sous forme de fonction bien que le résultat soit le même. Je voulais une fonction du type:
"Public Function SalaireMensuel ( )
End Function"
où je n’aurais pas besoin de cliquer sur un bouton.

Bonjour @Yusufu_Ibn_Anurahi,
Salut @Mimimathy, :wink:

@Yusufu_Ibn_Anurahi, pourquoi n’utilises-tu pas:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'La macro de @Mimimathy

End Sub   

Cordialement.

Merci mdo100 pour ta suggestion. Je vais l’essayer et te tiendrai au courant du résultat.