Macro Excel - Problème avec ActiveCell.Font.ColorIndex
Bonjour,
Je n'arrive pas à faire marché la fonction EcrireMessage (ou la fonction EcrireMessage qui est identique)
En effet cette fonction doit Écrire le message "Coucou" dans la cellule active et modifier la couleur du texte
afin qu'il soit afficher en noir et non pas en blanc (valeur par défaut de ma cellule)
Voilà mes fonction:
Essais 1:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| Public Function EcrireMessage2() As String
EcrireMessage2 = "Coucou"
With ActiveCell.Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 1
End With
End Function |
Essais 2:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| Public Function EcrireMessage() As String
EcrireMessage = "Coucou"
Call Macro2
End Function
Sub Macro2()
With ActiveCell.Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 1
End With
End Sub |
Dans les deux cas quand je fais dans ma cellule =EcrireMessage() ou =EcrireMessage2') le
message "Coucou" mais pas en noir !!! La police de la case reste blanche !!!!
Merci d'avance pour votre aide.
