Titre du sujet : Re: Modification de code par myDearFriend! le 17/03/2012 15:14:23
Bonjour Samuel59,
Au vu de l'extrait de code fourni, tu peux peut-être le remplacer comme ça :
Sub Reperes()
Dim Cel As Range, Cell As Range
With Sheets("Courses")
For Each Cell In .Range("C10:C" & .Cells(.Rows.Count, "C").End(xlUp).Row)
If Not IsEmpty(Cell) Then
With Cell 'Columns(10) = Colonne J
Set Cel = Sheets("Reperes").Columns(10).Find(.Value, LookIn:=xlValues)
If Not Cel Is Nothing Then
With .Font
.Bold = True
.ColorIndex = 3
End With
End If
End With
End If
Next Cell
End With
End Sub
Merci à toi de prendre connaissance de cette FAQ pour insérer du code VBA proprement dans tes posts.
Cordialement,
|