Planning - Diagramme de Gantt

[kalonji]

Bonjour à tous,

Je viens de découvrir ce site tout a fait interessant.

Je souhaite établir un planning automatisé genre diagramme de gantt à partir d'une date de début et une date de fin.

L'objectif est que les lignes se colorent automatiquement sur le planning pluriannuel (scindé en mois) à partir des dates saisies.

Voici un fichier joint pour illustrer ma demande sur laquelle je bloque énormément.

http://cjoint.com/?bwprZRfmPB

Je pense qu'il faut utiliser le VBA mais je suis totalement novice en la matière.

Grandement merci d'avance si vous pouvez m'aider

 

[CISCO]

Re : Planning - Diagramme de Gantt

onjour

tu trouveras peut être ton bonheur dans la partie téléchargements, en haut de page.

@ plus.

 

[CB60]

Re : Planning - Diagramme de Gantt

Bonjour
se ne serais pas plus simple comme cela??

 

[EXCELERATOR]

Re : Planning - Diagramme de Gantt

Salut à toi !!

Voilà un petit exemple de ce qu'on peut faire !!

ON peut toujours faire mieux !!

A plus dans le bus !!

 

[EXCELERATOR]

Re : Planning - Diagramme de Gantt

Hé BRUNO tu m'as grillé sur le fil !!!

 

[CB60]

Re : Planning - Diagramme de Gantt

RE
EXCELERATOR Le plus important est qu'il est une solution à son probléme, que se soit toi ou moi,

 

[kalonji]

Re : Planning - Diagramme de Gantt

Ouah!!! Quelle rapidité!!!

Je vous remercie énormément!!

Le fichier réalisé par EXCELERATOR est assez similaire à ce que je cherche à faire.

N'y aurait il pas un moyen de le faire mais avec une vue mensuelle plutot que hebdomadaire?c'est a dire 1 an = 12 cases et 1 case = 1 mois

J'ai regardé le code mais c'est complexe pour moi....pas assez d'expérience

CB60 : merci pour ta contribution mais j'ai une contrainte : ne pas utiliser de graphique....

bon je vais essayer de comprendre le code pour le ramener à une vue mensuelle

 

[kalonji]

Re : Planning - Diagramme de Gantt

Vous etes géniaux!!!!!!!!

BRAVO!!!!!


Voila, j'ai modifié avec mes connaissances VBA (c'est a dire peu) et voila ce que ca donne

http://cjoint.com/?bwrASfqILs

vous en pensez quoi?

bon le code c'est une horreur mais je ne m'y connais pas....

@+ dans le bus!!!!

 

[EXCELERATOR]

Re : Planning - Diagramme de Gantt

=>Kalonji, désolé je suis plus au bureau!! j'ai une autre version d'excel chez moi.

Je regarde demain, mais je pense que tu as tout compris.
Dans le forum, il y a une aide sur la programmation VBA pour un diagramme de GANTT certainement mieux que celui que je t'ai envoyé.
Je regarde demain, je te tiens au courant !!

=> CB60, mdr à plus

 

[kalonji]

Re : Planning - Diagramme de Gantt

Bonjour à nouveau,

Je rencontre un problème pour une selection de cellule sachant que la selection subit incrémentation

J'ai identifié au niveau du code là où ca posait problème, allez directement dans visual basic car la macro ne tourne pas

http://cjoint.com/?bxrgRZ7w7z

Pouvez vous m'aider

Merci d'avance

 

[JCGL]

Re : Planning - Diagramme de Gantt

Bonjour à tous,

Kalondji : Merci de déposer tes fichiers ici (zippé il ne fait que 19 Ko). Que voudra dire cette discussion dans quelques jours sans les fichiers.

Plus bas : 'Gérer les pièces jointes' quand tu es sur la fenêtre 'Ajouter un réponse'

A+

 

[kalonji]

Re : Planning - Diagramme de Gantt

Exact, j'y penserais désormais.

Pour ce qui est du problème de selection des cellules, le problème vient de la :

Range("cells(ligne-1,1):cells(ligne-1,4)").Select

Je dois coder n'importe comment cette selection...

J'ai également essayé comme cela mais sans succès:

plage1=cells(ligne-1,1)
plage2=cells(ligne-1,4)
range("plage1 : plage2").select

J'espère que vous pourrez m'aider

bybye

 

[JCGL]

Re : Planning - Diagramme de Gantt

Bonjour à tous,

Peux-tu essayer :

   If Cells(ligne - 1, 2) = "Jaune" Then Range(Cells(ligne - 1, 1) & ":" & Cells(ligne - 1, 4)).Select

Pas tester, mais VBA n'apprécie pas les fusions de cellules ;-)

A+

 

[kalonji]

Re : Planning - Diagramme de Gantt

Non ca ne fonctionne pas....

 

[JCGL]

Re : Planning - Diagramme de Gantt

Bonjour à tous,

Peux-tu essayer ceci :

  If Range("B" & ligne - 1) = "Jaune" Then Range("A" & ligne - 1 & ":D" & ligne - 1).Select

A+