Ajout d'une MACRO à un tableau GANTT

PMO2 à dit:

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.

Code:

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

Cliquez pour agrandir...

tatiak à dit:

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

Cliquez pour agrandir...