Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Pour Daniel si possible

Pour Daniel si possible

10 réponses
Avatar
Guy72
Bonjour,
Je voulais quelques précisions à propos de surligner une ligne suivant le
nom indiqué dans une cellule.
Je fais des essais, je suis embêté quand je demande une ligne rouge alors
que, par exemple il faut que j'écrive le mot rouge, ou une ligne noire alors
que l'écriture est noire (il faudrait que l'écriture soit blanche, mais dans
une cellule blanche je vois rien??).
Autre chose : quand je veut supprimer une ligne ou un texte, j'ai un message
venant de la macro me disant.
"Erreur d'exécution Incompatible de type".
Et merci encore : en attendant à part ces petits détails ça fonctionne bien.
Guy
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonjour.
Modifie le code comme suit (j'ai rajouté, pour le noir, la police blanche et
inclus un traitement d'erreur en cas de suppression de ligne) :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E3:E26")) Is Nothing Then Exit Sub
On Error GoTo Fin
If [Target] = "rouge" Then
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Interior.ColorIndex = 6
Exit Sub
End If
If Target = "noir" Then
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Interior.ColorIndex = 1
Range(Cells(Target.Row, 6), Cells(Target.Row, 1)).Font.ColorIndex =
2
Exit Sub
End If
'etc.
Fin:
End Sub

Cordialement.
Daniel
"Guy72" a écrit dans le message de news:
%
Bonjour,
Je voulais quelques précisions à propos de surligner une ligne suivant le
nom indiqué dans une cellule.
Je fais des essais, je suis embêté quand je demande une ligne rouge alors
que, par exemple il faut que j'écrive le mot rouge, ou une ligne noire
alors que l'écriture est noire (il faudrait que l'écriture soit blanche,
mais dans une cellule blanche je vois rien??).
Autre chose : quand je veut supprimer une ligne ou un texte, j'ai un
message venant de la macro me disant.
"Erreur d'exécution Incompatible de type".
Et merci encore : en attendant à part ces petits détails ça fonctionne
bien.
Guy



Avatar
Guy72
Bonjour,
Merci d'avoir répondu.
Je viens de faire les essais, au niveau de la police ça fonctionne.
Par contre au niveau de "On Error GoTo Fin" ça me renvoie le message suivant
"Erreur de compilation étiquette non défini, et j'avoue que les codes c'est
pas facile pour moi je ne connaît pas un mot d'anglais.
Merci encore
Cordialement
Guy

"Daniel" a écrit dans le message de news:
%
Bonjour.
Modifie le code comme suit (j'ai rajouté, pour le noir, la police blanche
et inclus un traitement d'erreur en cas de suppression de ligne) :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E3:E26")) Is Nothing Then Exit Sub
On Error GoTo Fin
If [Target] = "rouge" Then
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Interior.ColorIndex = 6
Exit Sub
End If
If Target = "noir" Then
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Interior.ColorIndex = 1
Range(Cells(Target.Row, 6), Cells(Target.Row, 1)).Font.ColorIndex =
2
Exit Sub
End If
'etc.
Fin:
End Sub

Cordialement.
Daniel
"Guy72" a écrit dans le message de news:
%
Bonjour,
Je voulais quelques précisions à propos de surligner une ligne suivant le
nom indiqué dans une cellule.
Je fais des essais, je suis embêté quand je demande une ligne rouge alors
que, par exemple il faut que j'écrive le mot rouge, ou une ligne noire
alors que l'écriture est noire (il faudrait que l'écriture soit blanche,
mais dans une cellule blanche je vois rien??).
Autre chose : quand je veut supprimer une ligne ou un texte, j'ai un
message venant de la macro me disant.
"Erreur d'exécution Incompatible de type".
Et merci encore : en attendant à part ces petits détails ça fonctionne
bien.
Guy







Avatar
Guy72
Bonjour,
Merci d'avoir répondu.
Je viens de faire les essais, au niveau de la police ça fonctionne.
Par contre au niveau de "On Error GoTo Fin" ça me renvoie le message
suivant "Erreur de compilation étiquette non défini, et j'avoue que les
codes c'est pas facile pour moi je ne connaît pas un mot d'anglais.
Comment coller le code dans une autre feuille ?

