VBA - Colorier ligne si la date dans une colonne < date jour

[Arnaud81]

Bonjour,

Je souhaiterai colorier une ligne si la date est inférieure à la date du jour.

La date est en colonne G
Le style "Neutre est paramétré avec la couleur souhaitée

Il me manque la partie en rouge


Sub depasse_theme()
Application.ScreenUpdating = False

For li = 3 To 600

If Cells(li, 7).Date = <AUJOURDHUI() - 1 Then

For Col = 3 To 11
Range(Cells(li, Col).Address(RowAbsolute:=False, ColumnAbsolute:=False)).Style = "neutre"

Next Col
End If
Next li

End Sub

Merci d'avance

 

[Pierrot93]

Re : VBA - Colorier ligne si la date dans une colonne < date jour

Bonjour,

essaye avec ceci :

If Cells(li, 7).Value < Date Then

bon après midi
@+

 

[Arnaud81]

Re : VBA - Colorier ligne si la date dans une colonne < date jour

Merci Pierrot,

C'est presque ca... Si je veux eviter de prendre en compte les cellulles vides?

 

[JBARBE]

Re : VBA - Colorier ligne si la date dans une colonne < date jour

Bonjour,
une macro qui colorie en rouge un tableau nommé vCellule aprés avoir rempli une boite de dialogue d'un chiffre ( à modifier pour convenir à ta macro)

Option Explicit

Sub Selection_calendrier()
Dim vValeur As Single
Dim vCellule As Object
Dim vSelection As String
Sheets("Feuil2").Select
Range("vCellule").Select
Selection.Interior.Pattern = xlNone
vValeur = Val(InputBox("JOUR à selectionner "))
Selection.CurrentRegion.Select
 For Each vCellule In Selection
    If vCellule.Value = vValeur Then vSelection = vSelection & vCellule.Address & ","
 Next
 If Len(vSelection) > 0 Then
   Range(Left(vSelection, Len(vSelection) - 1)).Select
   Selection.Interior.ColorIndex = 3
 End If
End Sub

 

[Pierrot93]

Re : VBA - Colorier ligne si la date dans une colonne < date jour

Bonjour,

Merci Pierrot,
C'est presque ca... Si je veux eviter de prendre en compte les cellulles vides?

essaye avec ceci :

If Not IsEmpty(Cells(li, 7).Value) And Cells(li, 7).Value < Date Then

bonne journée
@+

 

[Arnaud81]

Re : VBA - Colorier ligne si la date dans une colonne < date jour

Merci JBARBE, mais je voudrais éviter les box.

Merci Pierrot, c'est exactement ca!

 

[Arnaud81]

Re : VBA - Colorier ligne si la date dans une colonne < date jour

PS: comment puis je valider cette réponse pour clôturer la discussion

 

[Pierrot93]

Re : VBA - Colorier ligne si la date dans une colonne < date jour

Re,

pas de "flag" sur ce forum, tu le dit et c'est très bien... certains éditent leur premier message en modifiant le titre, mais pas obligatoire..

 

[Arnaud81]

Re : VBA - Colorier ligne si la date dans une colonne < date jour

Je profite une dernière fois : si je veux en plus d'appliquer le style, modifier le texte dans la cellule colonne 6 à "terminé" ?

 

[Pierrot93]

Re : VBA - Colorier ligne si la date dans une colonne < date jour

Re,

peut être ceci :

Cells(li, 6).Value = "rerminé"

enfin, si j'ai bien copmpris, pas sûr....

 

[Arnaud81]

Re : VBA - Colorier ligne si la date dans une colonne < date jour

Pierrot, je ne parvient pas à l'inserer dans la macro. Désolé, je débute

If Not IsEmpty(Cells(li, 7).Value) And Cells(li, 6).Text = "Planifiée" And Cells(li, 7).Value < Date Then

For Col = 2 To 11
Range(Cells(li, Col).Address(RowAbsolute:=False, ColumnAbsolute:=False)).Style = "neutre" and Cells(li, 6).Value = "Terminé"

 

[Pierrot93]

Re : VBA - Colorier ligne si la date dans une colonne < date jour

Re,

2 lignes d'instructions séparées :

For Col = 2 To 11
Cells(li, 6).Value = "Terminé"
Cells(li, Col).Style.Name = "neutre"

 

[Arnaud81]

Re : VBA - Colorier ligne si la date dans une colonne < date jour

Bon, je ne comprends pas tout ce que j'ai écrit mais cela fonctionne nickel! Merci beaucoup pour l'aide.

For li = 3 To 600

If Not IsEmpty(Cells(li, 7).Value) And Cells(li, 6).Text = "Planifiée" And Cells(li, 7).Value < Date Then


For Col = 2 To 11
Range(Cells(li, Col).Address(RowAbsolute:=False, ColumnAbsolute:=False)).Style = "neutre"

Range(Cells(li, 6).Address(RowAbsolute:=False, ColumnAbsolute:=False)).Value = "Terminé"

Next Col


End If
Next li

End Sub