Changement couleur élipse au clic
Résolu
ath80
Messages postés
208
Date d'inscription
Statut
Membre
Dernière intervention
-
ath80 Messages postés 208 Date d'inscription Statut Membre Dernière intervention -
ath80 Messages postés 208 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Dans un fichier excel, je souhaiterai qu'au simple clic sur une éllipse, celle-ci change de couleur.
Dans mon cas, il y aura un plan avec une multitude d'éllipses. Au simple clic, je voudrais modifier la couleur d'une ou plusieurs éllipse.
https://www.cjoint.com/c/FKhpWgtCu1W
Dans ce fichier, on retrouve à droite les 4 couleurs que je souhaiterai pour une seule et même éllipse (transparant, vert, orange, rouge).
Quelqu'un pourrait-il m'aider à réaliser ceci ?
Merci d'avance.
Dans un fichier excel, je souhaiterai qu'au simple clic sur une éllipse, celle-ci change de couleur.
Dans mon cas, il y aura un plan avec une multitude d'éllipses. Au simple clic, je voudrais modifier la couleur d'une ou plusieurs éllipse.
https://www.cjoint.com/c/FKhpWgtCu1W
Dans ce fichier, on retrouve à droite les 4 couleurs que je souhaiterai pour une seule et même éllipse (transparant, vert, orange, rouge).
Quelqu'un pourrait-il m'aider à réaliser ceci ?
Merci d'avance.
A voir également:
- Changement couleur élipse au clic
- Changement dns - Guide
- Excel cellule couleur si condition texte - Guide
- Boite a couleur - Télécharger - Divers Photo & Graphisme
- Somme si couleur - Guide
- Changer la couleur de la barre des taches - Guide
8 réponses
Bonjour à tous
Un petit exemple (macro) pour modifier la coulmeur d'une forme
http://www.cjoint.com/c/FKpk0XVayuK
Cdlmnt
Un petit exemple (macro) pour modifier la coulmeur d'une forme
http://www.cjoint.com/c/FKpk0XVayuK
Cdlmnt
Bonjour,
Merci pour la réponse ! Maintenant il faut que je l'adapte à mon cas.
Je pensais qu'il suffisait de modifier les nombres et qu'il y avait un code couleur (j'ai cherché le code couleur sur internet) mais quand je change les numéros ça ne fonctionne pas. Quand je clique sur l'étoile plus rien ne se passe.
Const cbr = 19
Const car = 55
Const cor = 13
Const cbl = 9
De plus, est-il possible d'avoir un fond transparent pour l'un des 4 états ?
Merci.
Merci pour la réponse ! Maintenant il faut que je l'adapte à mon cas.
Je pensais qu'il suffisait de modifier les nombres et qu'il y avait un code couleur (j'ai cherché le code couleur sur internet) mais quand je change les numéros ça ne fonctionne pas. Quand je clique sur l'étoile plus rien ne se passe.
Const cbr = 19
Const car = 55
Const cor = 13
Const cbl = 9
De plus, est-il possible d'avoir un fond transparent pour l'un des 4 états ?
Merci.
Vois ceci
http://www.cjoint.com/c/FKprILmliMK
PS. le code couleur est écrit dans l'étoile
Cdlmnt
http://www.cjoint.com/c/FKprILmliMK
PS. le code couleur est écrit dans l'étoile
Cdlmnt
Merci !
Dans un premier temps, le code couleur que j'avais trouvé sur le net n'était pas le même.
J'ai adapté le fichier à mon attente:
https://www.cjoint.com/c/FKqjmOMgjZD
Il y a surement une manip que je ne réalise pas car la couleur ne change plus lorsque je clique sur l'étoile ...
Dans un second temps, je constate qu'il n'est pas possible d'obtenir un fond de forme transparent avec cette méthode ?
Dans un premier temps, le code couleur que j'avais trouvé sur le net n'était pas le même.
J'ai adapté le fichier à mon attente:
https://www.cjoint.com/c/FKqjmOMgjZD
Il y a surement une manip que je ne réalise pas car la couleur ne change plus lorsque je clique sur l'étoile ...
Dans un second temps, je constate qu'il n'est pas possible d'obtenir un fond de forme transparent avec cette méthode ?
J'ai réussi à faire ceci pour une forme:
https://www.cjoint.com/c/FKribz50MLp
J'ai essayé d'appliquer celle-ci à la forme 2. J'ai changé le "1" en "2" mais ça ne fonctionne pas :
ActiveSheet.Shapes(2).Select
Selection.ShapeRange(2).Fill.ForeColor.SchemeColor = coul
Ensuite, je souhaiterai appliquer la macro du fichier à une multitude de formes. Je voudrais changer la couleur de chaque forme indépendemment. Serait-il possible de réaliser une macro la plus courte possible afin de ne pas copier 100 fois la macro si j'ai 100 formes. Il faut certainement ajouter des n ou autre chose mais je ne sais pas comment procéder ...
https://www.cjoint.com/c/FKribz50MLp
J'ai essayé d'appliquer celle-ci à la forme 2. J'ai changé le "1" en "2" mais ça ne fonctionne pas :
ActiveSheet.Shapes(2).Select
Selection.ShapeRange(2).Fill.ForeColor.SchemeColor = coul
Ensuite, je souhaiterai appliquer la macro du fichier à une multitude de formes. Je voudrais changer la couleur de chaque forme indépendemment. Serait-il possible de réaliser une macro la plus courte possible afin de ne pas copier 100 fois la macro si j'ai 100 formes. Il faut certainement ajouter des n ou autre chose mais je ne sais pas comment procéder ...
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour à tous,
Autre proposition.
Tes formes modèles doivent avoir un nom qui commence par "couleur".
Les autres formes doivent avoir chacune un nom différent (si tu copies-colles une forme elle est présente 2 fois avec le même nom et forcément ça fonctionne moins bien)
Cliquer sur le modèle voulu (pas d'avertissement de bonne sélection, je pense que ça aurait été gonflant à l'usage) puis sur les formes où appliquer le modèle.
La sélection d'une cellule annule la pré-sélection du modèle, ce qui permet de pouvoir faire une autre action au clic.
https://www.cjoint.com/c/FKprAKCecQW
eric
Autre proposition.
Tes formes modèles doivent avoir un nom qui commence par "couleur".
Les autres formes doivent avoir chacune un nom différent (si tu copies-colles une forme elle est présente 2 fois avec le même nom et forcément ça fonctionne moins bien)
Cliquer sur le modèle voulu (pas d'avertissement de bonne sélection, je pense que ça aurait été gonflant à l'usage) puis sur les formes où appliquer le modèle.
La sélection d'une cellule annule la pré-sélection du modèle, ce qui permet de pouvoir faire une autre action au clic.
https://www.cjoint.com/c/FKprAKCecQW
eric
Bonjour,
Merci pour ta réponse.
C'est une variante de ce que je voudrais faire mais j'utiliserai cette solution en cas de dernier recours. Je souhaiterai qu'au clic sur une même forme l'état change directement (voir fichier post 10). Il faut juste que je trouve comment adapter le code lorsqu'il y a une multitude de formes.
Merci pour ta réponse.
C'est une variante de ce que je voudrais faire mais j'utiliserai cette solution en cas de dernier recours. Je souhaiterai qu'au clic sur une même forme l'état change directement (voir fichier post 10). Il faut juste que je trouve comment adapter le code lorsqu'il y a une multitude de formes.
Tout à fait. Je savais que seul une macro pourrait m'aider mais je ne sais pas comment procéder.