Coloration de cellules par macro

[Martial87]

:whistle: Bonjour à tout le forum.
Voici mon probléme : j'ai un code qui colorie en fonction de la valeur de la cellule cette dernière en bleue. l'ennuie c'est qu'il ne marche pas pour tous. Ex : je tape RTT pas de problème ; je tape C ou F rien ne se passe. Quelqu'un de plus calé que moi peut-il m'aider? Merci. :huh:

 

[martial87]

OUps !! j'ai oublié le code le voici :
Private Sub Worksheet_Change(ByVal Target As Range)

Dim c As Range

If Not Intersect(Target, Range('C:AG')) Is Nothing Then
For Each c In Target
With c.Interior
If c.Text = '0' Or c.Text = 'RTT' Or c.Text = 'C' Or c.Text = 'R' Or c.Text = 'TP' Or c.Text = 'F' Then
.ColorIndex = 8
.Pattern = xlSolid
ElseIf c.Text = '' Then
.ColorIndex = xlNone
.Pattern = xlSolid
End If
End With
Next
End If

End Sub

 

[Jacques87]

Bonjour Martial87 (le païse)

essaie ceci

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range

If Not Intersect(Target, Range('C:AG')) Is Nothing Then
For Each c In Target
With c.Interior
If c.Text = '0' Or c.Text = 'RTT' Or c.Text = 'C' Or c.Text = 'R' Or c.Text = 'TP' Or c.Text = 'F' Then
.ColorIndex = 8
.Pattern = xlSolid
ElseIf c.Text = '' Then
.ColorIndex = xlNone
.Pattern = xlSolid
End If

End With
Next
End If

End Sub

Bon courage

 

[Bebere]

bonjour Martial, Jacques
essayer comme suit avec excel2000,pas de problèmes
avec pattern la grille ne réapparait pas

Private Sub Worksheet_Change(ByVal Target As Range)

Dim c As Range

If Not Intersect(Target, Range('C:AG')) Is Nothing Then
For Each c In Target
With c.Interior
If c.Text = '0' Or c.Text = 'RTT' Or c.Text = 'C' Or c.Text = 'R' Or c.Text = 'TP' Or c.Text = 'F' Then
.ColorIndex = 8
ElseIf c.Text = '' Then
.ColorIndex = xlNone
End If
End With
Next c
End If

End Sub

à bientôt

 

[MARTIAL87]

Bonjour Jacques (le païse), bonjour bebere.
Merci à tous les deux codes fonctionnent à merveille. a bientot.

 

[Robert]

Bonjour Martial, bonjour le forum,

Ton code colore les cellules en bleu clair pour les valeurs suivantes :
RTT - C - R - TP - F
mais deux conditions doivent être remplies pour cela :
1 - Tu dois éditer le texte en majuscule
2 - Tu dois éditer dans les colonnes C à AG

Si une de ces conditions n'est pas respectée alors la cellule ne prend pas la couleur.

Édition

Ooops ! Deux métros de retard... Bonjour Jacques et Bebere.

Message édité par: Robert, à: 27/02/2006 14:33