[XL-2003] Reproduire la couleur des cellules dans un ListView [Résolu]

[Cocotte278]

Bonjour ,

j'aimerais définir le format de cellules dans une variable pour pouvoir l'utiliser par la suite.
Quelqu'un aurait-il une idée, une astuce ?

Merci d'avance.

PS : voici mon idée qui ne fonctionne pas :

Code :

LN = .Range("A2:AF" & DerL).Interior.Color

[Godzestla]

Bonjour,

ton range conprenant plus d'une cellule, ta variable LN n'est guère suffisante pour contenir ce que tu veux y sauver.

Il faut un tableau, vraisemblablement à 2 dimensions, mais l'initialisation sera a réaliser de manière différente (par boucle probablement).

[Daniel.C]

Bonjour

Essaie la macro suivante; la variable Ln est un tableau des valeurs des couleurs de chaque cellule de la plage :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Sub test1()
Sheets.Add.Name = "temp"
Sheets("Feuil2").Range("A2:AF" & derl).Copy
[A2].PasteSpecial xlPasteFormats
For Each c In Range("A2:AF" & derl)
    c.Value = c.Interior.Color
Next c
Ln = Range("A2:AF" & derl)
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
End Sub

[Cocotte278]

Bonjour Godzestla et Daniel,

Merci de m'avoir répondu et d'essayer de m'aider !

J'ai essayé de déclarer ma variable LN comme un tableau (en prenant exemple sur une autre variable tableau qui fonctionne) mais en vain...

Puis j'essaie d'utiliser le bout de code donné par Daniel mais il me met une erreur d'exécution '1004' Erreur définie par l'application ou l'objet. L'erreur est sur la première ligne (Range("A2:AF" & DerL).Copy).

Code :

1
2
3
4
5
6
7
8
9
10
 
Sheets("Janvier").Range("A2:AF" & DerL).Copy
[A2].PasteSpecial xlPasteFormats
For Each D In Range("A2:AF" & DerL)
    D.Value = D.Interior.Color
Next D
LN = Range("A2:AF" & DerL)
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True

Que me suggérez-vous ?

Merci bcp

[Godzestla]

Bonjour,

attention Daniel.C, en cas de formattage conditionnel de la couleur, le code que tu proposes risque de ne pas donner le résultat escompté.

Je pense qu' il est plus prudent (et plus rapide) d'initialiser directement un tableau Dynamique LN que tu redimensionnes à chaque ajout d'un élément.

[Daniel.C]

Pour Godzestla :

Bonjour,

Tu as parfaitement raison en ce qui concerne le tableau dynamique. Je suis passé par une feuille ne sachant pas si le nombre de colonnes de la plage était fixe et comme on ne peut redimensionner que la dernière dimension...

Cocotte278 n'a pas parlé de formatage conditionnel mais de la couleur de fond de cellule (interior.color).

Pour Cocotte278 :

Heu oui, il faut donner une valeur à DerL.

[Godzestla]

@Daniel.C

Je suis passé par une feuille ne sachant pas si le nombre de colonnes de la plage était fixe et comme on ne peut redimensionner que la dernière dimension...

C'est vrai, mais on peut fonctionner avec un tableau à 1 Dim. D'ailleurs, ton tableau LN n'a je pense qu'une seule dimension.

Cocotte278 n'a pas parlé de formatage conditionnel mais de la couleur de fond de cellule (interior.color).

Encore exact. Par expérience, je préfère prévoir le "non-dit" qui est trop souvent la réalité.

Néanmoins,ta solution est bien-sûr

[Cocotte278]

Encore merci pour vos réponses.

Pour tout dire, je souhaiterais reproduire un tableau Excel dnas une ListView avec la couleur de chaque cellule (qui peut être différente selon les cellules).

Il s'agit d'un planning mais j'admets que le nombre de colonne est 32.
Le nombre de ligne est 16.

Voici mes bouts de codes (ceux qui nous intéressent):

Code :

1
2
3
4
5
6
7
 
'Remplit mes tableaux
With Worksheets("Septembre")
    DerL = .Range("A20").End(xlUp).Row
    Tbl = .Range("A2:AF" & DerL)
    LN = .Range("A2:AF" & DerL).Interior.Color
End With

Code :

1
2
3
4
5
6
7
8
9
 
