celluleA1feuille2 = green si celluleaA1feuille couleur verteRésolu/Fermé

Question

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

ccm81 · Answer

Bonjour 

Je ne sais pas si j'ai bien compris le problème
http://www.cjoint.com/c/EFjqmzpojzU

Cdlmnt

ccm81 · Answer

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

ccm81 · Answer

Désolé, 
je ne peux pas lire ton fichier, il me le faut au format excel 2003 (fichier/enregistrer sous/Type / excel 2003  .xls

ccm81 · Answer

Explications dans la feuille Table de passage
 http://www.cjoint.com/c/EFko5a5DHnU

Cdlmnt

ccm81 · Answer

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

CelluleA1feuille2 = green si celluleaA1feuille couleur verte

5 réponses

Newsletters