Une Couleur Precise Pour Un Mot Precis Dans Une Cellule

[keurma]

Bonjour,

Je voudrais faire en sorte que, dans mon tableau planning, lorsque je tape dans une cellule le mot RTT celui s'ecrive automatiquement en bleu et les mots CE, CA et JU en rouge.

Je ne peux pas utiliser la mise en forme conditionnelle parce que le tableau est déjà rempli et que lorsque j'étire, toutes les cellules se copient entre elles, ainsi que le format de la cellule (les weeks ends sont grisés et quand j'étire tous les jours sont grisés)

Existe-t-il un moyen ?

D'avance merci

 

[abc]

Re : Une Couleur Precise Pour Un Mot Precis Dans Une Cellule

Bonjour,
a adapter selon tes besoins
Private Sub Worksheet_Change(ByVal Target As Range)
Dim X As Range
For Each X In Range("B9:AF32")

If X.Value = "CA" Then X.Interior.ColorIndex = 7
If X.Value = "ca" Then X.Interior.ColorIndex = 7
If X.Value = "RT" Then X.Interior.ColorIndex = 6
If X.Value = "HC" Then X.Interior.ColorIndex = 46
If X.Value = "FC" Then X.Interior.ColorIndex = 41
If X.Value = "MO" Then X.Interior.ColorIndex = 10
If X.Value = "SY" Then X.Interior.ColorIndex = 3
If X.Value = "" Then X.Interior.ColorIndex = xlNone

Next X
End Sub
A +

 

[keurma]

Re : Une Couleur Precise Pour Un Mot Precis Dans Une Cellule

Merci beaucoup pour la réponse. Par contre où puis je trouver l'index des couleurs ?

 

[keurma]

Re : Une Couleur Precise Pour Un Mot Precis Dans Une Cellule

Ok c'est bon je viens de trouver un programme qui donne cet index encore merci.

 

[keurma]

Re : Une Couleur Precise Pour Un Mot Precis Dans Une Cellule

Par contre je dois la mettre ou cette macro puisque je ne la lance pas avec un bouton ?

 

[keurma]

Re : Une Couleur Precise Pour Un Mot Precis Dans Une Cellule

Par contre je dois la mettre où cette macro ? j'utilise script editor ?

 

[keurma]

Re : Une Couleur Precise Pour Un Mot Precis Dans Une Cellule

Mince,
Ca colore l'interieur de la cellule. Moi j'aurai que ca colore la police. Que dois je modifier ?

Merci

 

[STephane]

Re : Une Couleur Precise Pour Un Mot Precis Dans Une Cellule

clique à droite sur le nom de l'onglet (la feuille) concernée, tu verras une option "visualiser le code", effectivement cela ouvrira le "script editor"

 

[keurma]

Re : Une Couleur Precise Pour Un Mot Precis Dans Une Cellule

Pour le script editor c'est nickel j'ai compris. Par contre par quoi remplacer Interior dans la formule pour que ca soit la police qui change de couleur et non l'interieur de la cellule ?

Merci

 

[abc]

Re : Une Couleur Precise Pour Un Mot Precis Dans Une Cellule

Bonjour,
je bricole en VBA ,dur dur mais essaie
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cell As Variant
For Each cell In Range("B7:R7")
If cell = "RTT" Then cell.Font.ColorIndex = 5
If cell = "CE" Or cell = "CA" Or cell = "JU" Then cell.Font.ColorIndex = 3

Next cell
End Sub
A +