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 :
- 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 :
- 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.
Message édité par lezert le 11-03-2011 à 15:12:03