Colorier ligne

[Florian53]

Bonsoir à tous je voudrais réaliser un tableau avec des dates et d'autres colonnes dont une ou je marquerais "En attente".

Ce que je voudrais est que si ma cellule ou est marqué "En attente" depuis plus de 30 jours alors je coloris en rouge les colonnes qui correspondent aux cellules "En attente".

Voilà le début de mon code:

With Sheets("Feuil1")
For Each cel In .Range("K8:K" & .Range("K65000").End(xlUp).Row)
If UCase(cel) = "EN ATTENTE" And CDate(cel.Offset(0, -7)) <= Date - 30 Then

Ce je vois pas comment indiquer qu'il colorie les cellules correspondantes par exemple les colonnes C, E, G.

Merci à vous

 

[TooFatBoy]

Re : Colorier ligne

As-tu essayé avec une mise en forme conditionnelle ?

 

[Florian53]

Re : Colorier ligne

Je viens tout juste de penser à ça peut etre que je peux réussir avec la mise en forme je vais essayer

 

[Florian53]

Re : Colorier ligne

non sa va pas etre possible avec la mise en forme car je dois l'utiliser sur plus de 1000 lignes

 

[TooFatBoy]

Re : Colorier ligne

Si j'ai bien compris, la date à surveiller est en colonne D, non ?

Si c'est bien ça, alors il faudrait tenter d'y mettre une mise en forme conditionnelle du genre :
=ET(MAJUSCULE($D1)="ATTENTE"; $K1<(AUJOURDHUI()-30))

En suite il suffit de copier/coller la cellule D1 dans toutes les cellules concernées de la colonne D.

 

[TooFatBoy]

Re : Colorier ligne

non sa va pas etre possible avec la mise en forme car je dois l'utiliser sur plus de 1000 lignes

Ah bon, pourquoi ? Tu as peur que ça augmente la taille du fichier ?

Sinon, tu peux effectivement le faire par macro, en utilisant le même principe de test par rapport à aujourdhui()-30.

 

[Florian53]

Re : Colorier ligne

je vais essayer de trouver une solution avec macro

 

[Pierrot93]

Re : Colorier ligne

Bonjour Florian, Marcle

par vba, peut être ainsi :

Sub test()
Dim cel As Range
With Sheets("Feuil1")
    For Each cel In .Range("K8:K" & .Range("K65000").End(xlUp).Row)
        If UCase(cel) = "EN ATTENTE" And cel.Offset(0, -7) <= Date - 30 Then
            Union(cel.Offset(0, -4), cel.Offset(0, -6), cel.Offset(0, -8)).Interior.ColorIndex = 3
        End If
    Next cel
End With
End Sub

bon après midi
@+

 

[Florian53]

Re : Colorier ligne

Merci à toi je vais essayer de l'adapter a mon projet