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

Pierrot93

XLDnaute Barbatruc

• 17 Octobre 2012

• #2

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

Bonjour,

essaye avec ceci :

Code:

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

bon après midi
@+

 

Vote positif 0 Vote négatif

A

Arnaud81

XLDnaute Junior

• 17 Octobre 2012

• #3

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?

 

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 17 Octobre 2012

• #4

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)

Code:

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

 

Dernière édition: 17 Octobre 2012

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 18 Octobre 2012

• #5

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?

Cliquez pour agrandir...

essaye avec ceci :

Code:

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

bonne journée
@+

 

Vote positif 0 Vote négatif

A

Arnaud81

XLDnaute Junior

• 18 Octobre 2012

• #6

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!

 

Vote positif 0 Vote négatif

A

Arnaud81

XLDnaute Junior

• 18 Octobre 2012

• #7

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 18 Octobre 2012

• #8

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..

 

Vote positif 0 Vote négatif

A

Arnaud81

XLDnaute Junior

• 18 Octobre 2012

• #9

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é" ?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 18 Octobre 2012

• #10

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

Re,

peut être ceci :

Code:

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

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

 

Vote positif 0 Vote négatif

A

Arnaud81

XLDnaute Junior

• 18 Octobre 2012

• #11

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é"

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 18 Octobre 2012

• #12

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

Re,

2 lignes d'instructions séparées :

Code:

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

 

Vote positif 0 Vote négatif

A

Arnaud81

XLDnaute Junior

• 18 Octobre 2012

• #13

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

 

Vote positif 0 Vote négatif