L'informatique à votre portée
L'informatique prêt-à-porter

Faites appel à moi pour vos formations
sur les dpts 81, 31, 82, 11 et 67 (Strasbourg)
Confiez moi vos développements Office

FacebookTwitterGoogle BookmarksLinkedin

Fonctions

4 mars 2014
Imprimer E-mail

Une procédure Function est une série d'instructions écrites en VB, elles sont délimitées par les instructions Function et End Function . Elle exécute des actions et renvoie une valeur. Elle peut recevoir des arguments tels que des constantes, des variables ou des expressions passées par la procédure appelante, ces arguments sont mis entre parenthèse après l'instruction Function et son nom. Si une procédure Function n'a pas d'argument, la paire de parenthèses est vide mais obligatoire.
Cette procédure est communément appelé fonction car elle renvoie une valeur, il est préférable d'indiquer quel type de valeur elle renvoie dans l'instruction Function. Pour renvoyer cette valeur, vous devez la lui affecter à son nom dans une ou plusieurs instructions.
Pour les exemples suivants,  tapez une valeur dans une cellule puis sélectionnez-la, ensuite tapez le code indiqué dans une feuille module :

  • Sans arguments, la fonction renvoie le code de la couleur de fond de la cellule active :
    Public Function Code_Couleur() As String
      Code_Couleur = ActiveCell.Interior.ColorIndex
      Code_Couleur = "La couleur de la cellule active est : " & Code_Couleur
    End Function

    Pour exécuter cette procédure, tapez Range("B1")=Code_Couleur() dans la fenêtre Exécution, puis appuyez sur Entrée.
  • Avec arguments, la procédure fonctionne de la même manière, mais on lui précise sur quelle cellule elle doit lire la couleur de fond :
    Public Function Code_Couleur_Bis(AdressePlage As String) As String
      Dim UnePlage As Range

      Set UnePlage = Range(AdressePlage)
      Code_Couleur_Bis = UnePlage.Interior.ColorIndex
      Code_Couleur_Bis = "La couleur de la cellule " & AdressePlage & " est : " & Code_Couleur_Bis
    End Function
    Pour exécuter cette procédure, tapez range("B3")=Code_Couleur_Bis("A2") dans la fenêtre Exécution, puis appuyez sur Entrée, remplacez éventuellement A2 par l'adresse de votre cellule.