Discussion :

[tony76]

bonjour à tous,

voilà j'ai un souci pour placé une condition (If) dans un bloc For Each
ce que je souhaite faire c'est colorisé la date quand celle ci et inférieur a la date du jour
j'ai 2 colonne avec des dates

j'arrive pas trouver le bonne objet auquel me référer
code:

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
 
k = Worksheets("Feuil1").Range("B" & Rows.Count).End(xlUp).Row 'k égale derniere cellule remplie de la colonne B
 
        For Each Cell In Worksheets("Feuil1").Range("A2:A" & k)
            ligne = ligne + 1
 
            .ListItems.Add , , Cell
            .ListItems(ligne).ListSubItems.Add , , Cell.Offset(0, 1)
            .ListItems(ligne).ListSubItems.Add , , Format(Cell.Offset(0, 2), "dd/mm/yy")
            .ListItems(ligne).ListSubItems.Add , , Format(Cell.Offset(0, 3), "dd/mm/yy")
            .ListItems(ligne).ListSubItems.Add , , Cell.Offset(0, 4)
            .ListItems(ligne).ListSubItems.Add , , Cell.Offset(0, 5)
            .ListItems(ligne).ListSubItems.Add , , Cell.Offset(0, 6)
 
            If IsDate(Cell) Then
                Cell.Offset(0, 3).ForeColor = RGB(0, 0, 255)
            End If
 
         Next

merci pour votre aide

[joe.levrai]

Bonjour,

c'est la cellule source dans excel ou la cellule dans ton listview que tu veux colorier ?
choisi, les deux sont en dessous

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
Dim Tablo
Tablo = Worksheets("Feuil1").Range("A2", "G" & Worksheets("Feuil1").Range("B" & Rows.Count).End(xlUp).Row)
For i = LBound(Tablo, 1) To UBound(Tablo, 1)
    .ListItems.Add , , Tablo(i, 1)
    With .ListItems(i).ListSubItems
        .Add , , Tablo(i, 2)
        .Add , , Format(Tablo(i, 3), "dd/mm/yy")
        .Add , , Format(Tablo(i, 4), "dd/mm/yy")
        .Add , , Tablo(i, 5)
        .Add , , Tablo(i, 6)
        .Add , , Tablo(i, 7)
    End With
 
    If IsDate(Tablo(i, 1)) Then
        ' colorier la cellule
        Worksheets("Feuil1").Cells(i, 4).Font.Color = RGB(0, 0, 255)
        ' colorier la valeur dans le listview
        .ListItems(i).ListSubItems(3).ForeColor = RGB(0, 0, 255)
    End If
Next i

[tony76]

merci c'est le contenu qui ce trouve dans la listview

mais j'en profite et-il possible de récupérer la couleur d'une date qui se trouve dans ma feuil
dans la listview ?

encore merci joe.levrai

[joe.levrai]

Regarde, ici on a la propriété voulue pour nos deux objets

Code :

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

1
2
3
4
 ' colorier la cellule
Worksheets("Feuil1").Cells(i, 4).Font.Color = RGB(0, 0, 255)
' colorier la valeur dans le listview
.ListItems(i).ListSubItems(3).ForeColor = RGB(0, 0, 255)

une petite égalité entre les deux

Code :

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

.ListItems(i).ListSubItems(3).ForeColor = Worksheets("Feuil1").Cells(i, 4).Font.Color

devrait faire l'affaire ? en adaptant la cellule si besoin

[tony76]

sa ne fonction pas

et pourtant c'est le top ce que ma donner

[joe.levrai]

oui y'a un décalage que j'ai oublié de mettre, désolé

Code :

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

.ListItems(i).ListSubItems(3).ForeColor = Worksheets("Feuil1").Cells(i + 1, 4).Font.Color