Macro Excel - Problème avec ActiveCell.Font.ColorIndex

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Macro Excel - Problème avec ActiveCell.Font.ColorIndex

lezert

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

Publicité

olivthill

ColorIndex ne me semble pas être une propriété de la Font, mais être une propriété de Interior.

Essayer :

With ActiveCell.Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
End With
ActiveCell.Interior.colorindex = 1

SuppotDeSaTante

Aka dje69r

Ca ne marche pas comme ca.

Une fonction ne colore pas une cellule. Une fonction ca renvoit une valeur en fonction ou pas de paramètre(s).

Si tu veux faire ce que tu veux, ca demande un peu de "passe-passe".

- Utiliser une fonction comme il se doit
- Passer par les evenements des feuilles Excel pour verifier la valeur de la derniere cellule "sélectionnée"

Exemple :
Module WorkSheet :

Code :

Private Sub Worksheet_Change(ByVal Target As Range)
If Range(PlageActive).Value = "Coucou" Then
Range(PlageActive).Font.ColorIndex = 1
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If PlageActive = "" Then
PlageActive = Selection.Address
End If
PlageSuiv = PlageActive
PlageActive = Selection.Address
End Sub

Dans un module :

Code :

Public PlageSuiv As String
Public PlageActive As String
Public Function EcrireMessage() As String
EcrireMessage = "Coucou"
End Function

---------------
Soyez malin, louez entre voisins !

lezert

Merci pour ta réponse.

Par contre cela marche que si on sélectionne d'abord la cellule à la main.
Mais si la cellule est mise à jour automatiquement, alors ça marche plus.

Comment faire pour que une mise à jour de cellule déclenche l'action ?

Merci d'avance.

Message édité par lezert le 14-03-2011 à 16:51:09

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Macro Excel - Problème avec ActiveCell.Font.ColorIndex

Sujets relatifs
probleme avec un JAVA suivant le serveur	Excel VBA Gestion Suivi des stock
Problème NetworkStream C#	demande d'aide pour une macro conditionnelle
probleme import fr.lri	Problème de positionnement image dans zone
problème d'affectation de char	fusion dans Word à partir d'Excel
[MySQL] LOAD DATA IN FILE problème	Problème de Framework
Plus de sujets relatifs à : Macro Excel - Problème avec ActiveCell.Font.ColorIndex

Page générée en 0.058 secondes