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:
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 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
Dans les deux cas quand je fais dans ma cellule =EcrireMessage() ou =EcrireMessage2') le
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
message "Coucou" mais pas en noir !!! La police de la case reste blanche !!!!
Merci d'avance pour votre aide.
Partager