P
poiiq
Guest
Bonjour,
J'ai un fichier qui a plusieurs feuilles de calcul, chacune permet de élaborer les phases ( 1 - 9) d'un projet sur un calendrier annuel avec un code couleur, donc j'ai une macro qui dit ceci : ( quelQu'un m'a aidé pour la faire)
Sub Macro1()
Dim plage As Range, c As Range, i As Integer
Set plage = Range("E2:AA36")
For Each c In plage
For i = 11 To 19
If c >= Range("C" & i) And c <= Range("D" & i) Then c.Interior.ColorIndex = Range("B" & i).Interior.ColorIndex
Next
Next
End Sub
Je voudrais avoir une feuille sommative pour chaque projet et récupérér les couleurs et les dates des tàches, ou phases comme ceci:
Par exemple
Colonne A est le nom du projet
Colonne B jusqu'a BB sont les dates hebdomadaires
J'ai joint le fichier pour faciliter la compréhension.
Merci pour votre soutien
J'ai un fichier qui a plusieurs feuilles de calcul, chacune permet de élaborer les phases ( 1 - 9) d'un projet sur un calendrier annuel avec un code couleur, donc j'ai une macro qui dit ceci : ( quelQu'un m'a aidé pour la faire)
Sub Macro1()
Dim plage As Range, c As Range, i As Integer
Set plage = Range("E2:AA36")
For Each c In plage
For i = 11 To 19
If c >= Range("C" & i) And c <= Range("D" & i) Then c.Interior.ColorIndex = Range("B" & i).Interior.ColorIndex
Next
Next
End Sub
Je voudrais avoir une feuille sommative pour chaque projet et récupérér les couleurs et les dates des tàches, ou phases comme ceci:
Par exemple
Colonne A est le nom du projet
Colonne B jusqu'a BB sont les dates hebdomadaires
J'ai joint le fichier pour faciliter la compréhension.
Merci pour votre soutien