Christian MUIR

Exemple 2

Dernière modification : 28 janvier 2009

Vous êtes ici : Accueil >> Tableur >> Approfondissement >> Fonction personnalisée >> Exemple 2
Exemples de fonction

Il s'agit d'une fonction utilisant des données présentes sur la feuille de calcul, données autres que les arguments de la fonction, et intégrant une structure conditionnelle.

Création de la fonction

Dans Excel

Menu Outils / Macro / Visual Basic Editor

Dans VB Editor

  • Menu Insertion / Module

Le module étant ouvert

  • Menu Insertion / Procédure / Type = Fonction
  • Nommer la fonction
    (dans l’exemple ci-dessous, la fonction est appelée commentaire)
  • Noter que VBA a créé la ligne Function et la ligne End Function
  • Saisir les arguments de la fonction à l’intérieur des parenthèses à la ligne Function ()
    • dans l’exemple ci-dessous, la fonction utilise deux variables
    • le résultat de la fonction a été défini comme Chaîne de caractères (String)
    • les arguments de la fonction ont été définis comme Réels simples (Single)
  • Entre les lignes Function et End Function, saisir le texte du programme correspondant à la fonction
  • Enregistrer le module

Attach:fperso_05.jpg Δ

Cette fonction utilise des données qui sont présentes dans la feuille de calcul et qui sont indépendantes des arguments de la fonction. En l'occurrence, le stock d'alerte (SAlerte) est dans la cellule C4 de la feuille de calcul, autrement dit 4è ligne et 3è colonne, soit en VBA Cells(4, 3), et le stock de sécurité (SSecu) dans la cellule C5, autrement dit 5è ligne et 3è colonne, soit en VBA Cells(5, 3).

Ces données ont été déclarées comme variables de type Réel (Single).

Utilisation de la fonction personnalisée

Attach:fperso_06.jpg Δ

On a utilisé dans la cellule F11 la fonction commentaire.

Le premier argument saisi dans la barre de formule pour la fonction commentaire(D11;E11) renvoie au premier argument de la fonction en VB Function commentaire(SI As Single, SF As Single).

Le second argument saisi dans la barre de formule commentaire(D11;E11) renvoie au second argument de la fonction en VB Function commentaire(SI As Single, SF As Single)''.

Pour utiliser cette fonction, on peut

  • Soit saisir directement dans la barre de formules la formule utilisant cette fonction
  • Soit utiliser Insertion / Fonction / Personnalisées

Attach:fperso_07.jpg Δ

  • Sélectionner la fonction à utiliser
  • L’Assistant Fonction est lancé

Attach:fperso_08.jpg Δ

  • Indiquer les références des cellules dans les zones correspondantes
    ici on sélectionnera D11 pour SI et E11 pour SF.

En téléchargement : le fichier Δ contenant la fonction


Powered by PmWiki
Licence Creative Commons