Ajout d'une MACRO à un tableau GANTT

[BASSANT]

Bonjour à tous,


J'ai une petite question à vous poser...

J'utilise excel pour "construire" une tableau d'organisation GANTT.

Cependant je fais ça en version "manuelle", c'est à dire que j'insère l'heure de début ainsi que la durée.

Après quoi, une simple formule me donne l'heure de fin.

Une fois ces données en mains, je colorie ensuite les "cases" correspondantes aux plages horaires.

C'est cette dernière étape que je souhaiterais automatiser... effectivement pour les petits projets, ce n'est pas encore trop lourd, mais je suis actuellement sur un projet qui va me demander +/- 100 tâches et je ne me vois pas colorier toutes ces petites cases.

Je vous joins ma version "manuelle"

NB : les différentes couleurs correspondent à la famille de la tâche (administratif, construction, démontage, ...)


En vous remerciant tous d'avance.

 

[PMO2]

Re : Ajout d'une MACRO à un tableau GANTT

Bonjour,

Une piste avec le code suivant. Il faudra colorer les cellules de la colonne E pour indiquer à la macro les couleurs à reproduire sur le Gantt.

Sub GanttColors()
Dim var
Dim Deb
Dim Fin
Dim i&
Dim j&
Dim R As Range
Dim couleur&
'---
var = ActiveSheet.UsedRange
'---
For i& = 3 To UBound(var, 1)
  If var(i&, 7) <> "" Then
    couleur& = Cells(i&, 5).Interior.Color
    With Application.WorksheetFunction
      Deb = .RoundDown(var(i&, 7), 4)
      Fin = .RoundDown(var(i&, 8), 4)
      For j& = 10 To UBound(var, 2)
        If .RoundDown(var(1, j&), 4) >= Deb And .RoundDown(var(1, j&), 4) <= Fin Then
          If R Is Nothing Then
            Set R = Cells(i&, j&)
          Else
           Set R = Application.Union(R, Cells(i&, j&))
          End If
        End If
      Next j&
    End With
  End If
  '---
  If Not R Is Nothing Then
    R.Interior.Color = couleur&
    Set R = Nothing
  End If
Next i&
End Sub

 

[BASSANT]

Re : Ajout d'une MACRO à un tableau GANTT

Bonjour,

Une piste avec le code suivant. Il faudra colorer les cellules de la colonne E pour indiquer à la macro les couleurs à reproduire sur le Gantt.

Sub GanttColors()
Dim var
Dim Deb
Dim Fin
Dim i&
Dim j&
Dim R As Range
Dim couleur&
'---
var = ActiveSheet.UsedRange
'---
For i& = 3 To UBound(var, 1)
  If var(i&, 7) <> "" Then
    couleur& = Cells(i&, 5).Interior.Color
    With Application.WorksheetFunction
      Deb = .RoundDown(var(i&, 7), 4)
      Fin = .RoundDown(var(i&, 8), 4)
      For j& = 10 To UBound(var, 2)
        If .RoundDown(var(1, j&), 4) >= Deb And .RoundDown(var(1, j&), 4) <= Fin Then
          If R Is Nothing Then
            Set R = Cells(i&, j&)
          Else
           Set R = Application.Union(R, Cells(i&, j&))
          End If
        End If
      Next j&
    End With
  End If
  '---
  If Not R Is Nothing Then
    R.Interior.Color = couleur&
    Set R = Nothing
  End If
Next i&
End Sub

Bonjour les amis 🙂
Va voir le Gantt "Marion" par ici=>Gantt-Marion
il devrait te plaire!
🙂 tatiak

Merci à tous les deux !

dans un premier temps je vais utiliser le classeur de Tatiak

Et je vais ensuite étudier la voie de PMO2 🙂

encore une fois, merci !

 

[BASSANT]

Re : Ajout d'une MACRO à un tableau GANTT

Re Bonsoir Tatiak, PMO2,


Existe t'il le moyen de faire un mixe de vos deux classeurs ?

J'ai essayé de faire des copiés - collés de la macro mais les mises en forme du classeur de Tatiak ne fonctionne plus dans ce cas...


Si vous avez un peu de temps, et que ça ne vous dérange pas, puis je encore vous solliciter ?


Merci d'avance 🙂

 

[BASSANT]

Re : Ajout d'une MACRO à un tableau GANTT

Bonjour Takiak,

Tout d'abord merci pour ton aide

J'ai utilisé un peu ton classeur, c'est visiblement ça que je souhaite !

Cependant je rencontre quelques problèmes dans son utilisation.


Quand j'encode mes plages horaires je ne rencontre pas de soucis, comme la version sans macro




Mais quand je lance la macro voici ce que j'ai




J'ai essayé de suivre le cheminement de ta macro, mais je t'avoue que je sèche totalement...

D'avance merci 😉

 

[BASSANT]

Re : Ajout d'une MACRO à un tableau GANTT

Re Bonjour Tatiak,


J'ai un peu de temps ce soir pour analyser ça, je ne manque pas d'uploader ma version "finalisée" si elle fonctionne


...je reviens vers toi si j'ai encore quelques difficultés 😉


A bientôt

 

[BASSANT]

Re : Ajout d'une MACRO à un tableau GANTT

Bonsoir Tatiak,


J'ai un peu optimisé ta version "Marion" et j'ai ajouté ton code...

Mais la mise en forme semble buger au niveau des bordures, as tu quelque chose à me conseiller pour remédier à ça ?


Merci


Bassant