Je souhaiterais pouvoir repérer dans une sélection ( plage A20:A42 ) les
cellules ayant une couleur de police jaune ( ColorIndex = 36 ) et changer
cette couleur en Blanc ( ColorIndex = 2 ).
Merci de votre aide.
Cordialement.
Excel...lent
N'oubliez pas votre lampe à huile et votre casque et descendez dans ces
mines d'or
pour des explorations fructueuses :
http://www.excelabo.net/
http://frederic.sigonneau.free.fr
http://dj.joss.free.fr/
http://jacxl.free.fr
http://www.cathyastuce.com/excel.htm
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
ChrisV
Bonjour Excel...lent
Sub zaza() Dim c As Range Application.ScreenUpdating = False For Each c In [A20:A42] If c.Font.ColorIndex = 36 Then _ c.Font.ColorIndex = 2 Next c End Sub
ChrisV
"Excel...lent" a écrit dans le message de news:
Bonsoir la communauté,
Je galère un un max pour faire un code.
Je souhaiterais pouvoir repérer dans une sélection ( plage A20:A42 ) les cellules ayant une couleur de police jaune ( ColorIndex = 36 ) et changer cette couleur en Blanc ( ColorIndex = 2 ).
Merci de votre aide.
Cordialement.
Excel...lent
N'oubliez pas votre lampe à huile et votre casque et descendez dans ces mines d'or pour des explorations fructueuses : http://www.excelabo.net/ http://frederic.sigonneau.free.fr http://dj.joss.free.fr/ http://jacxl.free.fr http://www.cathyastuce.com/excel.htm
Bonjour Excel...lent
Sub zaza()
Dim c As Range
Application.ScreenUpdating = False
For Each c In [A20:A42]
If c.Font.ColorIndex = 36 Then _
c.Font.ColorIndex = 2
Next c
End Sub
ChrisV
"Excel...lent" <vpco@free.fr> a écrit dans le message de news:
e7haZys9FHA.1020@TK2MSFTNGP15.phx.gbl...
Bonsoir la communauté,
Je galère un un max pour faire un code.
Je souhaiterais pouvoir repérer dans une sélection ( plage A20:A42 ) les
cellules ayant une couleur de police jaune ( ColorIndex = 36 ) et changer
cette couleur en Blanc ( ColorIndex = 2 ).
Merci de votre aide.
Cordialement.
Excel...lent
N'oubliez pas votre lampe à huile et votre casque et descendez dans ces
mines d'or
pour des explorations fructueuses :
http://www.excelabo.net/
http://frederic.sigonneau.free.fr
http://dj.joss.free.fr/
http://jacxl.free.fr
http://www.cathyastuce.com/excel.htm
Sub zaza() Dim c As Range Application.ScreenUpdating = False For Each c In [A20:A42] If c.Font.ColorIndex = 36 Then _ c.Font.ColorIndex = 2 Next c End Sub
ChrisV
"Excel...lent" a écrit dans le message de news:
Bonsoir la communauté,
Je galère un un max pour faire un code.
Je souhaiterais pouvoir repérer dans une sélection ( plage A20:A42 ) les cellules ayant une couleur de police jaune ( ColorIndex = 36 ) et changer cette couleur en Blanc ( ColorIndex = 2 ).
Merci de votre aide.
Cordialement.
Excel...lent
N'oubliez pas votre lampe à huile et votre casque et descendez dans ces mines d'or pour des explorations fructueuses : http://www.excelabo.net/ http://frederic.sigonneau.free.fr http://dj.joss.free.fr/ http://jacxl.free.fr http://www.cathyastuce.com/excel.htm
ThierryP
Bonjour Excel...lent,
for each c in range("A20:A42") If Selection.Interior.ColorIndex = 36 Then Selection.Interior.ColorIndex = 2 next c A adpater...
Bonsoir la communauté,
Je galère un un max pour faire un code.
Je souhaiterais pouvoir repérer dans une sélection ( plage A20:A42 ) les cellules ayant une couleur de police jaune ( ColorIndex = 36 ) et changer cette couleur en Blanc ( ColorIndex = 2 ).
Merci de votre aide.
Cordialement.
Excel...lent
N'oubliez pas votre lampe à huile et votre casque et descendez dans ces mines d'or pour des explorations fructueuses : http://www.excelabo.net/ http://frederic.sigonneau.free.fr http://dj.joss.free.fr/ http://jacxl.free.fr http://www.cathyastuce.com/excel.htm
-- @+ thierryp
Bonjour Excel...lent,
for each c in range("A20:A42")
If Selection.Interior.ColorIndex = 36 Then Selection.Interior.ColorIndex = 2
next c
A adpater...
Bonsoir la communauté,
Je galère un un max pour faire un code.
Je souhaiterais pouvoir repérer dans une sélection ( plage A20:A42 ) les
cellules ayant une couleur de police jaune ( ColorIndex = 36 ) et changer
cette couleur en Blanc ( ColorIndex = 2 ).
Merci de votre aide.
Cordialement.
Excel...lent
N'oubliez pas votre lampe à huile et votre casque et descendez dans ces
mines d'or
pour des explorations fructueuses :
http://www.excelabo.net/
http://frederic.sigonneau.free.fr
http://dj.joss.free.fr/
http://jacxl.free.fr
http://www.cathyastuce.com/excel.htm
for each c in range("A20:A42") If Selection.Interior.ColorIndex = 36 Then Selection.Interior.ColorIndex = 2 next c A adpater...
Bonsoir la communauté,
Je galère un un max pour faire un code.
Je souhaiterais pouvoir repérer dans une sélection ( plage A20:A42 ) les cellules ayant une couleur de police jaune ( ColorIndex = 36 ) et changer cette couleur en Blanc ( ColorIndex = 2 ).
Merci de votre aide.
Cordialement.
Excel...lent
N'oubliez pas votre lampe à huile et votre casque et descendez dans ces mines d'or pour des explorations fructueuses : http://www.excelabo.net/ http://frederic.sigonneau.free.fr http://dj.joss.free.fr/ http://jacxl.free.fr http://www.cathyastuce.com/excel.htm
-- @+ thierryp
Excel...lent
Bonjour à tous les deux,
Merci de votre aide.
Dans les deux cas ca fonctionne, j'ai l'embarras du choix.
Cordialement.
Excel...lent
Bonjour à tous les deux,
Merci de votre aide.
Dans les deux cas ca fonctionne, j'ai l'embarras du choix.
