Localisation de l'index des code couleur

Salut,

si tu tapes colorindex dans l'editeur vba et puis F1 pour l'aide , tu auras les couleurs

Et si tu es dans cet éditeur, colle ceci:

(ds un nouveau classeur )

Sub ColorIndexList()
ActiveWindow.zoom = 75
On Error GoTo Done
Range('A1').Select
ActiveCell.Formula = 'Couleur'
ActiveCell.Offset(0, 1).Formula = 'Code couleur'
ActiveCell.Offset(1, 0).Activate
For mnum = 1 To 56
With Selection.Interior
.ColorIndex = mnum
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
ActiveCell.Offset(0, 1) = mnum
ActiveCell.Offset(1, 0).Select
Next mnum
Done:
Range('A1').Select
End Sub

Bonsoir à tous, vite fait avant de décrocher pour ce soir

Pour votre information il y a un moteur de recherche ici, vous auriez trouvé ceci :

=> Lien supprimé

Qui contient entre autre :


Ou encore ceci :

Sub TheColorIndex()
Dim i As Byte

    For i = 1 To 56
        With Cells(i, 1)
            .Interior.ColorIndex = i
            .Value = i
        End With
    Next

End Sub
 

Cliquez pour agrandir...

Bonne nuit à tous
@+Thierry