Transformer couleur en valeur numérique

Publié par Furtif - Dernière mise à jour le 12 novembre 2009 à 14:42 par marlalapocket
Cette macro permet d'obtenir le code d'une couleur, pour traitement ultérieur selon votre besoin
Sub distri_couleur()
  Dim i
  For i = 1 To 12
    Worksheets(1).Range("C" & i).Value = Worksheets(1).Range("B" & i).Interior.Color
  Next i
End Sub
'Remplacer le 10 par le nombre de lignes que vous souhaitez traiter.
'Remplacer le "I" par la colonne que vous souhaitez utiliser pour le résultat (code de couleur).
'Remplacer le "B" par la colonne qui contient les couleurs à filtrer.