Excel Downloads Forums - Afficher un message

Gorfael · 22/12/2006, 16h21

Code:

Sub test()
Dim i%, k%
Cells.Interior.ColorIndex = xlNone
For i = 1 To Range("C65536").End(xlUp).Row-1
For k = i+1 To Range("C65536").End(xlUp).Row
        If Cells(i, 3)= Cells(k, 3) Then
            Rows(i).Interior.Color = vbRed
            Rows(k).Interior.Color = vbRed
        End If
    Next k
Next i
End Sub

A+

22/12/2006, 16h21	#15 (permalink)
Gorfael XLDnaute Accro Date d'inscription: avril 2006 Localisation: Basse Goulaine Version Excel : Excel 2003 (PC) Messages: 1 408	Re : macro ou formule avec conditions Code: Sub test() Dim i%, k% Cells.Interior.ColorIndex = xlNone For i = 1 To Range("C65536").End(xlUp).Row-1 For k = i+1 To Range("C65536").End(xlUp).Row If Cells(i, 3)= Cells(k, 3) Then Rows(i).Interior.Color = vbRed Rows(k).Interior.Color = vbRed End If Next k Next i End Sub A+ Dernière modification par Gorfael ; 22/12/2006 à 16h26.