Macro couleur

Salut,
c'est possible.
voici une piste
en nommant "index" la colonne qui contient 15Ex5
en supposant que le tableau a cinq cellules de largeur

Dim cell as Range
...
for each cell in [index]
if cell.Text="15Ex5"
for j= 0 to 4
cell.offset(0,j).Interior.ColorIndex =5
next j
end if
next cell
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"Christelle" <jane18fr@yahoo.fr> a écrit dans le message de news:
81fe01c3e993$344c5d30$a101280a@phx.gbl...
Bonjour,

Je souhaiterai créer une macro qui cherche dans un tableau
(millier de lignes) des references (ex: 15Ex5,
16A25.......) et colorie la ligne en couleur qd il trouve
la reference

Cela est-il possible ?????

Merci d'avance

Bonjour,

Pour rechercher et colorier la colonne F :

Sub couleur()
range("F2").Select
Do While Not IsEmpty(ActiveCell)
If ActiveCell.Value < 8 Then
ActiveCell.Font.ColorIndex = 3
ElseIf ActiveCell.Value < 10 Then
ActiveCell.Font.ColorIndex = 8
ElseIf ActiveCell.Value < 12 Then
ActiveCell.Font.ColorIndex = 1
ElseIf ActiveCell.Value < 16 Then
ActiveCell.Font.ColorIndex = 13
Else
ActiveCell.Font.ColorIndex = 23
End If
ActiveCell.Offset(1, 0).Select
Loop
Cells(1, 1).Select
End Sub

Pour appliquer à la ligne entière remplacer
ActiveCell.Font par ActiveCell.EntireRow.Font
Pour une couleur de fond remplacer .Font par .Interior

Camille

-----Message d'origine-----
Bonjour,

Je souhaiterai créer une macro qui cherche dans un tableau
(millier de lignes) des references (ex: 15Ex5,
16A25.......) et colorie la ligne en couleur qd il trouve
la reference

Cela est-il possible ?????

Merci d'avance
.