'Utilise le tableaux LN   
With ListView1
        For L = 1 To UBound(LN, 1)
            For C = 2 To UBound(LN, 2)
                .ListItems(.ListItems.Count).ListSubItems.Add = LN(L, C)
            Next
        Next
End With

J'ai une erreur d'exécution '13' Incompatibilité de type sur la ligne :

Code :

.ListItems(.ListItems.Count).ListSubItems.Add = LN(L, C)

Je pense avoir bien rempli mon tableau...

[Daniel.C]

Code :

LN = .Range("A2:AF" & DerL).Interior.Color

Non, on t’explique depuis ce matin que ça ne fonctionne pas. Tu n'as rien changé; pourquoi veux-tu que ça aille mieux ?

Tu peux aussi, comme le suggère Godzestla utiliser :

Code :

1
2
3
4
5
6
7
8
Dim LN(16, 32), c As Range
With Worksheets("Septembre")
    DerL = .Range("A20").End(xlUp).Row
    Set tbl = .Range("A2:AF" & DerL)
    For Each c In tbl
        LN(c.Row, c.Column) = c.Interior.Color
    Next c
End With

avec :

Code :

Option Base 1

en tête de module

[Godzestla]

Je dirais même plus .

Daniel.C se décarcasse pour t'aider. Si tu demandes de l'aide, le minimum du minimum est vraiment de lire les réponses et d'en tenir compte.

[Cocotte278]

J'ai repris le bout de code que tu m'as donné :

Code :

1
2
3
4
5
6
7
8
 
With Worksheets("Sept")
    DerL = .Range("A20").End(xlUp).Row
    Set Tbl = .Range("A2:AF" & DerL)
    For Each D In Tbl
        LN(D.Row, D.Column) = D.Interior.Color
    Next
End With

Maintenant, pour retranscrire les info dans ma ListView, J'ai écrit le code suivant :

Code :

1
2
3
4
5
6
7
8
 
With ListView1
       For L = 1 To 18
            For c = 2 To 33
                .ListItems(.ListItems.Count).ListSubItems.ForeColor = LN(L, c)
            Next
        Next
    End With

J'ai une erreur de compilation (membre de méthode ou de données introuvable). Je ne sais pas quoi employer...

Au fait, il sert à quoi le Base 1 ?

Merci.

PS : j'ai pas besoin qu'on me fasse la morale, c'est vraiment pas évident... Et en plus, si vous êtes suptils...

[Daniel.C]

Essaie :

Code :

.ListItems(.ListItems.Count).ListSubItems.ForeColor.RGB = LN(L, c)

[Cocotte278]

Merci Daniel

Mais il n'aime pas la méthode "ForeColor". Il met une erreur de compilation "Membre de méthode ou de données introuvable".

Pourtant j'avais un exemple avec qui fonctionne bien :

Code :

1
2
3
4
5
6
 
        For Y = 1 To 17
            For j = 1 To 30
                .ListItems(Y).ListSubItems(j).ForeColor = vbBlue
            Next j
        Next Y

[Daniel.C]

Essaie :

Code :

1
2
3
4
Rouge =  LN(L, c) Mod 256
    Vert =  LN(L, c) / 256 Mod 256
    Bleu =  LN(L, c)/ 256 / 256 Mod 256
   .ListItems(.ListItems.Count).ListSubItems.ForeColor = RGB(Rouge, Vert, Bleu)

[Cocotte278]

Ca ne marche toujours pas. C'est toujours le même essage d'erreur que précédemment sur ForeColor.

Je l'utilise ici :

Code :

1
2
3
4
5
6
7
8
9
10
11
 
With ListView1
       .View = 3                   ' type Report
        .Gridlines = True           ' affichage de lignes
        .FullRowSelect = True       ' sélection complète de la ligne
        .HideColumnHeaders = False  ' afficher les en-têtes de colonnes
        .LabelEdit = 1              ' ne pas autoriser la saisie
        .BackColor = RGB(230, 230, 255)
        .ForeColor = RGB(0, 0, 0)
        .Font.Size = 8
End With

Et ça fonctionne pourtant...

[Daniel.C]

Au fait, j'ai oublié :

Code :

Option Base 1

