Couleurs automatiques en fonction d'une autre feuille

Dodu'x

XLDnaute Nouveau
Bonjour,

Sur le fichier joint, vous trouverez mon projet de planning.

L'idée est de pouvoir, une fois le planning remplie (feuille n°1), imprimer automatiquement sur la feuille n°2 la semaine choisie (en cellule C1).

J'ai pu, à l'aide de fonctions Index et Equiv retrouver les valeurs de mon planning automatiquement. Le problème est que j'aimerais que les couleurs des cellules suivent aussi. Sans passer par du VBA de préférence (mes utilisateurs n'ont pas le reflex de cliquer sur "activer le contenu"... c'est des gars du bâtiment !)

Une idée?

Je vous remercie par avance pour votre soutiens.
 

Pièces jointes

  • planning test.xlsx
    613.3 KB · Affichages: 47

croco40

XLDnaute Occasionnel
Bonjour,
Moi je passerais en VBA.
Pour que ça se mette à jour, même si tes collègues oublient, tu mets ça dans "Feuil3 (Impression Semaine)" :
============================
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range


Set KeyCells = Range("C1")

If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then


Call ta_macro
End If
End Sub
=================================

Suerte
Croco.
 

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonjour Dodu'x, croco40,

Sans passer par du VBA de préférence (mes utilisateurs n'ont pas le reflex de cliquer sur "activer le contenu"...

Je ne vois pas comment ne pas passer par du VBA pour faire suivre les couleurs.

Une piste:
Vous pouvez bloquer le fichier si les gars du bâtiment :D n'ont pas activé les macros. Voir fichier joint.
  • on utilise une feuille cachée nommée "Infos"
  • cette feuille "Infos" est verrouillée (mot de passe: toto)
  • le code se trouve dans le module de code de ThisWorkbook
  • l'affichage du code est protégé (mot de passe: toto)
 

Pièces jointes

  • Dodu'x- planning test- v1.xlsm
    631.3 KB · Affichages: 34

JCGL

XLDnaute Barbatruc
Bonjour à tous,

Dodux : ta formule pour le n° de semaine ne convient pas. Il est préférable d'utiliser (suivant ta version XL) :
=NO.SEMAINE.ISO(C12)
ou
=NO.SEMAINE(C12;21)

MaPomme : voir fichier joint.... Il est où l'fichier, il est où... A++

A+ à tous
 

mapomme

XLDnaute Barbatruc
Supporter XLD
Re à tous,

Un essai via VBA de mise en couleur de la feuille "Impression semaine".

On a supprimé toute les formules à partir de la ligne 4 et de la colonne C, la macro se chargeant aussi de mettre les valeurs dans les cellules

La feuille "Impression semaine" est mise en couleur quand on change de semaine (cellule C1) ou bien quand on active cette feuille.

Tests faits avec semaine 17 ou 18.

Rappel : les mots de passe de la feuille "Infos" et du code vba sont tous les deux: toto
 

Pièces jointes

  • Dodu'x- planning test- v2.xlsm
    154 KB · Affichages: 45
Dernière édition:

Dodu'x

XLDnaute Nouveau
Bonjour à tous,

avec un peu de retard je vous remercie pour votre aide ! je vais m'empresser de tester tout ça et vous tiens au courant.

Pour le blocage de fichier si la macro n'est pas activée, c'est plutôt une bonne astuce... merci !

Bonne journée à tous.
 

Discussions similaires

Statistiques des forums

Discussions
312 165
Messages
2 085 880
Membres
103 009
dernier inscrit
dede972