Code RVB

Fermé
Geoff - 19 sept. 2021 à 11:45
 Geoffroy - 21 sept. 2021 à 10:16
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
A voir également:

4 réponses

Le Pingou Messages postés 12041 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 22 avril 2024 1 426
19 sept. 2021 à 19:06
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
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
Le Pingou Messages postés 12041 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 22 avril 2024 1 426
Modifié le 20 sept. 2021 à 11:07
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
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
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
Le Pingou Messages postés 12041 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 22 avril 2024 1 426
20 sept. 2021 à 22:06
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
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
Raymond PENTIER Messages postés 58393 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 23 avril 2024 17 096
19 sept. 2021 à 18:23
Dans quel logiciel : Photoshop, Photofiltre, un autre ?
0
Bonjour
Oups désolé...
Excel
Merci
0