OVH Cloud OVH Cloud

Recuperer Interior.Color dans cellules

22 réponses
Avatar
jean-luc Guitard
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

10 réponses

1 2 3
Avatar
Jacquouille
Re
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" a écrit dans le message de groupe de discussion :
ih9rnu$7he$
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 ...)
Erreur d'exécution '13'
Incompatibilité d'humeur
Bon, tu vas dire que c'est toujours de la couleur....-)
Avatar
isabelle
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.
Erreur 13 et incompatible .....
Je me demande si "il" ne se moque pas de nous. -)

Avatar
LSteph
l'important c que tu aies ta solution.

@+

--
LSteph

(Jacquouille ca ne se fume pas les Eglantines)


"jean-luc Guitard" a écrit dans le message de
news:4d38470d$0$32431$
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$

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" a écrit dans le message de
groupe
de discussion : 4d3839a9$0$7714$
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




Avatar
Jacquouille
....bien séchées, les feuilles ont un parfum délicieux ...
mais je patauge toujours avec les RGB.

--
Jacquouille

" Le vin est au repas ce que le parfum est à la femme."

"LSteph" a écrit dans le message de groupe de
discussion : ih9vrc$gsh$
l'important c que tu aies ta solution.

@+

--
LSteph

(Jacquouille ca ne se fume pas les Eglantines)


"jean-luc Guitard" a écrit dans le message de
news:4d38470d$0$32431$
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$

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" a écrit dans le message de
groupe
de discussion : 4d3839a9$0$7714$
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







Avatar
Jacquouille
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


--
Jacquouille

" Le vin est au repas ce que le parfum est à la femme."

"isabelle" a écrit dans le message de groupe de discussion :
ih9t36$aoh$
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.
Erreur 13 et incompatible .....
Je me demande si "il" ne se moque pas de nous. -)

Avatar
isabelle
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


Avatar
michdenis
Bonjour,

Est-ce possible que la macro complémentaire "Utilitaire d'analyse"
ne soit pas cochée ?



MichD
--------------------------------------------
Avatar
isabelle
si tu essaies cette formule =HEXDEC("FFFFFFFFFF") le résultat devrait être -1

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


Avatar
isabelle
j'ai apporter un petite modification,
http://cjoint.com/?2buvhOaOpHt
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


Avatar
Jacquouille
Mon Bon Denis

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" a écrit dans le message de groupe de
discussion : iha41e$sfn$
Bonjour,

Est-ce possible que la macro complémentaire "Utilitaire d'analyse"
ne soit pas cochée ?



MichD
--------------------------------------------

1 2 3