Couleur du texte après Target.Value

Le
frasax
Bonjour à tous,

J'essaie en vain de mettre en rouge le texte "PAS VALIDE"
Pouvez-vous m'aider ?
Ci-dessous la macro
Merci et à +

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 5 Then
If Application.WorksheetFunction. _
CountIf(Range("E:E"), Target.Value) > 1 Then

MsgBox "saisissez un autre numéro, celui-ci existe déjà"
Target.Value = "PAS VALIDE" <'En rouge
End If
End If
End Sub
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
francois.forcet
Le #5428161
Salut à toi

Aprés

Target.Value = "PAS VALIDE"

mets cette ligne

Target.Font.ColorIndex = 3

Celà devrait fonctionner

Dis moi !!!
frasax
Le #5428141
Salut,

Merci ça fonctionne
Encore une chose, est-il possible de mettre en gras
Merci et à +


Salut à toi

Aprés

Target.Value = "PAS VALIDE"

mets cette ligne

Target.Font.ColorIndex = 3

Celà devrait fonctionner

Dis moi !!!




francois.forcet
Le #5428131
Rebonjours à toi

Cette ligne à la suite :

Target.Font.Bold = True

Celà devrait faire
Dis moi !!!
frasax
Le #5428111
RE

C'est résolu
Encore merci
A une prochaine fois


Rebonjours à toi

Cette ligne à la suite :

Target.Font.Bold = True

Celà devrait faire
Dis moi !!!



Publicité
Poster une réponse
Anonyme