Format couleur de cellules
Le
olivier
Bonsoir à toutes et à tous,
En VBA SVP.
Comment pourrais je mettre une couleur à une cellules par un test.
Colonnes
A B C D E F G
H I J
ESS BLANC BLEU BLEU
GO BLEU BLANC BLEU
FT BLEU BLEU BLANC
ESS BLANC BLEU BLEU
Merci pour votre aide, je pèche (Novice)
En VBA SVP.
Comment pourrais je mettre une couleur à une cellules par un test.
Colonnes
A B C D E F G
H I J
ESS BLANC BLEU BLEU
GO BLEU BLANC BLEU
FT BLEU BLEU BLANC
ESS BLANC BLEU BLEU
Merci pour votre aide, je pèche (Novice)
Poser une question
Quel est le test dont tu parles dans ta question ?
Salutations!
"olivier" Bonsoir à toutes et à tous,
En VBA SVP.
Comment pourrais je mettre une couleur à une cellules par un test.
Colonnes
A B C D E F G
H I J .........
ESS BLANC BLEU BLEU
GO BLEU BLANC BLEU
FT BLEU BLEU BLANC
ESS BLANC BLEU BLEU
...
...
...
Merci pour votre aide, je pèche (Novice)
colore le texte
If test = vrai Then Selection.Font.ColorIndex = 46
colore la cellule
If test = vrai Then Selection.Interior.ColorIndex = 3
isabelle
Merci de m'avoir lu,
Voilà:
Si en colonne C, ESS mettre F et G en Bleu
Si en colonne C, GO mettre E et G en Bleu
ECT...
Merci pour la solution.
Salutations
"Denis Michon" news:98elb.8845$
Copie ce qui suit dans le module feuille où l'action se déroule :
Tu peux ajouter autant de Case que tu le désires .
'--------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Columns(3), Target)
If Not Rg Is Nothing Then
For Each c In Rg
Select Case UCase(c.Text)
Case Is = "ESS"
'Efface la couleur de E , F , G
c.Offset(, 2).Resize(, 2).Interior.ColorIndex = xlNone
'Met de la couleur à F, G
c.Offset(, 3).Resize(, 2).Interior.ColorIndex = 3
Case Is = "GO"
'Efface la couleur de E , F , G
c.Offset(, 2).Resize(, 3).Interior.ColorIndex = xlNone
'Met de la couleur à E, F
c.Offset(, 2).Resize(, 2).Interior.ColorIndex = 25
Case Else
c.Offset(, 3).Resize(, 2).Interior.ColorIndex = xlNone
End Select
Next
End If
End Sub
'--------------------------------
Salutations!
"olivier" Bonsoir,
Merci de m'avoir lu,
Voilà:
Si en colonne C, ESS mettre F et G en Bleu
Si en colonne C, GO mettre E et G en Bleu
ECT...
Merci pour la solution.
Salutations
"Denis Michon" news:98elb.8845$