Localisation de l'index des code couleur

[Kaverne]

Bonjour,

j'ai bien compris que rouge = 3 et vert fluo = 4 mais je cherche les autres couleures sans avoir a toutes les tester....
Je ne trouve pas dans l aide de excel, si quelqu'un pouvait eclairer ma lanterne.

Merci d'avance et j'espere avoir bien respecter les regles du forum dans ce message.

 

[pat1545.]

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

 

[_Thierry]

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
 

Bonne nuit à tous
@+Thierry