Excel - Une macro pour obtenir les codes numériques équivalents pour les couleurs

Cette macro vous permet d’obtenir un code couleur, vous pouvez le modifier à votre convenance:

 Sub distri_color () Dim Lign As Integer For Lign = 1 à 12 feuilles de travail (1) .Range ("C" & Lign) .Value = Feuilles de travail (1) .Range ("B" & Lign) .Interior.Color Next Lign End Sous 
  • 'Remplacez 12 par le nombre de lignes que vous souhaitez traiter.
  • 'Remplacez "C" par la colonne que vous voulez utiliser pour le résultat (code de couleur).
  • 'Remplacez "B" par la colonne contenant la couleur à filtrer.

Article Précédent Article Suivant

Les Meilleurs Conseils