Faire une macro avec une fonction

Résolu
Fleci -  
jordane45 Messages postés 30426 Date d'inscription   Statut Modérateur Dernière intervention   -
Bonjour,

je voudrai créer un bouton affecté à une macro qui ferrai fonctionner la fonction suivante:
Function couleur(Cellule As Range)
.Application.Volatile
couleur = Cellule.Interior.ColorIndex
End Function

et je ne trouve pas comment faire.....

2 réponses

  1. jordane45 Messages postés 30426 Date d'inscription   Statut Modérateur Dernière intervention   4 830
     
    Bonjour,

    Tu fais une SUB (que tu appelleras depuis ton bouton)
    cette sub contiendra le code suivant
    Sub lenomquetuveux()
     Dim res
     Dim Cellule As Range
    
     set Cellule = ActiveCell
     res = couleur(Cellule) 
    MsgBox res
    End Sub
    


    0
  2. Fleci
     
    Merci bcp, mais j'ai ça maintenant.

    Sub couleur()
    Dim res
    Dim Cellule As Range

    Set Cellule = ActiveCell
    res = couleur(Cellule)
    MsgBox res
    End Sub

    et un message:

    Erreur de compilation:

    Nom ambigu détecté: couleur
    0
    1. jordane45 Messages postés 30426 Date d'inscription   Statut Modérateur Dernière intervention   4 830
       
      Heu... la sub ne peut pas avoir le meme nom que ta fonction
      0
      1. Fleci > jordane45 Messages postés 30426 Date d'inscription   Statut Modérateur Dernière intervention  
         
        à la demande de mon Chef, je me lance dans l'apprentissage...Sorry ;-)

        merci Bcp
        0
      2. jordane45 Messages postés 30426 Date d'inscription   Statut Modérateur Dernière intervention   4 830 > Fleci
         
        Si c'est résolu .. n'oublie pas de cliquer sur le lien sous le titre de ta question
        0