Faire une macro avec une fonction [Résolu]

Fleci - 4 oct. 2017 à 11:42 - Dernière réponse : jordane45 19211 Messages postés mercredi 22 octobre 2003Date d'inscriptionModérateurStatut 12 décembre 2017 Dernière intervention
- 4 oct. 2017 à 14:06
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.....
Afficher la suite 

5 réponses

Répondre au sujet
jordane45 19211 Messages postés mercredi 22 octobre 2003Date d'inscriptionModérateurStatut 12 décembre 2017 Dernière intervention - 4 oct. 2017 à 12:48
0
Utile
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



Commenter la réponse de jordane45
0
Utile
3
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
jordane45 19211 Messages postés mercredi 22 octobre 2003Date d'inscriptionModérateurStatut 12 décembre 2017 Dernière intervention - 4 oct. 2017 à 13:49
Heu... la sub ne peut pas avoir le meme nom que ta fonction
Fleci > jordane45 19211 Messages postés mercredi 22 octobre 2003Date d'inscriptionModérateurStatut 12 décembre 2017 Dernière intervention - 4 oct. 2017 à 13:54
à la demande de mon Chef, je me lance dans l'apprentissage...Sorry ;-)

merci Bcp
jordane45 19211 Messages postés mercredi 22 octobre 2003Date d'inscriptionModérateurStatut 12 décembre 2017 Dernière intervention > Fleci - 4 oct. 2017 à 14:06
Si c'est résolu .. n'oublie pas de cliquer sur le lien sous le titre de ta question
Commenter la réponse de Fleci