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 couleur de cellule

couleur de cellule

8 réponses
Avatar
Frédéric LEGEAI
bonjour à tous

en VBA j'aimerais savoir comment, dans une plage de cellules A1:D40 sur la
feuille feuil1, mettre le fond d'une cellule en couleur (orange) si cette
cellule contient la valeur "BC" (par exemple), j'ai déja 3 conditions dans
ma mise en forme conditionnelle :(

grands mercis à vous
;0)
Signaler un problème avec ce contenu

8 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
Joel
Bonsoir;

Sub KelCouleur()
Dim oCell As Range
For Each oCell In Range("A1:D40")
Select Case oCell.Value
Case "AA"
oCell.Interior.ColorIndex = 3
Case "BC"
oCell.Interior.ColorIndex = 4
Case "etc..."
oCell.Interior.ColorIndex = 5
Case Else
oCell.Interior.ColorIndex = 6
End Select
Next

End Sub
pour connaîre la liste des couleurs à indiquer ... www.joelgarbe.fr

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Frédéric LEGEAI" a écrit dans le message de
news:cc1mck$a76$
bonjour à tous

en VBA j'aimerais savoir comment, dans une plage de cellules A1:D40 sur la
feuille feuil1, mettre le fond d'une cellule en couleur (orange) si cette
cellule contient la valeur "BC" (par exemple), j'ai déja 3 conditions dans
ma mise en forme conditionnelle :(

grands mercis à vous
;0)




