Recuperer Interior.Color dans cellules
jean-luc Guitard
Afin que les utilisateurs du programme puissent colorier un planning à leur gout, je souhaiterai colorier les cellules
A1, A2, A3
serait-il possible en VBA de récupérer les codes couleurs des ces différentes cellules 'Selection.Interior.Color
=Code couleur
par ex :comment récupérer ce code ( RGB(255, 102, 0))?
Il faudrait que la couleur des cellules soit identique à la reproduction sur le planning
merci d'avance et bonne journée
cordialement
LSteph
t'as même pas besoin de connaître ce fâmeux rgb il suffit de récpèrer
celui de a1, a2 ou a3
ActiveCell.Interior.Color = [a2].Interior.Color
--
LSteph
isabelle
tu peut aussi utiliser
Selection.Interior.ColorIndex
isabelle
Le 2011-01-20 08:33, jean-luc Guitard a �crit :
> Bonjour,
> Afin que les utilisateurs du programme puissent colorier un planning �
> leur gout, je souhaiterai colorier les cellules A1, A2, A3
> serait-il possible en VBA de r�cup�rer les codes couleurs des ces
> diff�rentes cellules 'Selection.Interior.Color =Code couleur
> par ex :comment r�cup�rer ce code ( RGB(255, 102, 0))?
> Il faudrait que la couleur des cellules soit identique � la reproduction
> sur le planning
> merci d'avance et bonne journ�e
> cordialement
>
LSteph
on pourrait faire cela aussi avec colorindex pour plus standard
sinon pour le rgb
tout de même à moins que cela n'ait changé dans les versions plus
récentes il me semble que l'étendue des RGB s'applique aux shapes
uniquement
pas aux cellules.
Cordialement.
--
LSteph
> > cordialement- Masquer le texte des messages précédents -
>
> - Afficher le texte des messages précédents -
Jacquouille
Par un beau matin ensoleillé, notre PC et moi pondîmes ce mini chef d'oeuvre
de la littérature grande bretonne et VBAtième.
La réponse apparaît sous forme de msgbox et donnera le num de la couleur
dans la palette d'origine.
pour ce qui est du RGB, faudrait demander à Modeste.
Allo Gilbert ?
Ici Eglantine, à vous! parlez!.
Sub chercher_la_couleur()
Dim xx As Variant
xx = Selection.Interior.ColorIndex
MsgBox xx
End sub
--
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"jean-luc Guitard" <jl.gu...@wanadoo.fr> a écrit dans le message de groupe
de discussion : 4d3839a9$0$7714$ba4a...@reader.news.orange.fr...
jean-luc Guitard
ActiveCell.Interior.Color = [a2].Interior.Color
La couleur retransmise n'est pas identique
Pour la cellule j'ai (R 123 , V 249 , B 123) pour la couleur reproduite dans le planning (R 153 , V 204 , B 0)
C'est identique pour les autres couleurs
pour Isabelle Selection.Interior.ColorIndex
ne permet pas assez de ton
merci
"isabelle" a écrit dans le message de groupe de discussion : ih9etp$8j5$1...@speranza.aioe.org...
bonjour jean-luc,
tu peut aussi utiliser
Selection.Interior.ColorIndex
isabelle
Le 2011-01-20 08:33, jean-luc Guitard a écrit :
> Bonjour,
> Afin que les utilisateurs du programme puissent colorier un planning à
> leur gout, je souhaiterai colorier les cellules A1, A2, A3
> serait-il possible en VBA de récupérer les codes couleurs des ces
> différentes cellules 'Selection.Interior.Color =Code couleur
> par ex :comment récupérer ce code ( RGB(255, 102, 0))?
> Il faudrait que la couleur des cellules soit identique à la reproduction
> sur le planning
> merci d'avance et bonne journée
> cordialement
>
jean-luc Guitard
j'ai dis des conneries c'est identiques
j'avais oublié d'enlever une ligne
merci à tous
"Jacquouille" a écrit dans le message de groupe de discussion : 4d384409$0$14247$ba62...@news.skynet.be...
Jacquouille
Tu pourrais demander (gentiment) � Isabelle de te bricoler ma macro pour que
le msgbox te donne les trois r�f�rences RGB.
C'est tr�s faisable, mais j'ignore la syntaxe. -(
--
Jacquouille
" Le vin est au repas ce que le parfum est � la femme."
"jean-luc Guitard" <jl.gu...@wanadoo.fr> a �crit dans le message de groupe
de discussion : 4d38470d$0$32431$ba4a...@reader.news.orange.fr...
> Re bonjour
> j'ai dis des conneries c'est identiques
> j'avais oubli� d'enlever une ligne
> merci � tous
>
> "Jacquouille" a �crit dans le message de groupe de discussion :
> 4d384409$0$14247$ba62...@news.skynet.be...
>
> Bonjour
> Par un beau matin ensoleill�, notre PC et moi pond�mes ce mini chef
> d'oeuvre
> de la litt�rature grande bretonne et VBAti�me.
> La r�ponse appara�t sous forme de msgbox et donnera le num de la couleur
> dans la palette d'origine.
> pour ce qui est du RGB, faudrait demander � Modeste.
> Allo Gilbert ?
> Ici Eglantine, � vous! parlez!.
>
> Sub chercher_la_couleur()
>
> Dim xx As Variant
> xx = Selection.Interior.ColorIndex
> MsgBox xx
> End sub
> --
> Jacquouille
>
> " Le vin est au repas ce que le parfum est � la femme."
>
> "jean-luc Guitard" <jl.gu...@wanadoo.fr> a �crit dans le message de
> groupe
> de discussion : 4d3839a9$0$7714$ba4a...@reader.news.orange.fr...
>> Bonjour,
>> Afin que les utilisateurs du programme puissent colorier un planning �
>> leur gout, je souhaiterai colorier les cellules A1, A2, A3
>> serait-il possible en VBA de r�cup�rer les codes couleurs des ces
>> diff�rentes cellules 'Selection.Interior.Color =Code couleur
>> par ex :comment r�cup�rer ce code ( RGB(255, 102, 0))?
>> Il faudrait que la couleur des cellules soit identique � la reproduction
>> sur le planning
>> merci d'avance et bonne journ�e
>> cordialement
>>
>
isabelle
a = Right("000000" & Hex(Cells(1, 1).Interior.Color), 6)
R = Evaluate("HEXDEC(""" & Right(a, 2) & """)")
G = Evaluate("HEXDEC(""" & Mid(a, 3, 2) & """)")
B = Evaluate("HEXDEC(""" & Left(a, 2) & """)")
MsgBox R & "-" & G & "-" & B
isabelle
Le 2011-01-20 09:44, Jacquouille a écrit :
> Bonjour
> Tu pourrais demander (gentiment) à Isabelle de te bricoler ma macro pour
> que le msgbox te donne les trois références RGB.
> C'est très faisable, mais j'ignore la syntaxe. -(
>
Jacquouille
Erreur d'exécution '13'
Incompatibilité d'humeur
Bon, tu vas dire que c'est toujours de la couleur....-)
--
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"isabelle" <i...@v.org> a écrit dans le message de groupe de discussion :
ih9k2s$knc$1...@speranza.aioe.org...
isabelle
isabelle
Le 2011-01-20 11:46, Jacquouille a écrit :
> Le salaud me colorie en jaune la derničre ligne (msgbox ...)
Jacquouille
Exactement le même résultat.
Erreur 13 et incompatible .....
Je me demande si "il" ne se moque pas de nous. -)
--
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"isabelle" <i...@v.org> a écrit dans le message de groupe de discussion :
ih9rnu$7he$1...@speranza.aioe.org...
> essaie celui-ci : http://cjoint.com/?2busI5koSKQ
>
> isabelle
>
>
>
> Le 2011-01-20 11:46, Jacquouille a écrit :
>> Le salaud me colorie en jaune la dernière ligne (msgbox ...)
isabelle
et aussi remplace le titet (-) par une virgule
MsgBox R & ", " & G & ", " & B
ps/ je ne me suis pas servi de la variable ci, tu peut donc effacer ces lignes
isabelle
LSteph
@+
--
LSteph
(Jacquouille ca ne se fume pas les Eglantines)
"jean-luc Guitard" <jl.gu...@wanadoo.fr> a �crit dans le message de
news:4d38470d$0$32431$ba4a...@reader.news.orange.fr...
> Re bonjour
> j'ai dis des conneries c'est identiques
> j'avais oubli� d'enlever une ligne
> merci � tous
>
> "Jacquouille" a �crit dans le message de groupe de discussion :
> 4d384409$0$14247$ba62...@news.skynet.be...
>
> Bonjour
> Par un beau matin ensoleill�, notre PC et moi pond�mes ce mini chef
> d'oeuvre
> de la litt�rature grande bretonne et VBAti�me.
> La r�ponse appara�t sous forme de msgbox et donnera le num de la couleur
> dans la palette d'origine.
> pour ce qui est du RGB, faudrait demander � Modeste.
> Allo Gilbert ?
> Ici Eglantine, � vous! parlez!.
>
> Sub chercher_la_couleur()
>
> Dim xx As Variant
> xx = Selection.Interior.ColorIndex
> MsgBox xx
> End sub
> --
> Jacquouille
>
> " Le vin est au repas ce que le parfum est � la femme."
>
> "jean-luc Guitard" <jl.gu...@wanadoo.fr> a �crit dans le message de
> groupe
> de discussion : 4d3839a9$0$7714$ba4a...@reader.news.orange.fr...
>> Bonjour,
>> Afin que les utilisateurs du programme puissent colorier un planning �
>> leur gout, je souhaiterai colorier les cellules A1, A2, A3
>> serait-il possible en VBA de r�cup�rer les codes couleurs des ces
>> diff�rentes cellules 'Selection.Interior.Color =Code couleur
>> par ex :comment r�cup�rer ce code ( RGB(255, 102, 0))?
>> Il faudrait que la couleur des cellules soit identique � la reproduction
>> sur le planning
>> merci d'avance et bonne journ�e
>> cordialement
>>
>
Jacquouille
mais je patauge toujours avec les RGB.
--
Jacquouille
" Le vin est au repas ce que le parfum est � la femme."
"LSteph" <lecoc...@frite.fr> a �crit dans le message de groupe de
discussion : ih9vrc$gsh$1...@speranza.aioe.org...
Jacquouille
Toujours idem
J'ai enlev� les trucs inutiles et d�clar� les var en variant.
Vu qu'il bloquait sur la ligne Msgbox, j'ai mis une ' avant, puis j'ai fait
une ligne msgbox A qui me donne FFFFCC comme r�ponse.
Ensuite, quand je remplace msgbox A par Msgbox r, il n'en veut pas. En
cliquant sur r, il me dit erreur 2029.
Voil� o� j'en suis
--
Jacquouille
" Le vin est au repas ce que le parfum est � la femme."
"isabelle" <i...@v.org> a �crit dans le message de groupe de discussion :
ih9t36$aoh$1...@speranza.aioe.org...
> peut tu l'ex�cuter en pas � pas et v�rifier les valeurs des variables R, G
> et B
> et aussi remplace le titet (-) par une virgule
> MsgBox R & ", " & G & ", " & B
>
> ps/ je ne me suis pas servi de la variable ci, tu peut donc effacer ces
> lignes
>
> isabelle
>
> Le 2011-01-20 12:52, Jacquouille a �crit :
>> Re
>> Exactement le m�me r�sultat.
isabelle
isabelle
Le 2011-01-20 14:47, Jacquouille a �crit :
michdenis
Est-ce possible que la macro complémentaire "Utilitaire d'analyse"
ne soit pas cochée ?
MichD
--------------------------------------------
isabelle
isabelle
Le 2011-01-20 14:54, isabelle a écrit :
> sur la feuille de calcul, la fonction HEXDEC est bien présente dans la
> liste de tes function ?
>
> isabelle
>
> Le 2011-01-20 14:47, Jacquouille a écrit :
>> Re
>> Toujours idem
>> J'ai enlevé les trucs inutiles et déclaré les var en variant.
>> Vu qu'il bloquait sur la ligne Msgbox, j'ai mis une ' avant, puis j'ai
>> fait
>> une ligne msgbox A qui me donne FFFFCC comme réponse.
>> Ensuite, quand je remplace msgbox A par Msgbox r, il n'en veut pas. En
>> cliquant sur r, il me dit erreur 2029.
>> Voilà où j'en suis
>>
>>
isabelle
Jacquouille
Voici la preuve par A+B que tu devrais rester ici et ne plus aller te
commettre en des lieux autres que le MPFE.
ta boule de cristal a décelé la vérité.
j'ai acheté un nouveau PC en ce début d'année et installé XL2003 avec office
2007.
Bill n'a pas prévu d'installer ces macros complémentaires d'office.
Bravo d'y avoir pensé
Merci à isabelle car sa macro fonctionne très bien. merci pour sa patience.
Si j'ai trop de chocolats un jour, je lui en enverrai. -)
Encore merci
--
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"michdenis" <mich...@hotmail.com> a écrit dans le message de groupe de
discussion : iha41e$sfn$1...@speranza.aioe.org...
isabelle
isabelle
Jacquouille
Refile-moi ton adresse en BAL perso ....
--
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"isabelle" <i...@v.org> a écrit dans le message de groupe de discussion :
iha76j$3ks$1...@speranza.aioe.org...