Bonsoir,
Toujours mon livre qui me dit qu'après "select case" il faut "expression".
Moi, j'veux bin, mais je ne vois pas bien ce que je pourrais mettre....si
vous avez une idée ?
-------------------------------
Range("B2:N" & zn).Select
Select Case
Case "AY"
c.Interior.ColorIndex = 36
End Select
---------------------
PS, il y a 8 case "XX"
--------------------
Grand merci
--
Bonne chance et bonne fin de journée.
Jacquouille qui lit http://www.excelabo.net
;-) Essaie Select Case Range("B2:N" & zn) sans la sélectionner avant puis la suite
@ tout de suite ;-) -- @+ popi
gee-dee-
Bonsoir Jacky,
si j'ai compris ??? tu cherches à colorer les cellules d'un plage variable selon le contenu de chaque cellule alors :
For Each cellule in Range("B2:N" & zn).Cells Select Case cellule.value Case "AY" cellule.Interior.ColorIndex = 36 Case "OH" cellule.Interior.ColorIndex = 33 '------- ' ici tu peux rajouter autant de Cases cellules que tu veux (un vrai village prison coloré en quelque sorte) '------- Case Else cellule.Interior.ColorIndex = xlnone End Select Next cellule
@+
Bonsoir Jacky,
si j'ai compris ???
tu cherches à colorer les cellules d'un plage variable selon le contenu de
chaque cellule
alors :
For Each cellule in Range("B2:N" & zn).Cells
Select Case cellule.value
Case "AY"
cellule.Interior.ColorIndex = 36
Case "OH"
cellule.Interior.ColorIndex = 33
'-------
' ici tu peux rajouter autant de Cases cellules que tu veux
(un vrai village prison coloré en quelque sorte)
'-------
Case Else
cellule.Interior.ColorIndex = xlnone
End Select
Next cellule
si j'ai compris ??? tu cherches à colorer les cellules d'un plage variable selon le contenu de chaque cellule alors :
For Each cellule in Range("B2:N" & zn).Cells Select Case cellule.value Case "AY" cellule.Interior.ColorIndex = 36 Case "OH" cellule.Interior.ColorIndex = 33 '------- ' ici tu peux rajouter autant de Cases cellules que tu veux (un vrai village prison coloré en quelque sorte) '------- Case Else cellule.Interior.ColorIndex = xlnone End Select Next cellule
@+
e.lecrenier
Ah mon bon Gilbert Tu as été mon sauveur.... Pourtant, j'ai la copie écrite de la macro, mais en français (Ex5) et elle fonctionnait bien. j'ai essayé de traduire, mais je butais..... Maintenant, je vais essayer de comprendre la soluce de Popi. merci à tous deux. jacques
-- Bonne chance et bonne fin de journée. Jacquouille qui lit http://www.excelabo.net
"gee-dee-" a écrit dans le message de news:%
Bonsoir Jacky,
si j'ai compris ??? tu cherches à colorer les cellules d'un plage variable selon le contenu de chaque cellule alors :
For Each cellule in Range("B2:N" & zn).Cells Select Case cellule.value Case "AY" cellule.Interior.ColorIndex = 36 Case "OH" cellule.Interior.ColorIndex = 33 '------- ' ici tu peux rajouter autant de Cases cellules que tu veux (un vrai village prison coloré en quelque sorte) '------- Case Else cellule.Interior.ColorIndex = xlnone End Select Next cellule
@+
Ah mon bon Gilbert
Tu as été mon sauveur....
Pourtant, j'ai la copie écrite de la macro, mais en français (Ex5) et elle
fonctionnait bien. j'ai essayé de traduire, mais je butais.....
Maintenant, je vais essayer de comprendre la soluce de Popi.
merci à tous deux.
jacques
--
Bonne chance et bonne fin de journée.
Jacquouille qui lit http://www.excelabo.net
"gee-dee-" <nomail@nomail.com> a écrit dans le message de
news:%23qT4ydplDHA.2964@tk2msftngp13.phx.gbl...
Bonsoir Jacky,
si j'ai compris ???
tu cherches à colorer les cellules d'un plage variable selon le contenu de
chaque cellule
alors :
For Each cellule in Range("B2:N" & zn).Cells
Select Case cellule.value
Case "AY"
cellule.Interior.ColorIndex = 36
Case "OH"
cellule.Interior.ColorIndex = 33
'-------
' ici tu peux rajouter autant de Cases cellules que tu veux
(un vrai village prison coloré en quelque sorte)
'-------
Case Else
cellule.Interior.ColorIndex = xlnone
End Select
Next cellule
Ah mon bon Gilbert Tu as été mon sauveur.... Pourtant, j'ai la copie écrite de la macro, mais en français (Ex5) et elle fonctionnait bien. j'ai essayé de traduire, mais je butais..... Maintenant, je vais essayer de comprendre la soluce de Popi. merci à tous deux. jacques
-- Bonne chance et bonne fin de journée. Jacquouille qui lit http://www.excelabo.net
"gee-dee-" a écrit dans le message de news:%
Bonsoir Jacky,
si j'ai compris ??? tu cherches à colorer les cellules d'un plage variable selon le contenu de chaque cellule alors :
For Each cellule in Range("B2:N" & zn).Cells Select Case cellule.value Case "AY" cellule.Interior.ColorIndex = 36 Case "OH" cellule.Interior.ColorIndex = 33 '------- ' ici tu peux rajouter autant de Cases cellules que tu veux (un vrai village prison coloré en quelque sorte) '------- Case Else cellule.Interior.ColorIndex = xlnone End Select Next cellule
