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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.