Discussion :

[Ledaf]

Bonjour à tous!

Je voudrai réaliser une macro en VBA pour le plan de charge que je suis en train de faire.
Mon but est que pour chaque périodicité je doit attribuer une couleur. Cette couleur doit se retrouver dans le calendrier (semaine 1,...) par l'intermédiaire des durées. (voir fichier ci joint)
Pouvez vous m'aider svp car c'est très urgent et je suis bloqué.

Merci à tous

Ledaf

[Jean-Philippe André]

salut ledaf,
je ne sais pas trop pour les autres, mais peso, je ne comprends pas trop ton fichier excel d'une part, et ta requête d'autre part... Peux-tu expliciter et donner un exemple de ce que tu cherches à faire stp ?

[Ledaf]

Bon je vais essayer d'être un peu plus clair alors.
Dans la 1ère colonne nous avons donc les différentes taches. Chaque taches est a réaliser suivant une périodicité ( mensuel, annuel, trimestriel, ...)(colonne 2).
Une durée (collonne 3) est attribuée a chaque tache (la tache 1 est a faire en 2h, la tache 2 en 2h,....).
Chaque tache est réparti dans l'année suivant la périodicité.

Mon but est d'attribuer une couleur différente pour les périodicité, et que l'on retrouve ce code couleur dans le calendrier (semaine 1, 2, 3, ...).

Cela permet anisi de voir si l'on a une tache a réaliser annuellement, semestriellement,... direstement dans le calendrier.

Est ce que je suis assez clair?? Car c'est vraiment urgent et j'en aie besoin rapidement.

Merci beaucoup...

Ledaf

[Jean-Philippe André]

d'accord, je voyais pas en fait le lien entre les colonnes 1 et 2 et la colonne 3.
Pour la couleur directement dans le calendrier tu peux utiliser
Range().Interior.ColorIndex

[Ledaf]

Oui certe j'y avais pensé mais mon problème à moi c'est que j'ai environ 10000 taches et que je dois établir un planning sur 2 ans.
Donc je voudrai automatiser un peu tout ça. Je sais que c'est possible mais je ne sais pas du tout comment faire!
Aurais tu un début de programme pour moi??

Je te remerci...

Ledaf

[Jean-Philippe André]

tu peux utiliser une boucle for
du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
dim i as integer
dim j as integer
for i = 2 to Range("A1").End(XlDown).Row
for j = 3 to Range("A" & i).End(xlToRight).Column
 if not isempty(cells(i,j).value) then
cells(i,j).Interior.Colorindex = cells(i,2).Interior.Colorindex
end if
Next j
Next i