Faire une macro avec une fonction

Résolu/Fermé
Fleci - 4 oct. 2017 à 11:42
jordane45 Messages postés 38138 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 avril 2024 - 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.....
A voir également:

2 réponses

jordane45 Messages postés 38138 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 avril 2024 4 649
4 oct. 2017 à 12:48
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
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
jordane45 Messages postés 38138 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 avril 2024 4 649
4 oct. 2017 à 13:49
Heu... la sub ne peut pas avoir le meme nom que ta fonction
0
Fleci > jordane45 Messages postés 38138 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 avril 2024
4 oct. 2017 à 13:54
à la demande de mon Chef, je me lance dans l'apprentissage...Sorry ;-)

merci Bcp
0
jordane45 Messages postés 38138 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 avril 2024 4 649 > 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
0