Menu
Donnez votre avis

Transformer couleur en valeur numérique

Posez votre question
Cette macro permet d'obtenir le code d'une couleur, pour traitement ultérieur selon votre besoin
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.
Jean-François Pillou

Cet article est régulièrement mis à jour par des experts sous la direction de Jean-François Pillou, fondateur de CommentCaMarche et directeur délégué au développement numérique du groupe Figaro.

En savoir plus sur l'équipe CCM

Article original publié par Carlos Villagómez. Traduit par Furtif. Dernière mise à jour le 21 septembre 2011 à 12:37 par pijaku.

Ce document intitulé «  Transformer couleur en valeur numérique  » issu de CommentCaMarche (https://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.

Ajouter un commentaire

Commentaires

Commenter la réponse de Utilisateur anonyme