[Résolu][Calc] Code RVB & Couleurs

[Loorant]

Bonsoir,

En prenant en compte les cellules faisant référence au code R, V & B, j'aimerai connaître la fontion, si cela est possible, permettant d'obtenir la couleur correspondante dans la colonne ECHANTILLON, en partant du code RVB.

Loorant

[luky-luke]

Bonjour Loorant et bienvenu sur le forum,

Le code ci-dessous devrait convenir :

Code : Tout sélectionner

option explicit
Sub Main
Dim oDoc As Object, oFeuille As Object, oCellule As Object
Dim Rouge as String, Vert As String, Bleu As String, Echantillon as String
Dim nCoul As Long
Dim i As integer
oDoc = ThisComponent
oFeuille = oDoc.Sheets.GetByName("Couleur_RVB")
	For i = 3 to 414
		Rouge = oFeuille.GetCellRangeByName("A" & i).String
		Vert = oFeuille.GetCellRangeByName("B" & i).String
		Bleu = oFeuille.GetCellRangeByName("C" & i).String
		oCellule = oFeuille.GetCellRangeByName("E" & i)
		nCoul = oCellule.CellBackColor
		nCoul = RGB(Rouge,Vert,Bleu)
		oCellule.CellBackColor = nCoul
		Echantillon = oFeuille.GetCellRangeByName("D" & i).String
		Print Echantillon
	Next i
End Sub

Cordialement
Luke

[alhazred]

Bonsoir,

Bonne macro, luky-luke, mais les données du classeur sont de haute fantaisie Que penser d'un rouge primaire défini par 0.0.0 et tutti quanti ? ça sent le tri sur une seule colonne !!!

À toutes fins utiles, un dictionnaire des couleurs.

[Loorant]

Génial !!!!!!!

Merci beaucoup pour la macro !

[bm92]

Bonjour,
Les noms et valeurs de couleurs ont probablement été mal recopiés de la page Liste de couleurs de Wikipedia.

[gerard24]

Bonjour,

Pas directement lié à la question, mais le fichier joint contient :

1. La macro du livre "Programmation OpenOffice.org 3" de B. Marcelly (AKA bm92, bonjour bernard) et L. Godard. (à laquelle je n'ai pas touché une virgule)
2. Une macro "coloriage" qui colorie la cellule en fonction des valeurs RGB contenues dans la cellule. (modifiée par mes soins -par un sagouin ?-)

• La macro d'origine ne pouvait être lancée depuis un bouton. Il fallait la lancer depuis l'EDI ou un raccourci clavier, et comme les raccourcis clavier ne sont pas "transportable"...
• En plus j'ai eu la bonne idée de calculer les valeurs RGB avec des fonctions volatiles (DECALER, LIGNE, COLONNE) en feuille 2. J'ai donc désactivé le calcul automatique durant l'exécution.
  Sinon on a la temps d'aller boire une bière...

couleurs.ods

Aussi pour signaler la très pratique extension RGB de C. Hervé.

A+

[Churay]

Bonjour

Merci Gérard, comme j'ai besoin en ce moment de ce genre d'infos, en décimal et/ou hexa, j'ai modifié ton tableur en rajoutant quelques colonnes et les formules qui vont bien (comme quoi, j'utilise parfois un tableur comme un tableur et non comme un conteneur de macros )

couleurs_2.ods

[gerard24]

Bonjour,

On peut faire l'inverse et calculer le long puis l'hexadécimal, cela fait moins de colonnes.
long =65536*D2+256*E2+F2
décimal =DECHEX(long;6)

Puisque tu te mets aux formules, je me vois obligé de me mettre au basic.

Rajoutons au code :

Code : Tout sélectionner

maFeuille.getCellByPosition(6,0).string="long"
maFeuille.getCellByPosition(7,0).string="hexa"
....
 maFeuille.getCellByPosition(6,x+1).value=c
 maFeuille.getCellByPosition(7,x+1).string="&H" & Hex(c)

et on obtiens les valeurs 'long' et 'hexa'.

Petit problème : Je ne sais pas comment avoir les 0 non significatifs. Il n'y a pas de 2ème argument pour Hex() en basic ?

Ajout : Bon. J'ai trouvé ça : Code : Tout sélectionner h = Hex(c) While len(h)<6 h="0" & h Wend maFeuille.getCellByPosition(7,x+1).string = Ucase("&H" & h) J'en ai profité pour mettre en majuscules. Il y a peut-être mieux comme codage, mais cela m'a l'air de fonctionner.

A+

[Loorant]

Merci à toute la communauté pour vos réponses.