signifie que le le premier item d'une table a pour indice 1. Par défaut, c'est 0. Selon le cas, il est plus facile de travailler avec l'un ou l'autre. Des utilisateurs ont aussi du mal avec le 0 origine.

Et ça fonctionne pourtant...

Tu as une erreur ou ça fonctionne ? Etonnant que tu aies une erreur sur ForeColor et pas sur BackColor...

[Cocotte278]

Ok merci Daniel pour l'explication

ForeColor fonctionne dans le dernier code que je t'ai montré

Code :

1
2
3
4
5
6
7
8
9
10
11
 
With ListView1
       .View = 3                   ' type Report
        .Gridlines = True           ' affichage de lignes
        .FullRowSelect = True       ' sélection complète de la ligne
        .HideColumnHeaders = False  ' afficher les en-têtes de colonnes
        .LabelEdit = 1              ' ne pas autoriser la saisie
        .BackColor = RGB(230, 230, 255)
        .ForeColor = RGB(0, 0, 0)
        .Font.Size = 8
End With

Mais pas dans celui que tu m'as donné :

Code :

1
2
3
4
5
 
Rouge =  LN(L, c) Mod 256
    Vert =  LN(L, c) / 256 Mod 256
    Bleu =  LN(L, c)/ 256 / 256 Mod 256
   .ListItems(.ListItems.Count).ListSubItems.ForeColor = RGB(Rouge, Vert, Bleu)

[Daniel.C]

Au temps pour moi, mets :

Code :

1
2
3
    Rouge = coul Mod 256
    Vert = coul \ 256
    Bleu = coul \ 256 \ 256 Mod 256

au lieu des barres de division (fais un essai auparavant avec):

Code :

.ListItems(.ListItems.Count).ListSubItems.ForeColor = RGB(255, 0, 0)

[Cocotte278]

Bonjour Daniel,

Ce que tu me proposes ne fonctionne malheureusement pas...

Je cherche en vain...

Voici mon code :

Code :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
 
Private Sub UserForm_Initialize()
Dim Tbl As Range, D As Range
Dim LN(19, 33)
Dim L As Integer, c As Integer
 
With ListView1
        With .ColumnHeaders
            ' Vider le listview
            .Clear
            'Ajouter les colonnes
            .Add , , "Prénom Nom", 100 ', lvwColumnCenter
            .Add , , " "
            .Add , , " "
            .Add , , " "
            .Add , , " "
            .Add , , " "
            .Add , , " "
            .Add , , " "
            .Add , , " "
            .Add , , " "
            .Add , , " "
            .Add , , " "
            .Add , , " "
            .Add , , " "
            .Add , , " "
            .Add , , " "
            .Add , , " "
            .Add , , " "
            .Add , , " "
            .Add , , " "
            .Add , , " "
            .Add , , " "
            .Add , , " "
            .Add , , " "
            .Add , , " "
            .Add , , " "
            .Add , , " "
            .Add , , " "
            .Add , , " "
            .Add , , " "
            .Add , , " "
            .Add , , " "
        End With
 
        .View = 3                   ' type Report
        .Gridlines = True           ' affichage de lignes
        .FullRowSelect = True       ' sélection complète de la ligne
        .HideColumnHeaders = False  ' afficher les en-têtes de colonnes
        .LabelEdit = 1              ' ne pas autoriser la saisie
        .BackColor = RGB(230, 230, 255)
        '.ForeColor = RGB(0, 0, 0)
        .Font.Size = 8
    End With
 
With Worksheets("Sept")
    Set Tbl = .Range("A2:AF19")
    For Each D In Tbl
        LN(D.Row - 2, D.Column - 1) = D.Font.ColorIndex
    Next D
End With
 
With ListView1
    .ListItems.Clear
    For L = 0 To UBound(LN, 1)
        .ListItems.Add , , LN(L, 0)
        For c = 1 To UBound(LN, 2)
            .ListItems(.ListItems.Count).ListSubItems.ForeColor = RGB(255, 0, 0)
        Next
    Next
End With
End Sub

PS : je discute avec Franck (discussion : Remplissage d'un tableau - erreurs)

[Daniel.C]

Bonjour,

Tu ne peux pas colorier l'ensemble des subitems, il faaut le faire item par item :

Code :

ListView1.ListItems(1).ListSubItems(1).ForeColor = RGB(255, 128, 128)