Colorier ligne

TooFatBoy

XLDnaute Barbatruc

• 20 Août 2009

• #2

Re : Colorier ligne

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

 

Vote positif 0 Vote négatif

F

Florian53

XLDnaute Impliqué

• 20 Août 2009

• #3

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

 

Vote positif 0 Vote négatif

F

Florian53

XLDnaute Impliqué

• 20 Août 2009

• #4

Re : Colorier ligne

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

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 20 Août 2009

• #5

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.

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 20 Août 2009

• #6

Re : Colorier ligne

Florian53 à dit:

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

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

F

Florian53

XLDnaute Impliqué

• 21 Août 2009

• #7

Re : Colorier ligne

je vais essayer de trouver une solution avec macro

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 21 Août 2009

• #8

Re : Colorier ligne

Bonjour Florian, Marcle

par vba, peut être ainsi :

Code:

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
@+

 

Vote positif 0 Vote négatif

F

Florian53

XLDnaute Impliqué

• 22 Août 2009

• #9

Re : Colorier ligne

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

 

Vote positif 0 Vote négatif