Transformer couleur en valeur numérique

Dernière mise à jour le 12 novembre 2009 à 14:42 par marlalapocket
Publié par Furtif
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.
Meilleures réponses pour « Transformer couleur en valeur numérique » dans :
L'analogique et le numérique VoirQuelle est la différence entre analogique et numérique ? Les phénomènes qui nous entourent sont quasiment tous continus, c'est-à-dire que lorsque ces phénomènes sont quantifiables, ils passent d'une valeur à une autre sans discontinuité. Ainsi,...
VBScript - Les fonctions de chaînes de caractères VoirLes fonctions de chaînes de caractères Fonction Description Filter(InputStrings, Value[, Include[, Compare]]) Sélectionne des chaînes de caractères parmi un tableau de chaînes...
Javascript - L'objet Math VoirLes particularités de l'objet Math L'objet Math est, comme vous l'imaginez, un objet qui a de nombreuses méthodes et propriétés permettant de manipuler des nombres et qui contient des fonctions mathématiques courantes. Quelque soit la méthode ou la...