Merci encore
Cordialement
Guy

"Daniel" a écrit dans le message de news:
%
Bonjour.
Modifie le code comme suit (j'ai rajouté, pour le noir, la police blanche
et inclus un traitement d'erreur en cas de suppression de ligne) :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E3:E26")) Is Nothing Then Exit Sub
On Error GoTo Fin
If [Target] = "rouge" Then
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Interior.ColorIndex = 6
Exit Sub
End If
If Target = "noir" Then
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Interior.ColorIndex = 1
Range(Cells(Target.Row, 6), Cells(Target.Row, 1)).Font.ColorIndex
= 2
Exit Sub
End If
'etc.
Fin:
End Sub

Cordialement.
Daniel
"Guy72" a écrit dans le message de news:
%
Bonjour,
Je voulais quelques précisions à propos de surligner une ligne suivant
le nom indiqué dans une cellule.
Je fais des essais, je suis embêté quand je demande une ligne rouge
alors que, par exemple il faut que j'écrive le mot rouge, ou une ligne
noire alors que l'écriture est noire (il faudrait que l'écriture soit
blanche, mais dans une cellule blanche je vois rien??).
Autre chose : quand je veut supprimer une ligne ou un texte, j'ai un
message venant de la macro me disant.
"Erreur d'exécution Incompatible de type".
Et merci encore : en attendant à part ces petits détails ça fonctionne
bien.
Guy











Avatar
Daniel
Bonjour.
Clic droit sur l'onglet, choisis "Visualiser le code".
Regarde le classeur :
http://cjoint.com/?dAmSoGs6Dn
Cordialement.
Daniel
"Guy72" a écrit dans le message de news:
uehP7$

Bonjour,
Merci d'avoir répondu.
Je viens de faire les essais, au niveau de la police ça fonctionne.
Par contre au niveau de "On Error GoTo Fin" ça me renvoie le message
suivant "Erreur de compilation étiquette non défini, et j'avoue que les
codes c'est pas facile pour moi je ne connaît pas un mot d'anglais.
Comment coller le code dans une autre feuille ?

Merci encore
Cordialement
Guy

"Daniel" a écrit dans le message de news:
%
Bonjour.
Modifie le code comme suit (j'ai rajouté, pour le noir, la police
blanche et inclus un traitement d'erreur en cas de suppression de ligne)
:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E3:E26")) Is Nothing Then Exit Sub
On Error GoTo Fin
If [Target] = "rouge" Then
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Interior.ColorIndex = 6
Exit Sub
End If
If Target = "noir" Then
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Interior.ColorIndex = 1
Range(Cells(Target.Row, 6), Cells(Target.Row, 1)).Font.ColorIndex
= 2
Exit Sub
End If
'etc.
Fin:
End Sub

Cordialement.
Daniel
"Guy72" a écrit dans le message de news:
%
Bonjour,
Je voulais quelques précisions à propos de surligner une ligne suivant
le nom indiqué dans une cellule.
Je fais des essais, je suis embêté quand je demande une ligne rouge
alors que, par exemple il faut que j'écrive le mot rouge, ou une ligne
noire alors que l'écriture est noire (il faudrait que l'écriture soit
blanche, mais dans une cellule blanche je vois rien??).
Autre chose : quand je veut supprimer une ligne ou un texte, j'ai un
message venant de la macro me disant.
"Erreur d'exécution Incompatible de type".
Et merci encore : en attendant à part ces petits détails ça fonctionne
bien.
Guy















Avatar
Guy72
Merci,
Mais je ne vois pas pourquoi ça fonctionne dans ton classeur et pas dans le
mien.
Cordialement
Guy

"Daniel" a écrit dans le message de news:
%
Bonjour.
Clic droit sur l'onglet, choisis "Visualiser le code".
Regarde le classeur :
http://cjoint.com/?dAmSoGs6Dn
Cordialement.
Daniel
"Guy72" a écrit dans le message de news:
uehP7$

Bonjour,
Merci d'avoir répondu.
Je viens de faire les essais, au niveau de la police ça fonctionne.
Par contre au niveau de "On Error GoTo Fin" ça me renvoie le message
suivant "Erreur de compilation étiquette non défini, et j'avoue que les
codes c'est pas facile pour moi je ne connaît pas un mot d'anglais.
Comment coller le code dans une autre feuille ?

