macro excel en VBA

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

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 ?

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

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

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

tu peux utiliser une boucle for
du style :

Code:

---

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

---

En fait mon problème est plus complexe que ça: ci joint le fichier excel.
Une tache peut avoir plusieurs périodicité et je veux retrouver cette distinction dans mon calendrier.
Donc une même ligne il peut y avoir plusieurs couleurs.
Comment je peux faire pour faire apparaître cela??

ledaf

tu testes la valeur dans la cellule, et tu prends la couleur qui est soit dans la colonne C soit dans la colonne E...

je te laisse chercher pour ca :mouarf: