copier coller avec liaison

[jack]

bonjour à tous,
Après plusieurs éssais je n'arrive toujours pas à copier avec liaison mes fonds de cellules
ex: sur la feuille 1 un planing janvier fevrier etc... par personne (au
total 30 personnes sont concernées donc 30 feuilles)
chaque mois a deux cellules par journée
je mets des couleurs de fond qui sont ensuites comptabiliser (avec une macro
en vba).
sur la feuille 2 je fais une récap de tous les noms, mois par mois (ex:
janvier , 1 ligne par nom (30 noms au total sur la même feuille) je voudrais
donc lorsque je colore un fond en feuille 1 qu'il y ait une liaison avec la
feuille 2.
la seule méthode que j'ai trouvé c'est l'appareil photo (ce qui m'oblige à
faire environ 900 manip par mois) c'est quasi infaisable
Merci d'avance
jacques

 

[XanorK]

Bonjour Jack,


Place ceci dans ton code VBA deja existant

    Sheets('Feuil2').Range('B3').Interior.ColorIndex = Sheets('Feuil1').Range('B3').Interior.ColorIndex

en modifiant biensur le contenu des Sheets et des Range

 

[jack]

Merci,
Ce qui aurait été super c'est que je puisse créer une fonction comme je l'avais fait pour comptabiliser les fonds de cellules
Comme tu peux l'imaginer je ne suis pas un pro des codes en VBA
Peux tu m'aider ?
merci encore

Jack

 

[jacques]

voilà un fichier exemple

 

[jacques]

 

[jacques]