Merci encore
Cordialement
Guy

"Daniel" a écrit dans le message de news:
%
Bonjour.
Modifie le code comme suit (j'ai rajouté, pour le noir, la police
blanche et inclus un traitement d'erreur en cas de suppression de
ligne) :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E3:E26")) Is Nothing Then Exit Sub
On Error GoTo Fin
If [Target] = "rouge" Then
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Interior.ColorIndex = 6
Exit Sub
End If
If Target = "noir" Then
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Interior.ColorIndex = 1
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Font.ColorIndex = 2
Exit Sub
End If
'etc.
Fin:
End Sub

Cordialement.
Daniel
"Guy72" a écrit dans le message de news:
%
Bonjour,
Je voulais quelques précisions à propos de surligner une ligne suivant
le nom indiqué dans une cellule.
Je fais des essais, je suis embêté quand je demande une ligne rouge
alors que, par exemple il faut que j'écrive le mot rouge, ou une ligne
noire alors que l'écriture est noire (il faudrait que l'écriture soit
blanche, mais dans une cellule blanche je vois rien??).
Autre chose : quand je veut supprimer une ligne ou un texte, j'ai un
message venant de la macro me disant.
"Erreur d'exécution Incompatible de type".
Et merci encore : en attendant à part ces petits détails ça fonctionne
bien.
Guy



















Avatar
Ardus Petus
Essaie ça:

Cordialement,
--
AP

'-------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Const strWatchRange As String = "E3:E26"
Dim rngModRange As Range
Dim rng As Range
Dim lIC As Long
Dim lFC As Long

Set rngModRange = Intersect(Target, Range(strWatchRange))
If rngModRange Is Nothing Then Exit Sub
For Each rng In rngModRange
Select Case LCase(rng.Text)
Case "rouge"
lIC = 3
lFC = xlColorIndexAutomatic
Case "jaune"
lIC = 6
lFC = xlColorIndexAutomatic
Case "noir"
lIC = 1
lFC = 2
End Select
With Range(Cells(rng.Row, "A"), Cells(rng.Row, "F"))
.Interior.ColorIndex = lIC
.Font.ColorIndex = lFC
End With
Next rng
End Sub
Avatar
Daniel
Envoie ton code.
Daniel
"Guy72" a écrit dans le message de news:

Merci,
Mais je ne vois pas pourquoi ça fonctionne dans ton classeur et pas dans
le mien.
Cordialement
Guy

"Daniel" a écrit dans le message de news:
%
Bonjour.
Clic droit sur l'onglet, choisis "Visualiser le code".
Regarde le classeur :
http://cjoint.com/?dAmSoGs6Dn
Cordialement.
Daniel
"Guy72" a écrit dans le message de news:
uehP7$

Bonjour,
Merci d'avoir répondu.
Je viens de faire les essais, au niveau de la police ça fonctionne.
Par contre au niveau de "On Error GoTo Fin" ça me renvoie le message
suivant "Erreur de compilation étiquette non défini, et j'avoue que les
codes c'est pas facile pour moi je ne connaît pas un mot d'anglais.
Comment coller le code dans une autre feuille ?

Merci encore
Cordialement
Guy

"Daniel" a écrit dans le message de news:
%
Bonjour.
Modifie le code comme suit (j'ai rajouté, pour le noir, la police
blanche et inclus un traitement d'erreur en cas de suppression de
ligne) :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E3:E26")) Is Nothing Then Exit Sub
On Error GoTo Fin
If [Target] = "rouge" Then
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Interior.ColorIndex = 6
Exit Sub
End If
If Target = "noir" Then
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Interior.ColorIndex = 1
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Font.ColorIndex = 2
Exit Sub
End If
'etc.
Fin:
End Sub

Cordialement.
Daniel
"Guy72" a écrit dans le message de news:
%
Bonjour,
Je voulais quelques précisions à propos de surligner une ligne
suivant le nom indiqué dans une cellule.
Je fais des essais, je suis embêté quand je demande une ligne rouge
alors que, par exemple il faut que j'écrive le mot rouge, ou une
ligne noire alors que l'écriture est noire (il faudrait que
l'écriture soit blanche, mais dans une cellule blanche je vois
rien??).
Autre chose : quand je veut supprimer une ligne ou un texte, j'ai un
message venant de la macro me disant.
"Erreur d'exécution Incompatible de type".
Et merci encore : en attendant à part ces petits détails ça
fonctionne bien.
Guy























