Excel VBA creer fonction qui écris une valeur dasn la cellule
Fermé
andromedor
-
18 avril 2011 à 12:49
Bonjour,
J'aimerai créer une nouvelle fonction (par macro) qui me permet de colorer la cellule qui contient cette fonction.
Le code serait du type :
Function Colorier (couleur As Integer)
'ligne pour colorier la cellule ou il y a la fonction
Cells.ColorIndex = couleur
End Function
Ainsi, quand je rentre dans une cellule quelconque ma nouvelle fonction :
=Colorier(5)
La cellule se colore.
De plus comment pourrai-je faire pour que ma fonction en plus de colorier la cellule me m'inscrive dans la cellule le numéro de la colonne ou se trouve la cellule. Le code serait donc du type :
Function Colorier2 (couleur As Integer)
Dim numero_colonne As integer
'ligne pour colorier la cellule ou il y a la fonction
Cells.ColorIndex = couleur
'ligne pour écrire le numero de la colonne ds la cellule
numero_colonne = Cells.Column
Colorier2 = numero_colonne
End Function
Ainsi, quand je rentre dans une cellule quelconque ma nouvelle fonction :
=Colorier2(5)
La cellule se colore et la valeur indiqué est le numéro de colonne de la cellule.
Merci
A voir également:
Excel VBA creer fonction qui écris une valeur dasn la cellule