Avatar
AV
......j'ai déja 3 conditions dans
ma mise en forme conditionnelle :(


Lesquelles ?
Des fois que.....

AV

Avatar
sabatier
régionalisme à rapprocher (avec un zeste d'exagération et quelques
gousses d'envie de citer mon pays natal dont l'air me manque toujours un
peu) du fameux "viens que" auvergnat...
jps

AV a écrit:

Des fois que.....

AV




Avatar
AV
régionalisme à rapprocher (avec un zeste d'exagération et quelques
gousses d'envie de citer mon pays natal dont l'air me manque toujours un
peu) du fameux "viens que" auvergnat...


Je verrais plutôt une origine San-Antoniesque...

AV

Avatar
frédéric legeai
merci beaucoup, j'essaye cela de suite

"Joel" a écrit dans le message de
news:cc1nbt$kj1$
Bonsoir;

Sub KelCouleur()
Dim oCell As Range
For Each oCell In Range("A1:D40")
Select Case oCell.Value
Case "AA"
oCell.Interior.ColorIndex = 3
Case "BC"
oCell.Interior.ColorIndex = 4
Case "etc..."
oCell.Interior.ColorIndex = 5
Case Else
oCell.Interior.ColorIndex = 6
End Select
Next

End Sub
pour connaîre la liste des couleurs à indiquer ... www.joelgarbe.fr

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Frédéric LEGEAI" a écrit dans le message de
news:cc1mck$a76$
bonjour à tous

en VBA j'aimerais savoir comment, dans une plage de cellules A1:D40 sur
la


feuille feuil1, mettre le fond d'une cellule en couleur (orange) si
cette


cellule contient la valeur "BC" (par exemple), j'ai déja 3 conditions
dans


ma mise en forme conditionnelle :(

grands mercis à vous
;0)








Avatar
frédéric legeai
merci beaucoup, j'ai essayé de me débrouiller avec, j'arrive à un bon
résultat mais c'est long, je bricole en vba et je suis sur que quelqu'un de
plus doué que moi pourrait optimiser mon "roman"
merci à vous de me donner de votre précieux temp
ci dessous ma longueur

Sub KelCouleur()
Dim oC1, oC2, oC3, oC4, oC5, oC6, oC7, oC8, oC9, oC10, oC11, oC12 As Range
For Each oC1 In Range("h5:al5")
Select Case oC1.Value
Case "ca"
ActiveSheet.Unprotect ("chat")
oC1.Interior.Color = RGB(50, 200, 245)
ActiveSheet.Protect ("chat")
Case "CA"
ActiveSheet.Unprotect ("chat")
oC1.Interior.Color = RGB(50, 200, 245)
ActiveSheet.Protect ("chat")
Case "rtt"
ActiveSheet.Unprotect ("chat")
oC1.Interior.Color = RGB(245, 140, 135)
ActiveSheet.Protect ("chat")
Case "RTT"
ActiveSheet.Unprotect ("chat")
oC1.Interior.Color = RGB(245, 140, 135)
ActiveSheet.Protect ("chat")
Case "rh"
ActiveSheet.Unprotect ("chat")
oC1.Interior.Color = RGB(200, 250, 180)
ActiveSheet.Protect ("chat")
Case "RH"
ActiveSheet.Unprotect ("chat")
oC1.Interior.Color = RGB(200, 250, 180)
ActiveSheet.Protect ("chat")
Case "f"
ActiveSheet.Unprotect ("chat")
oC1.Interior.Color = RGB(255, 255, 130)
ActiveSheet.Protect ("chat")
Case "F"
ActiveSheet.Unprotect ("chat")
oC1.Interior.Color = RGB(255, 255, 130)
ActiveSheet.Protect ("chat")
Case ""
ActiveSheet.Unprotect ("chat")
oC1.Interior.Color = RGB(255, 255, 255)
ActiveSheet.Protect ("chat")
End Select
Next

For Each oC2 In Range("h8:al8")
Select Case oC2.Value
Case "ca"
ActiveSheet.Unprotect ("chat")
oC2.Interior.Color = RGB(50, 200, 245)
ActiveSheet.Protect ("chat")
Case "CA"
ActiveSheet.Unprotect ("chat")
oC2.Interior.Color = RGB(50, 200, 245)
ActiveSheet.Protect ("chat")
Case "rtt"
ActiveSheet.Unprotect ("chat")
oC2.Interior.Color = RGB(245, 140, 135)
ActiveSheet.Protect ("chat")
Case "RTT"
ActiveSheet.Unprotect ("chat")
oC2.Interior.Color = RGB(245, 140, 135)
ActiveSheet.Protect ("chat")
Case "rh"
ActiveSheet.Unprotect ("chat")
oC2.Interior.Color = RGB(200, 250, 180)
ActiveSheet.Protect ("chat")
Case "RH"
ActiveSheet.Unprotect ("chat")
oC2.Interior.Color = RGB(200, 250, 180)
ActiveSheet.Protect ("chat")
Case "f"
ActiveSheet.Unprotect ("chat")
oC2.Interior.Color = RGB(255, 255, 130)
ActiveSheet.Protect ("chat")
Case "F"
ActiveSheet.Unprotect ("chat")
oC2.Interior.Color = RGB(255, 255, 130)
ActiveSheet.Protect ("chat")
Case ""
ActiveSheet.Unprotect ("chat")
oC2.Interior.Color = RGB(255, 255, 255)
ActiveSheet.Protect ("chat")
End Select
Next

For Each oC3 In Range("h11:al11")
Select Case oC3.Value
Case "ca"
ActiveSheet.Unprotect ("chat")
oC3.Interior.Color = RGB(50, 200, 245)
ActiveSheet.Protect ("chat")
Case "CA"
ActiveSheet.Unprotect ("chat")
oC3.Interior.Color = RGB(50, 200, 245)
ActiveSheet.Protect ("chat")
Case "rtt"
ActiveSheet.Unprotect ("chat")
oC3.Interior.Color = RGB(245, 140, 135)
ActiveSheet.Protect ("chat")
Case "RTT"
ActiveSheet.Unprotect ("chat")
oC3.Interior.Color = RGB(245, 140, 135)
ActiveSheet.Protect ("chat")
Case "rh"
ActiveSheet.Unprotect ("chat")
oC3.Interior.Color = RGB(200, 250, 180)
ActiveSheet.Protect ("chat")
Case "RH"
ActiveSheet.Unprotect ("chat")
oC3.Interior.Color = RGB(200, 250, 180)
ActiveSheet.Protect ("chat")
Case "f"
ActiveSheet.Unprotect ("chat")
oC3.Interior.Color = RGB(255, 255, 130)
ActiveSheet.Protect ("chat")
Case "F"
ActiveSheet.Unprotect ("chat")
oC3.Interior.Color = RGB(255, 255, 130)
ActiveSheet.Protect ("chat")
Case ""
ActiveSheet.Unprotect ("chat")
oC3.Interior.Color = RGB(255, 255, 255)
ActiveSheet.Protect ("chat")
End Select
Next

For Each oC4 In Range("h14:al14")
Select Case oC4.Value
Case "ca"
ActiveSheet.Unprotect ("chat")
oC4.Interior.Color = RGB(50, 200, 245)
ActiveSheet.Protect ("chat")
Case "CA"
ActiveSheet.Unprotect ("chat")
oC4.Interior.Color = RGB(50, 200, 245)
ActiveSheet.Protect ("chat")
Case "rtt"
ActiveSheet.Unprotect ("chat")
oC4.Interior.Color = RGB(245, 140, 135)
ActiveSheet.Protect ("chat")
Case "RTT"
ActiveSheet.Unprotect ("chat")
oC4.Interior.Color = RGB(245, 140, 135)
ActiveSheet.Protect ("chat")
Case "rh"
ActiveSheet.Unprotect ("chat")
oC4.Interior.Color = RGB(200, 250, 180)
ActiveSheet.Protect ("chat")
Case "RH"
ActiveSheet.Unprotect ("chat")
oC4.Interior.Color = RGB(200, 250, 180)
ActiveSheet.Protect ("chat")
Case "f"
ActiveSheet.Unprotect ("chat")
oC4.Interior.Color = RGB(255, 255, 130)
ActiveSheet.Protect ("chat")
Case "F"
ActiveSheet.Unprotect ("chat")
oC4.Interior.Color = RGB(255, 255, 130)
ActiveSheet.Protect ("chat")
Case ""
ActiveSheet.Unprotect ("chat")
oC4.Interior.Color = RGB(255, 255, 255)
ActiveSheet.Protect ("chat")
End Select
Next

For Each oC5 In Range("h17:al17")
Select Case oC5.Value
Case "ca"
ActiveSheet.Unprotect ("chat")
oC5.Interior.Color = RGB(50, 200, 245)
ActiveSheet.Protect ("chat")
Case "CA"
ActiveSheet.Unprotect ("chat")
oC5.Interior.Color = RGB(50, 200, 245)
ActiveSheet.Protect ("chat")
Case "rtt"
ActiveSheet.Unprotect ("chat")
oC5.Interior.Color = RGB(245, 140, 135)
ActiveSheet.Protect ("chat")
Case "RTT"
ActiveSheet.Unprotect ("chat")
oC5.Interior.Color = RGB(245, 140, 135)
ActiveSheet.Protect ("chat")
Case "rh"
ActiveSheet.Unprotect ("chat")
oC5.Interior.Color = RGB(200, 250, 180)
ActiveSheet.Protect ("chat")
Case "RH"
ActiveSheet.Unprotect ("chat")
oC5.Interior.Color = RGB(200, 250, 180)
ActiveSheet.Protect ("chat")
Case "f"
ActiveSheet.Unprotect ("chat")
oC5.Interior.Color = RGB(255, 255, 130)
ActiveSheet.Protect ("chat")
Case "F"
ActiveSheet.Unprotect ("chat")
oC5.Interior.Color = RGB(255, 255, 130)
ActiveSheet.Protect ("chat")
Case ""
ActiveSheet.Unprotect ("chat")
oC5.Interior.Color = RGB(255, 255, 255)
ActiveSheet.Protect ("chat")
End Select
Next

For Each oC6 In Range("h20:al20")
Select Case oC6.Value
Case "ca"
ActiveSheet.Unprotect ("chat")
oC6.Interior.Color = RGB(50, 200, 245)
ActiveSheet.Protect ("chat")
Case "CA"
ActiveSheet.Unprotect ("chat")
oC6.Interior.Color = RGB(50, 200, 245)
ActiveSheet.Protect ("chat")
Case "rtt"
ActiveSheet.Unprotect ("chat")
oC6.Interior.Color = RGB(245, 140, 135)
ActiveSheet.Protect ("chat")
Case "RTT"
ActiveSheet.Unprotect ("chat")
oC6.Interior.Color = RGB(245, 140, 135)
ActiveSheet.Protect ("chat")
Case "rh"
ActiveSheet.Unprotect ("chat")
oC6.Interior.Color = RGB(200, 250, 180)
ActiveSheet.Protect ("chat")
Case "RH"
ActiveSheet.Unprotect ("chat")
oC6.Interior.Color = RGB(200, 250, 180)
ActiveSheet.Protect ("chat")
Case "f"
ActiveSheet.Unprotect ("chat")
oC6.Interior.Color = RGB(255, 255, 130)
ActiveSheet.Protect ("chat")
Case "F"
ActiveSheet.Unprotect ("chat")
oC6.Interior.Color = RGB(255, 255, 130)
ActiveSheet.Protect ("chat")
Case ""
ActiveSheet.Unprotect ("chat")
oC6.Interior.Color = RGB(255, 255, 255)
ActiveSheet.Protect ("chat")
End Select
Next

For Each oC7 In Range("h23:al23")
Select Case oC7.Value
Case "ca"
ActiveSheet.Unprotect ("chat")
oC7.Interior.Color = RGB(50, 200, 245)
ActiveSheet.Protect ("chat")
Case "CA"
ActiveSheet.Unprotect ("chat")
oC7.Interior.Color = RGB(50, 200, 245)
ActiveSheet.Protect ("chat")
Case "rtt"
ActiveSheet.Unprotect ("chat")
oC7.Interior.Color = RGB(245, 140, 135)
ActiveSheet.Protect ("chat")
Case "RTT"
ActiveSheet.Unprotect ("chat")
oC7.Interior.Color = RGB(245, 140, 135)
ActiveSheet.Protect ("chat")
Case "rh"
ActiveSheet.Unprotect ("chat")
oC7.Interior.Color = RGB(200, 250, 180)
ActiveSheet.Protect ("chat")
Case "RH"
ActiveSheet.Unprotect ("chat")
oC7.Interior.Color = RGB(200, 250, 180)
ActiveSheet.Protect ("chat")
Case "f"
ActiveSheet.Unprotect ("chat")
oC7.Interior.Color = RGB(255, 255, 130)
ActiveSheet.Protect ("chat")
Case "F"
ActiveSheet.Unprotect ("chat")
oC7.Interior.Color = RGB(255, 255, 130)
ActiveSheet.Protect ("chat")
Case ""
ActiveSheet.Unprotect ("chat")
oC7.Interior.Color = RGB(255, 255, 255)
ActiveSheet.Protect ("chat")
End Select
Next

For Each oC8 In Range("h26:al26")
Select Case oC8.Value
Case "ca"
ActiveSheet.Unprotect ("chat")
oC8.Interior.Color = RGB(50, 200, 245)
ActiveSheet.Protect ("chat")
Case "CA"
ActiveSheet.Unprotect ("chat")
oC8.Interior.Color = RGB(50, 200, 245)
ActiveSheet.Protect ("chat")
Case "rtt"
ActiveSheet.Unprotect ("chat")
oC8.Interior.Color = RGB(245, 140, 135)
ActiveSheet.Protect ("chat")
Case "RTT"
ActiveSheet.Unprotect ("chat")
oC8.Interior.Color = RGB(245, 140, 135)
ActiveSheet.Protect ("chat")
Case "rh"
ActiveSheet.Unprotect ("chat")
oC8.Interior.Color = RGB(200, 250, 180)
ActiveSheet.Protect ("chat")
Case "RH"
ActiveSheet.Unprotect ("chat")
oC8.Interior.Color = RGB(200, 250, 180)
ActiveSheet.Protect ("chat")
Case "f"
ActiveSheet.Unprotect ("chat")
oC8.Interior.Color = RGB(255, 255, 130)
ActiveSheet.Protect ("chat")
Case "F"
ActiveSheet.Unprotect ("chat")
oC8.Interior.Color = RGB(255, 255, 130)
ActiveSheet.Protect ("chat")
Case ""
ActiveSheet.Unprotect ("chat")
oC8.Interior.Color = RGB(255, 255, 255)
ActiveSheet.Protect ("chat")
End Select
Next

For Each oC9 In Range("h29:al29")
Select Case oC9.Value
Case "ca"
ActiveSheet.Unprotect ("chat")
oC9.Interior.Color = RGB(50, 200, 245)
ActiveSheet.Protect ("chat")
Case "CA"
ActiveSheet.Unprotect ("chat")
oC9.Interior.Color = RGB(50, 200, 245)
ActiveSheet.Protect ("chat")
Case "rtt"
ActiveSheet.Unprotect ("chat")
oC9.Interior.Color = RGB(245, 140, 135)
ActiveSheet.Protect ("chat")
Case "RTT"
ActiveSheet.Unprotect ("chat")
oC9.Interior.Color = RGB(245, 140, 135)
ActiveSheet.Protect ("chat")
Case "rh"
ActiveSheet.Unprotect ("chat")
oC9.Interior.Color = RGB(200, 250, 180)
ActiveSheet.Protect ("chat")
Case "RH"
ActiveSheet.Unprotect ("chat")
oC9.Interior.Color = RGB(200, 250, 180)
ActiveSheet.Protect ("chat")
Case "f"
ActiveSheet.Unprotect ("chat")
oC9.Interior.Color = RGB(255, 255, 130)
ActiveSheet.Protect ("chat")
Case "F"
ActiveSheet.Unprotect ("chat")
oC9.Interior.Color = RGB(255, 255, 130)
ActiveSheet.Protect ("chat")
Case ""
ActiveSheet.Unprotect ("chat")
oC9.Interior.Color = RGB(255, 255, 255)
ActiveSheet.Protect ("chat")
End Select
Next

For Each oC10 In Range("h32:al32")
Select Case oC10.Value
Case "ca"
ActiveSheet.Unprotect ("chat")
oC10.Interior.Color = RGB(50, 200, 245)
ActiveSheet.Protect ("chat")
Case "CA"
ActiveSheet.Unprotect ("chat")
oC10.Interior.Color = RGB(50, 200, 245)
ActiveSheet.Protect ("chat")
Case "rtt"
ActiveSheet.Unprotect ("chat")
oC10.Interior.Color = RGB(245, 140, 135)
ActiveSheet.Protect ("chat")
Case "RTT"
ActiveSheet.Unprotect ("chat")
oC10.Interior.Color = RGB(245, 140, 135)
ActiveSheet.Protect ("chat")
Case "rh"
ActiveSheet.Unprotect ("chat")
oC10.Interior.Color = RGB(200, 250, 180)
ActiveSheet.Protect ("chat")
Case "RH"
ActiveSheet.Unprotect ("chat")
oC10.Interior.Color = RGB(200, 250, 180)
ActiveSheet.Protect ("chat")
Case "f"
ActiveSheet.Unprotect ("chat")
oC10.Interior.Color = RGB(255, 255, 130)
ActiveSheet.Protect ("chat")
Case "F"
ActiveSheet.Unprotect ("chat")
oC10.Interior.Color = RGB(255, 255, 130)
ActiveSheet.Protect ("chat")
Case ""
ActiveSheet.Unprotect ("chat")
oC10.Interior.Color = RGB(255, 255, 255)
ActiveSheet.Protect ("chat")
End Select
Next

For Each oC11 In Range("h35:al35")
Select Case oC11.Value
Case "ca"
ActiveSheet.Unprotect ("chat")
oC11.Interior.Color = RGB(50, 200, 245)
ActiveSheet.Protect ("chat")
Case "CA"
ActiveSheet.Unprotect ("chat")
oC11.Interior.Color = RGB(50, 200, 245)
ActiveSheet.Protect ("chat")
Case "rtt"
ActiveSheet.Unprotect ("chat")
oC11.Interior.Color = RGB(245, 140, 135)
ActiveSheet.Protect ("chat")
Case "RTT"
ActiveSheet.Unprotect ("chat")
oC11.Interior.Color = RGB(245, 140, 135)
ActiveSheet.Protect ("chat")
Case "rh"
ActiveSheet.Unprotect ("chat")
oC11.Interior.Color = RGB(200, 250, 180)
ActiveSheet.Protect ("chat")
Case "RH"
ActiveSheet.Unprotect ("chat")
oC11.Interior.Color = RGB(200, 250, 180)
ActiveSheet.Protect ("chat")
Case "f"
ActiveSheet.Unprotect ("chat")
oC11.Interior.Color = RGB(255, 255, 130)
ActiveSheet.Protect ("chat")
Case "F"
ActiveSheet.Unprotect ("chat")
oC11.Interior.Color = RGB(255, 255, 130)
ActiveSheet.Protect ("chat")
Case ""
ActiveSheet.Unprotect ("chat")
oC11.Interior.Color = RGB(255, 255, 255)
ActiveSheet.Protect ("chat")
End Select
Next

For Each oC12 In Range("h38:al38")
Select Case oC12.Value
Case "ca"
ActiveSheet.Unprotect ("chat")
oC12.Interior.Color = RGB(50, 200, 245)
ActiveSheet.Protect ("chat")
Case "CA"
ActiveSheet.Unprotect ("chat")
oC12.Interior.Color = RGB(50, 200, 245)
ActiveSheet.Protect ("chat")
Case "rtt"
ActiveSheet.Unprotect ("chat")
oC12.Interior.Color = RGB(245, 140, 135)
ActiveSheet.Protect ("chat")
Case "RTT"
ActiveSheet.Unprotect ("chat")
oC12.Interior.Color = RGB(245, 140, 135)
ActiveSheet.Protect ("chat")
Case "rh"
ActiveSheet.Unprotect ("chat")
oC12.Interior.Color = RGB(200, 250, 180)
ActiveSheet.Protect ("chat")
Case "RH"
ActiveSheet.Unprotect ("chat")
oC12.Interior.Color = RGB(200, 250, 180)
ActiveSheet.Protect ("chat")
Case "f"
ActiveSheet.Unprotect ("chat")
oC12.Interior.Color = RGB(255, 255, 130)
ActiveSheet.Protect ("chat")
Case "F"
ActiveSheet.Unprotect ("chat")
oC12.Interior.Color = RGB(255, 255, 130)
ActiveSheet.Protect ("chat")
Case ""
ActiveSheet.Unprotect ("chat")
oC12.Interior.Color = RGB(255, 255, 255)
ActiveSheet.Protect ("chat")

End Select
Next

End Sub



"Joel" a écrit dans le message de
news:cc1nbt$kj1$
Bonsoir;

Sub KelCouleur()
Dim oCell As Range
For Each oCell In Range("A1:D40")
Select Case oCell.Value
Case "AA"
oCell.Interior.ColorIndex = 3
Case "BC"
oCell.Interior.ColorIndex = 4
Case "etc..."
oCell.Interior.ColorIndex = 5
Case Else
oCell.Interior.ColorIndex = 6
End Select
Next

End Sub
pour connaîre la liste des couleurs à indiquer ... www.joelgarbe.fr

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Frédéric LEGEAI" a écrit dans le message de
news:cc1mck$a76$
bonjour à tous

en VBA j'aimerais savoir comment, dans une plage de cellules A1:D40 sur
la


feuille feuil1, mettre le fond d'une cellule en couleur (orange) si
cette


cellule contient la valeur "BC" (par exemple), j'ai déja 3 conditions
dans


ma mise en forme conditionnelle :(

grands mercis à vous
;0)








Avatar
AV
En maintenant la touche Ctrl enfoncée tu sélectionnes H5:AL5, H8:AL8,
H11:AL11.........H38:AL38
Puis nommer la plage (clic dans la barre des noms et saisir (par ex.) "Plage")
Ensuite la macro à exécuter :

Option Compare Text

Sub zzzz()
For Each c In Range("Plage")
If c.Value = "ca" Then c.Interior.Color = RGB(50, 200, 245)
If c.Value = "rtt" Then c.Interior.Color = RGB(245, 140, 135)
If c.Value = "rh" Then c.Interior.Color = RGB(200, 250, 180)
If c.Value = "f" Then c.Interior.Color = RGB(255, 255, 130)
Next
End Sub

AV
Avatar
Joel
Bonjour,

Voici la procédure proposée à Frédécric :

Sub KelCouleur()
Dim oC1 As Range

ActiveSheet.Unprotect ("chat")
For Each oC1 In Range("h5:al38")
If (oC1.Row - 2) / 3 = Int((oC1.Row - 2) / 3) Then
Select Case UCase(oC1.Value)
Case "CA"
oC1.Interior.Color = RGB(50, 200, 245)
Case "RTT"
oC1.Interior.Color = RGB(245, 140, 135)
Case "RH"
oC1.Interior.Color = RGB(200, 250, 180)
Case "F"
oC1.Interior.Color = RGB(255, 255, 130)
Case ""
oC1.Interior.Color = RGB(255, 255, 255)
End Select
End If
Next

ActiveSheet.Protect ("chat")

End Sub


--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"AV" a écrit dans le message de
news:%
En maintenant la touche Ctrl enfoncée tu sélectionnes H5:AL5, H8:AL8,
H11:AL11.........H38:AL38
Puis nommer la plage (clic dans la barre des noms et saisir (par ex.)
"Plage")

Ensuite la macro à exécuter :

Option Compare Text

Sub zzzz()
For Each c In Range("Plage")
If c.Value = "ca" Then c.Interior.Color = RGB(50, 200, 245)
If c.Value = "rtt" Then c.Interior.Color = RGB(245, 140, 135)
If c.Value = "rh" Then c.Interior.Color = RGB(200, 250, 180)
If c.Value = "f" Then c.Interior.Color = RGB(255, 255, 130)
Next
End Sub

AV