Avatar
Guy72
Bonjour,
Voici le code.

'Macro 1 : Couleurs lignes

'Range("E3:E70"):plage de possibilité d'écriture
'Cells(Target.Row, 6):nombre ce cellule en ligne
'Cells(Target.Row, 1):cellule de départ du surligné
'Interior.ColorIndex = 3:N°de couleur Excel
'Font.ColorIndex = 2:N° de la couleur de la police

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E3:E70")) Is Nothing Then Exit Sub

On Error GoTo Fin

If Target = "noir" Then
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Interior.ColorIndex = 1
Range(Cells(Target.Row, 6), Cells(Target.Row, 1)).Font.ColorIndex =
2
Exit Sub
End If

If [Target] = "Salaires" Then
Range(Cells(Target.Row, 7), Cells(Target.Row,
1)).Interior.ColorIndex = 3
Range(Cells(Target.Row, 7), Cells(Target.Row, 1)).Font.ColorIndex =
2
Exit Sub
End If

If [Target] = "St Saturnin" Then
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Interior.ColorIndex = 4
Exit Sub
End If

If [Target] = "La Tranche" Then
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Interior.ColorIndex = 5
Range(Cells(Target.Row, 6), Cells(Target.Row, 1)).Font.ColorIndex =
2
Exit Sub
End If

If [Target] = "Thomas" Then
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Interior.ColorIndex = 6
Exit Sub
End If

If [Target] = "Annette" Then
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Interior.ColorIndex = 7
Exit Sub
End If

If [Target] = "Guy" Then
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Interior.ColorIndex = 8
Exit Sub
End If

If [Target] = "brun" Then
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Interior.ColorIndex = 9
Exit Sub
End If
'etc.
End Sub

Cordialement
Guy

"Daniel" a écrit dans le message de news:
OU$s$
Envoie ton code.
Daniel
"Guy72" a écrit dans le message de news:

Merci,
Mais je ne vois pas pourquoi ça fonctionne dans ton classeur et pas dans
le mien.
Cordialement
Guy

"Daniel" a écrit dans le message de news:
%
Bonjour.
Clic droit sur l'onglet, choisis "Visualiser le code".
Regarde le classeur :
http://cjoint.com/?dAmSoGs6Dn
Cordialement.
Daniel
"Guy72" a écrit dans le message de news:
uehP7$

Bonjour,
Merci d'avoir répondu.
Je viens de faire les essais, au niveau de la police ça fonctionne.
Par contre au niveau de "On Error GoTo Fin" ça me renvoie le message
suivant "Erreur de compilation étiquette non défini, et j'avoue que
les codes c'est pas facile pour moi je ne connaît pas un mot
d'anglais.
Comment coller le code dans une autre feuille ?

Merci encore
Cordialement
Guy

"Daniel" a écrit dans le message de news:
%
Bonjour.
Modifie le code comme suit (j'ai rajouté, pour le noir, la police
blanche et inclus un traitement d'erreur en cas de suppression de
ligne) :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E3:E26")) Is Nothing Then Exit Sub
On Error GoTo Fin
If [Target] = "rouge" Then
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Interior.ColorIndex = 3
Exit Sub
End If
If [Target] = "jaune" Then
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Interior.ColorIndex = 6
Exit Sub
End If
If Target = "noir" Then
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Interior.ColorIndex = 1
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Font.ColorIndex = 2
Exit Sub
End If
'etc.
Fin:
End Sub

Cordialement.
Daniel
"Guy72" a écrit dans le message de news:
%
Bonjour,
Je voulais quelques précisions à propos de surligner une ligne
suivant le nom indiqué dans une cellule.
Je fais des essais, je suis embêté quand je demande une ligne rouge
alors que, par exemple il faut que j'écrive le mot rouge, ou une
ligne noire alors que l'écriture est noire (il faudrait que
l'écriture soit blanche, mais dans une cellule blanche je vois
rien??).
Autre chose : quand je veut supprimer une ligne ou un texte, j'ai un
message venant de la macro me disant.
"Erreur d'exécution Incompatible de type".
Et merci encore : en attendant à part ces petits détails ça
fonctionne bien.
Guy



























