comment recuperer couleur de cellules ?

[ramsus]

Bonjour à tous et toutes,

Je suis entrain de développer un planning annuel, constituer d'un classeur contenant 12 onglets représentant les mois de l'année et un autre classeur représentant une semaine X, les deux sont en relation.
Grâce au forum et à tous les conseils pris à droite et à gauche j'ai réussi à mettre automatiquement différentes couleurs en fonction d'un code rentrer.
J'aimerai que dans le classeur semaine x, que celui-ci en récupérant la valeur dans le classeur planning récupère aussi la couleur prévu par rapport à cette valeur.
Je suis bloqué mais je sais que sur ce forum l'entraide est très soutenue.
Je joins un fichier pour que cela sois plus compréhensible.
Merci à tous et toutes, et bonnes fêtes de Noël.

Regarde la pièce jointe rapport.zip

 

[JCGL]

Re : comment recuperer couleur de cellules ?

Bonjour à tous,

Sur le Forum XL <> Forum XL 2007, les fichiers *.xls sont recommandés.

A+ à tous

 

[ramsus]

Re : comment recuperer couleur de cellules ?

je me permet un petit up 😉
j'ai modifié le format des fichiers dans le zip, ils sont au format xls cette fois si 🙂

 

[JCGL]

Re : comment recuperer couleur de cellules ?

Bonjour à tous,

Tu avais oublié les deux zones nommées 'Couleurs' et 'Planning'

Tu auras un souci pour la application du code dans les feuilles "Semaines" : les couleurs n'apparaitront que sur validation par F2 et Enter

A+ à tous

 

[ramsus]

Re : comment recuperer couleur de cellules ?

Bonjour JCGL,

Je les ai enlevées volontairement, car comme tu le précise je suis obligé de valider sur ma feuille semaine pour obtenir la couleur est c'est bien ce que je veux éviter.
Je voudrai récupérer la couleur automatiquement sans être obligé de valider est ce possible ?
Merci d'avance.

 

[JCGL]

Re : comment recuperer couleur de cellules ?

Bonjour à tous,

Mise à part un copier coller, je ne vois pas.

D'autres liront cette discussion et viendront te régler ton problème

A++
A+ à tous

 

[ramsus]

Re : comment recuperer couleur de cellules ?

Bonjour à tous et toutes,

un petit up au cas ou quelqu'un aurai une solution.
Merci d'avance.

 

[ramsus]

Re : comment recuperer couleur de cellules ?

Bonjour à tous et toutes,

Alors toujours pas de solution à mon problème 🙁
Quel dommage, allez un petit effort 😉

Merci d'avance.

 

[job75]

Re : comment recuperer couleur de cellules ?

Bonjour Ramsus, JCGL,

Le fichier semaine1 d'origine contient dans la plage à étudier des formules comme celle en B5 :

=RECHERCHEH(B4;'C:\Documents and Settings\...\Bureau\[COLOR="Red"]rapport\[planning.xlsm][/COLOR]JANVIER'!$B$6:$AF$19;2;FAUX)

ou l'on voit dans le chemin rapport\[planning.xlsm]

Pour que les liaisons avec le fichier planning.xls se fassent, voici donc ce qu'il faut faire :

- les 2 fichiers étant dans un dossier (le bureau par exemple), créer un sous-dossier rapport et y mettre le fichier planning.xls

- dans la feuille du fichier semaine1 touches Ctrl+H et remplacer .xlsm par .xls

Maintenant mettre dans le code de la feuille cette macro :

Private Sub Worksheet_Calculate()
Dim tablo1, tablo2, Sem As Range, i As Byte, cel As Range
tablo1 = Array("AST", "C", "RU", "RUN", "RP", "MA", "DP", "TC/N", "FT")
tablo2 = Array(6, 33, 41, 3, 48, 46, 24, 4, 54)
Set Sem = Range("A5", Range("A65536").End(xlUp)(2)).Offset(, 1).Resize(, 5)
Sem.Interior.ColorIndex = xlNone
For Each cel In Sem
  For i = 0 To UBound(tablo1)
   If UCase(cel) = tablo1(i) Then cel.Interior.ColorIndex = tablo2(i): Exit For
  Next
Next
End Sub

Enregistrer puis fermer le fichier. En le rouvrant, les couleurs se mettent en place.

A+

 

[job75]

Re : comment recuperer couleur de cellules ?

Re,

Pour obtenir les liaisons correctes, on peut aussi plus simplement :

- mettre les 2 fichiers dans le même dossier (le bureau)

- dans semaine1 remplacer rapport\[planning.xlsm] par [planning.xls]

Je joins le fichier avec ces nouvelles liaisons.

A+

 

[ramsus]

Re : comment recuperer couleur de cellules ?

Bonjour à tous et toutes,

Je te remercie job75 super travail 😉
Je souhaite de passer de bonnes fête de Noël.
Cordialement.

PS: si je veux ajouter d'autres couleurs et codes comment modifier les valeurs dans la macro ?

 

[ramsus]

Re : comment recuperer couleur de cellules ?

re: c'est bon Job75, j'ai trouvé encore un grand merci pour ton travail 😉