Transformer couleur en valeur numérique

Sub distri_couleur() Dim Lign As Integer For Lign = 1 To 12 Worksheets(1).Range("C" & Lign).Value = Worksheets(1).Range("B" & Lign).Interior.Color Next Lign End Sub'Remplacer le 12 par le nombre de lignes que vous souhaitez traiter.
'Remplacer le "C" 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.
Ce document intitulé « Transformer couleur en valeur numérique » issu de Comment Ça Marche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.