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.