Recopier cellules avec couleur

[Arcangeli]

Bonjour le forum,
J'ai une feuille planning que je colorie suivant certains critères (mais ce ne sont pas des mises en formes conditionnelles)
Les info du jour 1 sont reportées sur une feulle nomée jour 1 et ainsi de suite pour tout le mois.
Pour reporter les donnée pas de problème je me débrouille, mais j'aimerais que les couleurs soient également reportées.
Si vous avez une solution, vous me rendez un grand service.
D'avance merci

 

[Staple1600]

Re : Recopier cellules avec couleur

Bonjour


Ce n'est possible que par macro (si tu ne veux pas utiliser de MFC)

 

[Arcangeli]

Re : Recopier cellules avec couleur

Bonjour Barbatruc et merci pour avoir ouvert mon post.
Effectivement, je cherche une solution autre que les MFC car les couleurs appliquées au diverses cellules sont variables indépendament du contenu (chiffre de la cellule) Ex: la cellule d'une valeur xxx peut être colorée en rouge ou en une autre couleur suivant à qui le tournus est destiné.
A bientôt si une solution est possible.

 

[Staple1600]

Re : Recopier cellules avec couleur

Re


Mon message précédent était en fait une question implicite.

Si on te dit macro, tu prends ou pas ?

 

[Arcangeli]

Re : Recopier cellules avec couleur

Désolé Barbatruc j'aurais du être plus direct.
Bien sûr que si une solution existe je prends avec grand plaisir.
Déjà merci

 

[Staple1600]

Re : Recopier cellules avec couleur

Re


Mon second message était encore une question implicite dans la question 😉

C-a-d, quel est ton niveau de maitrise de VBA ?

 

[Staple1600]

Re : Recopier cellules avec couleur

Re,

Une solution simple et fonctionnelle
(mais peut-être pas des plus orthodoxe et secure)

A mettre dans ThisWorkbook

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim c As Range
For Each c In Sh.UsedRange
If c.HasFormula Then
c.Interior.ColorIndex = Sheets("Planning").Range(Split(c.Formula, "!")(1)).Interior.ColorIndex
End If
Next c
End Sub

 

[Arcangeli]

Re : Recopier cellules avec couleur

Oui, Barbatruc pour parler de mon niveau VBA, je dirais qu'il est en dessous de la moyenne, mais avec l'aide du forum j'y arrive.
Je viens d'essyer le code que tu as posté et il semble vraiment correspondre à ce dont j'ai besoin.
Maintenant s'il y a des finesses du genre secure, je prends volontier.
Si non, encore un grand merci pour ton aide.

 

[Staple1600]

Re : Recopier cellules avec couleur

Re


Quand je dis que ce n'est pas secure, cela veut dire que cela fonctionne avec ton fichier exemple dans son état actuel.

Avec un fichier plus conséquent, il se pourrait que la macro finisse par boguer.

Je te laisse donc le soin de tester.

 

[Arcangeli]

Re : Recopier cellules avec couleur

Oui, je vais essayer avec mon fichier qui fait quelques 31 pages, multiplié par 60 lignes avec 31 infos différentes sur chaque ligne.
Donc ça va prendre un moment pour tester tout ça et je le fais demain.
Mais j'ai bon espoir que ça fontionne et si je ne reviens pas sur le sujet, encore un grand merci.
Meilleurs messages.