Discussion :

[fabrice44]

bonjour,

je souhaite récupérer la couleur de la police d'une cellule dans une collection pour une combobox, est ce possible, ce que j'ai fait en dessous ne fontionne pas

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
On Error Resume Next
 
'boucle sur les cellules de la colonne b
    For Each Cell In Range("b2:b" & i)
 
        'Stocke les données dans une collection
        '(La collection n'accepte que des données uniques et permet donc
        ' de filtrer facilement les doublons).
    With Unique
        .Value = Cell
        .ForeColor = Cell.Font.Color
    End With
 
 
        Unique.Add Cell, CStr(Cell)
 
 
    Next Cell
On Error GoTo 0

[fring]

Bonjour,

Non il n'est pas possible d'attribuer une couleur de police à une collection, de même qu'il n'est pas possible d'attribuer une couleur différente pour chaque item d'un ComboBox.