Code RVB

Geoff -  
 Geoffroy -
Bonjour,
Comment créer une macro ou formule pour afficher la couleur d'après la palette RVB?
Ces nombres inscrit dans des colonnes,
ROUGE....VERT....BLEU
Sans passer par
'format cellule/autres couleurs/personnalisé'

Merci
Cordialement

Geoffroy

Configuration: Android / Chrome 93.0.4577.82

4 réponses

  1. Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   1 476
     
    Bonjour,
    Vous avez un exemple pour MAJ couleur [Color] en RGB selon la palette des couleurs [Monteurs] le nom de la macro est : [Sub CodeCouleurRGB()] et vous avez une deuxième comme démo exemple avec couleur fond en (D2) et report en (E2) le nom de la macro est : Sub Couleur()
    Le fichier ; https://www.cjoint.com/c/KItq6OKuIQn

    1
    1. Geoffroy
       
      Bonjour,
      mais c'est l'inverse que je voudrais :)
      exemple:
      R ..........,V..., B ....................La couleur obtenue par ces nombres et qui s'affiche.
      125.., 250...,12 ............................= VERT

      125, 250 et 12 sont les nombres que je mets dans trois colonnes Excel.
      merci
      0
  2. Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   1 476
     
    Bonjour,
    Et bien vous avez tout dans le code vous adaptez pour avoir la liste en colonne (R,V,B).
    Ligne de code:
    Cells(n, 1).Offset(0, 4) = R & ", " & V & ", " & B

    ou en 3 colonnes:
    Cells(n, 1).Offset(0, 4) = R 
    Cells(n, 1).Offset(0, 5) = V
    Cells(n, 1).Offset(0, 6) = B


    1
    1. Geoffroy
       
      Bonjour
      Merci beaucoup de ton aide

      Désolé mais c'est la couleur que je veux obtenir d'après ces 3 colonnes de données existantes (R , V, B).

      merci
      cordialement
      0
    2. Geoffroy
       
      Bonjour,
      j'ai récupéré vos codes.
      mais peut-être il y a plus simple ?
      voilà ça fonctionne
      merci

      ' mis le total de vôtre opération : (= R + V * 256 + B * 65536)
      ' dans la colonne 9 (I)
      'et la couleur s'affiche en colonne 10 (j)

      Sub Couleur()
      Dim CoulLong&
      For n = 2 To 500

      CoulLong = Cells(n, 9)
      Cells(n, 10).Interior.Color = CoulLong

      Next n
      End Sub


      0
  3. Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   1 476
     
    Bonjour Geoff,
    Ce n'est pas sur ce que vous dites : je vous propose d’utiliser votre code pour récupérer les couleurs de la colonne {Monteurs} et de la reproduire à côté de la colonne [D], peut être des différences de ton

    1
    1. Geoffroy
       
      Bonjour,
      Je n'ai pas tout compris.
      Les couleurs obtenues correspondent bien aux chiffres R,V,B.
      j'ai vérifié, sur quelques unes, avec clic droit 'Format Cellule/remplissage/Autres couleurs/Personnalisées'.


      Cordialement
      merci
      0
  4. Raymond PENTIER Messages postés 58211 Date d'inscription   Statut Contributeur Dernière intervention   17 480
     
    Dans quel logiciel : Photoshop, Photofiltre, un autre ?
    0
    1. Geoff
       
      Bonjour
      Oups désolé...
      Excel
      Merci
      0