Avatar
Daniel
Bonjour.
Il manque l'étiquette :
Fin:
avant
End sub
Cordialement.
Daniel
"Guy72" a écrit dans le message de news:

Bonjour,
Voici le code.

'Macro 1 : Couleurs lignes

'Range("E3:E70"):plage de possibilité d'écriture
'Cells(Target.Row, 6):nombre ce cellule en ligne
'Cells(Target.Row, 1):cellule de départ du surligné
'Interior.ColorIndex = 3:N°de couleur Excel
'Font.ColorIndex = 2:N° de la couleur de la police

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E3:E70")) Is Nothing Then Exit Sub

On Error GoTo Fin

If Target = "noir" Then
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Interior.ColorIndex = 1
Range(Cells(Target.Row, 6), Cells(Target.Row, 1)).Font.ColorIndex =
2
Exit Sub
End If

If [Target] = "Salaires" Then
Range(Cells(Target.Row, 7), Cells(Target.Row,
1)).Interior.ColorIndex = 3
Range(Cells(Target.Row, 7), Cells(Target.Row, 1)).Font.ColorIndex =
2
Exit Sub
End If

If [Target] = "St Saturnin" Then
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Interior.ColorIndex = 4
Exit Sub
End If

If [Target] = "La Tranche" Then
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Interior.ColorIndex = 5
Range(Cells(Target.Row, 6), Cells(Target.Row, 1)).Font.ColorIndex =
2
Exit Sub
End If

If [Target] = "Thomas" Then
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Interior.ColorIndex = 6
Exit Sub
End If

If [Target] = "Annette" Then
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Interior.ColorIndex = 7
Exit Sub
End If

If [Target] = "Guy" Then
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Interior.ColorIndex = 8
Exit Sub
End If

If [Target] = "brun" Then
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Interior.ColorIndex = 9
Exit Sub
End If
'etc.
End Sub

Cordialement
Guy


Avatar
Guy72
OK, encore une fois MERCI.
Cordialement
Guy

"Daniel" a écrit dans le message de news:

Bonjour.
Il manque l'étiquette :
Fin:
avant
End sub
Cordialement.
Daniel
"Guy72" a écrit dans le message de news:

Bonjour,
Voici le code.

'Macro 1 : Couleurs lignes

'Range("E3:E70"):plage de possibilité d'écriture
'Cells(Target.Row, 6):nombre ce cellule en ligne
'Cells(Target.Row, 1):cellule de départ du surligné
'Interior.ColorIndex = 3:N°de couleur Excel
'Font.ColorIndex = 2:N° de la couleur de la police

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E3:E70")) Is Nothing Then Exit Sub

On Error GoTo Fin

If Target = "noir" Then
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Interior.ColorIndex = 1
Range(Cells(Target.Row, 6), Cells(Target.Row, 1)).Font.ColorIndex
= 2
Exit Sub
End If

If [Target] = "Salaires" Then
Range(Cells(Target.Row, 7), Cells(Target.Row,
1)).Interior.ColorIndex = 3
Range(Cells(Target.Row, 7), Cells(Target.Row, 1)).Font.ColorIndex
= 2
Exit Sub
End If

If [Target] = "St Saturnin" Then
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Interior.ColorIndex = 4
Exit Sub
End If

If [Target] = "La Tranche" Then
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Interior.ColorIndex = 5
Range(Cells(Target.Row, 6), Cells(Target.Row, 1)).Font.ColorIndex
= 2
Exit Sub
End If

If [Target] = "Thomas" Then
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Interior.ColorIndex = 6
Exit Sub
End If

If [Target] = "Annette" Then
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Interior.ColorIndex = 7
Exit Sub
End If

If [Target] = "Guy" Then
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Interior.ColorIndex = 8
Exit Sub
End If

If [Target] = "brun" Then
Range(Cells(Target.Row, 6), Cells(Target.Row,
1)).Interior.ColorIndex = 9
Exit Sub
End If
'etc.
End Sub

Cordialement
Guy