Fonction de conversion des notes avec Excel VBA

Vous connaîtrez sûrement les notes et leur signification de vos jours d’école. Le 1 correspondait à un «très bien», le 2 à un «bien» etc. Maintenant, programmez une fonction de tableau qui convertit automatiquement une note saisie dans le texte correspondant.
Pour ce faire, basculez vers l’environnement de développement, insérez un nouveau module et enregistrez la fonction suivante:

Function Notation(r)
Application.Volatile
Select Case r.Value
Case Is = 1: Notation = "très bien"
Case Is = 2: Notation = "Bien"
Case Is = 3: Notation = "Assez bien"
Case Is = 4: Notation = "Passable"
Case Is = 5: Notation = "médiocre"
Case Is = 6: Notation = "Insuffisant"
Case Else: Notation = "Faible"
End Select
End Function

 

Commentaires:

 Chaque fonction commence par le mot Function, suivi d’un nom que vous pouvez choisir presque comme vous le souhaitez, et des arguments qui sont passés à la fonction. Dans l’exemple ci-dessus, l’argument r a été passé. Cette lettre représente une référence de cellule à laquelle vous souhaitez faire référence.
 Pour vous assurer que la fonction délivre automatiquement la valeur correcte chaque fois que vous modifiez une note, utilisez la méthode Volatile, qui marque la fonction comme “modifiable”.

 Utilisez une structure de cas de sélection pour implémenter les notes. Si aucune note valide n’est entrée dans la cellule, un texte alternatif est émis dans la cellule.

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x