Select premiere cellule de couleur donnée

Dim c As Range
Dim c6 As Byte, c10 As Byte, c41 As Byte

For Each c In Range('b55')
        Select Case c.Interior.ColorIndex
                Case 6:
                        If c6 = 0 Then
                                c = 'Commandes'
                                c6 = 1
                        End If
                Case 41:
                        If c41 = 0 Then
                                c = 'Factures'
                                c41 = 1
                        End If
                Case 10:
                        If c10 = 0 Then
                                c = 'Reste A FACTURER'
                                c10 = 1
                        End If
        End Select
Next c

Cliquez pour agrandir...

Dim i As Integer
Dim c6 As Byte, c10 As Byte, c41 As Byte

For i = 16 To 2 Step -1
        With Cells(5, i)
                Select Case .Interior.ColorIndex
                        Case 6:
                                If c6 = 0 Then
                                        .Value = 'Commandes'
                                        c6 = 1
                                End If
                        Case 41:
                                If c41 = 0 Then
                                        .Value = 'Factures'
                                        c41 = 1
                                End If
                        Case 10:
                                If c10 = 0 Then
                                        .Value = 'Reste A FACTURER'
                                        c10 = 1
                                End If
                End Select
        End With
Next i

Cliquez pour agrandir...