Macro : couleur de l'objet contenant la macro

Résolu
thocat Messages postés 23 Date d'inscription   Statut Membre Dernière intervention   -  
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour tout le monde voilà le problème,

J'ai créé mes macro pour les écritures dans les cellules et voudrai mettre en couleur de fond la couleur du rectangle ou est contenue ma macro car j ai plusieurs code couleur à mettre. Quel est le code écriture pour cela? Merci d'avance
A voir également:

4 réponses

Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Bonjour,

C'est vraiment pas clair du tout !!!

De quoi parles-tu :
- des macros ou des formules ?
- du rectangle ou de la cellule ?
0
thocat Messages postés 23 Date d'inscription   Statut Membre Dernière intervention  
 
Je parle de macro.

J'ai créé une macro pour inscrire du texte dans les cellules
Cette macro je l'ai affecter à un rectangle.

Ce que je voudrai c'est que dans les cellules ou sont inscrites les textes de la macro il y ai la même couleur que celle du rectangle en question.

Est ce que c'est plus clair.
0
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
Bonjour à tous les deux

Je ne sais pas si j'ai tout compris
http://www.cjoint.com/c/EGrmEzRvOGG

Cdlmnt
0
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Re,

Quelque chose comme ça :
  ActiveSheet.Range("A1").Interior.Color = ActiveSheet.Shapes("Rectangle 1").Fill.ForeColor.RGB

0
Wh!P
 
Bonjour,
Je souhaiterai qu'un objet change de couleur en fonction d'un pourcentage (comme sur les carte du taux de mortalité par pays eu Europe par exemple) mais je ne sais pas faire de macro... Est-ce que quelqu'un aurai une idée pour m'aider, je suis sur Excel 2013 ?

Cordiales salutations

Wh!P
0
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
Bonjour

Un exemple
http://www.cjoint.com/c/EGypt7HWa1R

Cdlmnt
0