OVH Cloud OVH Cloud

changer la couleur du texte

4 réponses
Avatar
Andrée et Romuald
re bonjour a toutes et a tous

dans l'application que j'essaie de mettre au point, je souhaiterais que:

si le texte de la cellule "A3" est different du texte de la cellule "C3"
alors le texte de la cellule "C3" devient est ecrit en rouge directement
apres avoir valider le texte !
pour mon "ecolage en vba"si je pouvais avioir des idees en utilisant la mise
en forme conditionnelle et des idées en code vba cela me ferais plaisirs
merci d'avance
andree et romuald

4 réponses

Avatar
Daniel
Bonjour.
Macro à compléter à mettre dans le code de la feuille concernée. Note : la
cellule change de couleur lorsque la valeur est entrée dans la cellule. Les
cellules déjà remplies ne sont pas affectées. Toutes les cellules de la
feuille sont concernées.

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Value
Case 1
Target.Interior.ColorIndex = 3
Case 2
Target.Interior.ColorIndex = 6
'*** etc.
End Select
End Sub

Cordialement.
Daniel
"Andrée et Romuald" a écrit dans le message de news:

re bonjour a toutes et a tous

dans l'application que j'essaie de mettre au point, je souhaiterais que:

si le texte de la cellule "A3" est different du texte de la cellule "C3"
alors le texte de la cellule "C3" devient est ecrit en rouge directement
apres avoir valider le texte !
pour mon "ecolage en vba"si je pouvais avioir des idees en utilisant la
mise en forme conditionnelle et des idées en code vba cela me ferais
plaisirs
merci d'avance
andree et romuald




Avatar
Daniel
Oups. erreur ne pas tenir compte de ce post.
Daniel
"Daniel" a écrit dans le message de news:
e45%
Bonjour.
Macro à compléter à mettre dans le code de la feuille concernée. Note : la
cellule change de couleur lorsque la valeur est entrée dans la cellule.
Les cellules déjà remplies ne sont pas affectées. Toutes les cellules de
la feuille sont concernées.

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Value
Case 1
Target.Interior.ColorIndex = 3
Case 2
Target.Interior.ColorIndex = 6
'*** etc.
End Select
End Sub

Cordialement.
Daniel
"Andrée et Romuald" a écrit dans le message de news:

re bonjour a toutes et a tous

dans l'application que j'essaie de mettre au point, je souhaiterais que:

si le texte de la cellule "A3" est different du texte de la cellule "C3"
alors le texte de la cellule "C3" devient est ecrit en rouge directement
apres avoir valider le texte !
pour mon "ecolage en vba"si je pouvais avioir des idees en utilisant la
mise en forme conditionnelle et des idées en code vba cela me ferais
plaisirs
merci d'avance
andree et romuald








Avatar
Daniel
Bonjour.
Avec la mise en forme conditionnelle :
"la formule est" "£<>C3
Avec VBA :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$3" And Target.Address <> "$C$3" Then Exit Sub
If [A3] <> [C3] Then
[C3].Font.ColorIndex = 3
End If
End Sub

(à mettre dans le code de la feuille concernée)
Cordialement.
Daniel
"Andrée et Romuald" a écrit dans le message de news:

re bonjour a toutes et a tous

dans l'application que j'essaie de mettre au point, je souhaiterais que:

si le texte de la cellule "A3" est different du texte de la cellule "C3"
alors le texte de la cellule "C3" devient est ecrit en rouge directement
apres avoir valider le texte !
pour mon "ecolage en vba"si je pouvais avioir des idees en utilisant la
mise en forme conditionnelle et des idées en code vba cela me ferais
plaisirs
merci d'avance
andree et romuald




Avatar
Andrée et Romuald
re bonjour

merci pour la reponse,la formule conditionnelle me convient mieux
bon w-e
"Daniel" a écrit dans le message de news:

Bonjour.
Avec la mise en forme conditionnelle :
"la formule est" "£<>C3
Avec VBA :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$3" And Target.Address <> "$C$3" Then Exit Sub
If [A3] <> [C3] Then
[C3].Font.ColorIndex = 3
End If
End Sub

(à mettre dans le code de la feuille concernée)
Cordialement.
Daniel
"Andrée et Romuald" a écrit dans le message de news:

re bonjour a toutes et a tous

dans l'application que j'essaie de mettre au point, je souhaiterais que:

si le texte de la cellule "A3" est different du texte de la cellule "C3"
alors le texte de la cellule "C3" devient est ecrit en rouge directement
apres avoir valider le texte !
pour mon "ecolage en vba"si je pouvais avioir des idees en utilisant la
mise en forme conditionnelle et des idées en code vba cela me ferais
plaisirs
merci d'avance
andree et romuald