Rapport de message :*
 

Re: Modification de code

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,