comment recuperer couleur de cellules ?

JCGL

XLDnaute Barbatruc

• 17 Décembre 2009

• #2

Re : comment recuperer couleur de cellules ?

Bonjour à tous,

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

A+ à tous

 

Vote positif 0 Vote négatif

R

ramsus

Guest

• 17 Décembre 2009

• #3

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 🙂

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 17 Décembre 2009

• #4

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

 

Pièces jointes

• planning.zip

  25.5 KB · Affichages: 34
• planning.zip

  25.5 KB · Affichages: 34
• planning.zip

  25.5 KB · Affichages: 32

Vote positif 0 Vote négatif

R

ramsus

Guest

• 17 Décembre 2009

• #5

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.

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 17 Décembre 2009

• #6

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

 

Vote positif 0 Vote négatif

R

ramsus

Guest

• 18 Décembre 2009

• #7

Re : comment recuperer couleur de cellules ?

Bonjour à tous et toutes,

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

 

Vote positif 0 Vote négatif

R

ramsus

Guest

• 20 Décembre 2009

• #8

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.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Décembre 2009

• #9

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 :

Code:

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

Code:

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+

 

Pièces jointes

• rapport(1).zip

  29.7 KB · Affichages: 22

Dernière édition: 20 Décembre 2009

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Décembre 2009

• #10

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+

 

Pièces jointes

• rapport(2).zip

  29.3 KB · Affichages: 28

Dernière édition: 20 Décembre 2009

Vote positif 0 Vote négatif

R

ramsus

Guest

• 21 Décembre 2009

• #11

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 ?

 

Dernière modification par un modérateur: 21 Décembre 2009

Vote positif 0 Vote négatif

R

ramsus

Guest

• 21 Décembre 2009

• #12

Re : comment recuperer couleur de cellules ?

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

 

Vote positif 0 Vote négatif