Le Guide Complet - Excel 2010-Fonctions et formules - MicroApp

Afficher le nom de la feuille
La fonction suivante renvoie le nom de la feuille active dans une
cellule. Saisissez =NOMFEUILLE() dans la cellule souhaitée et le tour
est joué !
Function NOMFEUILLE()
NOMFEUILLE = ActiveSheet.Name
End Function
Cette fonction utilise la propriété Name de l’objet ActiveSheet, qui
représente la feuille active.
Compter le nombre de voyelles d’un mot
La fonction suivante renvoie le nombre de voyelles contenues
dans le mot transmis comme argument.
Function NBVOYELLES(Mot As String)
NBVOYELLES = 0
For i = 1 To Len(Mot)
If InStr(1, "aeiouy", LCase(Mid(Mot, i, 1)))0 Then
NBVOYELLES =_NBVOYELLES + 1
Next i
End Function
Il s’agit de passer en revue chacune des lettres du mot, à l’aide
d’une boucle For… Next. Les caractères sont systématiquement
convertis en minuscule (Lcase) avant d’être recherché dans la liste
des voyelles (InStr). Si le caractère est une voyelle, InStr renvoie
sa position dans la liste des voyelles, sinon elle renvoie 0.
Afficher la référence de la dernière cellule
de la feuille
Cette fonction affiche la référence de la cellule non vide la plus
éloignée de A1, en d’autres termes la référence de la cellule non
vide qui se situe le plus « en bas à droite » de la feuille.
Function DERNIERE()
DERNIERE = ""
Colonne = 16384
Do
If Cells(1048576, Colonne).Value "" Then
312 13. Créer des fonctions personnalisées