CelluleA1feuille2 = green si celluleaA1feuille couleur verte
Résolu
mikamadeus
Messages postés
44
Date d'inscription
Statut
Membre
Dernière intervention
-
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai deux feuilles dont une qui recapitule des performances traduite par des couleur de cellules ( verte, orange, rouge ) et une deuxieme feuille qui recupere ces couleur et qui sert de base de donnée pour des graphiques.
Comment faire pour que sur ma deuxieme feuille les cases data se fasse de la facon suivante.
Si cellule A1 feuille 1 couleur verte alors cellule A1 feuille 2 'green'
.............A2........................rouge................A2.............'red'
Je ne penses pas que ce soit compliqué, mais ayant lu des post, je bloque un peu car mes couleurs sont rentrées manuellement.
Merci pour votre aide
J'ai deux feuilles dont une qui recapitule des performances traduite par des couleur de cellules ( verte, orange, rouge ) et une deuxieme feuille qui recupere ces couleur et qui sert de base de donnée pour des graphiques.
Comment faire pour que sur ma deuxieme feuille les cases data se fasse de la facon suivante.
Si cellule A1 feuille 1 couleur verte alors cellule A1 feuille 2 'green'
.............A2........................rouge................A2.............'red'
Je ne penses pas que ce soit compliqué, mais ayant lu des post, je bloque un peu car mes couleurs sont rentrées manuellement.
Merci pour votre aide
A voir également:
- CelluleA1feuille2 = green si celluleaA1feuille couleur verte
- Excel cellule couleur si condition texte - Guide
- Somme si couleur - Guide
- Boite a couleur - Télécharger - Divers Photo & Graphisme
- Supprimez les composantes rouge et verte de cette image. quel mot apparaît ? ✓ - Forum Photoshop
- Un mot est caché dans l’en-tête du document. pour le trouver, modifiez sa couleur. ✓ - Forum Word
5 réponses
Avant le code de la procédure Couleur, les constantes utilisées vert, rouge sont initialisées en début de code.
Mais, il faut connaitre le code de chacune de ces couleurs : 3 pour rouge, 50 pour vert, etc ... et je suppose que tu ne les connais pas (moi non plus d'ailleurs)
En feuille 1, le clic-clic en colonne A sur une cellule colorée permet justement de récupérer ces codes couleurs, que tu reportes ensuite dans les valeurs des constantes citées plus haut. Cette manip n'est à faire qu'une fois (en principe)
Const rouge = 3
Const vert = 50
Const orange = ......
Const grise = ......
Lorsque tu auras affecté aux constantes leurs valeurs, ton code devrait fonctionner
Cdlmnt
Mais, il faut connaitre le code de chacune de ces couleurs : 3 pour rouge, 50 pour vert, etc ... et je suppose que tu ne les connais pas (moi non plus d'ailleurs)
En feuille 1, le clic-clic en colonne A sur une cellule colorée permet justement de récupérer ces codes couleurs, que tu reportes ensuite dans les valeurs des constantes citées plus haut. Cette manip n'est à faire qu'une fois (en principe)
Const rouge = 3
Const vert = 50
Const orange = ......
Const grise = ......
Lorsque tu auras affecté aux constantes leurs valeurs, ton code devrait fonctionner
Cdlmnt
Faire en sorte que dans la feuille 'simplified' la colonne couleur E donne la colonne P en feuille 'table de passage' sous forme : green/ orange / red / grey ...
Exactement ce que nous venons de faire, mais sur mon tableau. Je ne sais comment faire ici.
En pieçe jointe de mon cas precis.
merci !
https://www.cjoint.com/c/EFknjaw4jav
Exactement ce que nous venons de faire, mais sur mon tableau. Je ne sais comment faire ici.
En pieçe jointe de mon cas precis.
merci !
https://www.cjoint.com/c/EFknjaw4jav
Désolé,
je ne peux pas lire ton fichier, il me le faut au format excel 2003 (fichier/enregistrer sous/Type / excel 2003 .xls
je ne peux pas lire ton fichier, il me le faut au format excel 2003 (fichier/enregistrer sous/Type / excel 2003 .xls
Explications dans la feuille Table de passage
http://www.cjoint.com/c/EFko5a5DHnU
Cdlmnt
http://www.cjoint.com/c/EFko5a5DHnU
Cdlmnt
Bonjour,
Cela fonctionne parfaitement, merci.
Comment faire pour utiliser votre code dans excatement le meme cas sur un autre fichier ?
Quand je met =kouleur(Simplified!E8) par exemple , un #NAME? se met dans la case. ( les colonnes et noms de feuilles correspondent)
Que dois je faire pour refaire apparaitre les chiffre a coter des couleur ?
Et ainsi repter la procedure sur mon autre fichier ( qui l'identique, niveau format )
Merci !
Cela fonctionne parfaitement, merci.
Comment faire pour utiliser votre code dans excatement le meme cas sur un autre fichier ?
Quand je met =kouleur(Simplified!E8) par exemple , un #NAME? se met dans la case. ( les colonnes et noms de feuilles correspondent)
Que dois je faire pour refaire apparaitre les chiffre a coter des couleur ?
Et ainsi repter la procedure sur mon autre fichier ( qui l'identique, niveau format )
Merci !
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
1. Récupération des codes couleurs dans la feuille Simplified
Tu te mets dans la feuille Simplified
Alt-F11 pour accéder à l'éditeur vba
Tu colles ce code
Retour dans la feuille
Colonne E (où sont les cellules colorées)
clic-clic sur une couleur, le code s'inscrit à droite
2. La fonction Kouleur
Alt-F11 pour accéder à l'éditeur vba
2.1. tu as des Modules du genre Module 1, Module 2 etc..
tu colles le code dans ce module
2.2. tu n'as pas de Module
Insertion/Module
tu colles le code dans le module créé
Tu modifies éventuellement les valeurs des constantes en début de code avec celles que tu as trouvé au point 1.
La fonction Kouleur est maintenant opérationnelle
Bon courage
Tu te mets dans la feuille Simplified
Alt-F11 pour accéder à l'éditeur vba
Tu colles ce code
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Target.Offset(0, 1).Value = Target.Interior.ColorIndex End Sub
Retour dans la feuille
Colonne E (où sont les cellules colorées)
clic-clic sur une couleur, le code s'inscrit à droite
2. La fonction Kouleur
Alt-F11 pour accéder à l'éditeur vba
2.1. tu as des Modules du genre Module 1, Module 2 etc..
tu colles le code dans ce module
2.2. tu n'as pas de Module
Insertion/Module
tu colles le code dans le module créé
Tu modifies éventuellement les valeurs des constantes en début de code avec celles que tu as trouvé au point 1.
Const rouge = 3 Const vert = 50 Const orange = 44 Const gris = 48 Public Function Kouleur(cel As Range) As String Dim coul As Long coul = cel.Interior.ColorIndex Select Case coul Case vert: Kouleur = "green" Case rouge: Kouleur = "red" Case orange: Kouleur = "orange" Case gris: Kouleur = "grey" End Select End Function
La fonction Kouleur est maintenant opérationnelle
Bon courage
si j'ajoute une ligne avec une couleur supplementaire dans une feuille,
Pas de problème (en principe), il te suffit de l'ajouter dans la liste des constantes et bien sûr, d'ajouter le cas dans le Select case coul
Si c'est fini, merci de mettre le sujet à Résolu (en haut à droite de ton premier message)
Bonne fin de journée
Pas de problème (en principe), il te suffit de l'ajouter dans la liste des constantes et bien sûr, d'ajouter le cas dans le Select case coul
Si c'est fini, merci de mettre le sujet à Résolu (en haut à droite de ton premier message)
Bonne fin de journée
En revanche je n'ai pas saisi ces 2 etapes , dois-je rajouter quelquechose au module ?
2. Clic-clic en colonne A pour récupérer le code couleur
3. Modifies les valeurs des constantes rouge et vert dans le code de la fonction Couleur (dans Module 1)
Comme ceci :
Public Function Couleur(cel As Range) As String
Dim coul As Long
coul = cel.Interior.ColorIndex
Select Case coul
Case vert: Couleur = "green"
Case rouge: Couleur = "red"
Case orange: Couleur = "orange"
Case grise: Couleur = "grey"
End Select
End Function
je n'ai rien de plus a faire ?
merci,
merci beaucoup