Je suis en train de peaufiner mon planning ( fichier joint ) grace a votre aide precieuse ...et je me demandait s'il etait possible de pouvoir faire une sorte que quand je change une couleur d'activité dans mon onglet "data" , que la modification soit prise en compte dans l'onglet "planning 2008" pour toutes les activités déja inscrites sur le planning...
Sub apres()
Sheets("planning 2008").Select
For Each c In [e4:J1000]
On Error Resume Next
c.Resize(2, 1).Interior.ColorIndex = _
[activité].Find(c, LookAt:=xlWhole).Interior.ColorIndex
Next c
End Sub
Merci boisgontier ...je ne savait pas que le bouton " apres " servait a ca.
Pour ce qui est de ton code , dois je le recopier dans chaque feuille que je cree pour mes agents ou bien je le met dans data ?
J'ai essayé de reproduire ton bouton " go " sans succes ... la macro "Apres" n'apparait pas dans ma version definitive ou je la trouve pas en tout cas ...
Bonjour de nouveau ... je revient vers vous car finalement la formule dans le module 2 fonctionne dans le module pour la sheet " Benoit " ... mais je ne sais pas comment l'appliquer a l'ensemble de mes feuilles ...j'ai essayé :
Sub apres()
Sheets("feuille1","feuille2","feuille3").Select
For Each c In [e4:J1000]
On Error Resume Next
c.Resize(2, 1).Interior.ColorIndex = _
[activité].Find(c, LookAt:=xlWhole).Interior.ColorIndex
Next c
End Sub
Sub apres()
For Each f In Array("planning 2008", "planning 2008")
Sheets(f).Select
For Each c In [e4:J1000]
On Error Resume Next
c.Resize(2, 1).Interior.ColorIndex = _
[activité].Find(c, LookAt:=xlWhole).Interior.ColorIndex
Next c
Next f
End Sub
Merci a toi Boisgontier pour ton aide ... j'essaye toujours de comprendre ce systeme de sheet mais j'ai du mal je crois
Si je prend ton code , que je le transforme pour lui attribuer les valeurs de mon planning ca ne marche plus ... en fait mes feuilles s'appellent " Benoit " , " Frederic " etc ...mais quand je remplace
For Each f In Array("planning 2008", "planning 2008")