Discussion :

[RAID14]

Bonsoir à tous,

Je souhaites mettr en forme conditionnelle des lignes selon la date du jour
Par exemple vert si les informations de la cellles sont < à l adate du jour et cela pour 100 200 voir 500 lignes(en vba)

Est-ce que vous auriez une idée svp car ce petit code ne fonctionne pas ?
Merci par avance et bonne soirée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub COULEUR()
 Sheets("DPOLEL").Select
 If Range("Q2:Q38") < Range("A4") Then
 Range("B2:U2").Select
        With Selection.Interior
        .ColorIndex = 4
        .Pattern = xlSolid
    End With
    End If
End Sub

[RAID14]

Bonjour,

Je suis dévutant mais je vais essayé d'être plus clair puisque je n'ai pas de réponse. En faite je ne voudrais pas créer 500 lignes comme ci-dessous car sinon je n'ai pas fini.

Merci d'avance pour vos réponses

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub COULEUR()
Sheets("DPOLEL").Select
If Range("Q2") < Range("A4") Then
Range("B2:U2").Select
With Selection.Interior
.ColorIndex = 4
.Pattern = xlSolid
 
Else If Range("Q3") < Range("A4") Then
Range("B3:U3").Select
With Selection.Interior
.ColorIndex = 4
.Pattern = xlSolid
 
Else If Range("Q4") < Range("A4") Then
Range("B4:U4").Select
With Selection.Interior
.ColorIndex = 4
.Pattern = xlSolid
 
................
 
 
End With
End If
End Sub

[sabzzz]

bonjour RAID14,

voilà j'ai ajouté une boucle, et aussi j'ai enlevé Pattern = xlSolid car c'est ça qui est mit pas default,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub COULEUR()
Sheets("DPOLEL").Select
For Each c In Range("Q2:Q38")
 If Range(c.Address) < Range("A4") Then
  Range(c.Address).Interior.ColorIndex = 4
 End If
Next
End Sub

[RAID14]

Bonjour et merci Isabelle

J'ai un peu modifié ton code qui marchait très bien afin que si j'ai des cases vides il ne prend pas par défaut la date d'excel qui est je crois 1904.


Néanmois j'aurais une dernière question à propos de " Range(c.Address).Interior.ColorIndex = 4" car le top serait que je puisse mettre en vert non pas seulement la cellule mais les cellules de la colonne B à U de la ligne concernée.

Je vais mettre résolu mais si tu as une idée, merci d'avance.

Patrice

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub LIGNESVERTES()
Sheets("DPOLEL").Select
For Each c In Range("Q2:Q2000")
 If Range(c.Address) < Range("A4") And Range(c.Address) > Range("A5") Then
  Range(c.Address).Interior.ColorIndex = 4
 End If
Next
End Sub

[sabzzz]

bonjour Patrice,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range(Cells(c.Row, "B"), Cells(c.Row, "U")).Interior.ColorIndex = 4

[RAID14]

Super merci Isabelle