IF ... Interior color deux fois, la deuxième boucle annule la coloration de 1ere

tweedi · 13 Février 2013

Bonjour à toutes et à tous,

J'ai un petit problème sur une macro qui doit mettre les lignes en surbrillance rouge si une case précise est vide,

puis, un peu plus tard, qui doit mettre les lignes en surbrillances (d'une autre couleur) si la date est dépassée.

Le fait est que les deux boucles fonctionnent très bien indépendamment, mais si je les met dans la même macro, la deuxième boucle va annuler la mise en surbrillance de la première boucle, même si ce ne sont pas les mêmes lignes qui sont colorées !

Voici mes deux codes:

'entités qui n'ont pas de Fréquence Maj renseignee: mise en rouge

lastrow = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
With Sheets("Feuil1")
For i = 1 To lastrow
If .Cells(i, 12).Value = "" And .Cells(i, 8).Value = "Client" Then
With .Cells(i, 12).EntireRow
.Interior.ColorIndex = 3
End With
End If
Next i
End With

'comparaison des date limite avec la date du jour

With Sheets("Feuil1")
For i = 2 To lastrow
If .Cells(i, 8).Value = "Client" And .Cells(i, 13) < Now() Then
With .Cells(i, 14).EntireRow
.Interior.ColorIndex = 6
End With
End If
Next i
End With

Merci d'avance pour vos pistes et éléments de réponse à ce problème.

Cdlt,

Tweedi.

Pierrot93 · 13 Février 2013

Re : IF ... Interior color deux fois, la deuxième boucle annule la coloration de 1ere

Bonjour,

A première vue ton code parait bon... sans doute les tests sont vérifiés dans les 2 boucles.... sans pouvoir tester, difficile de t'en dire plus...

bon après midi
@+

IF ... Interior color deux fois, la deuxième boucle annule la coloration de 1ere

tweedi

XLDnaute Nouveau

Pierrot93

XLDnaute Barbatruc

Discussions similaires