Bonjour,
Je suis novice sur ce forum et je cherche la façon pour organiser un planning de travail sur excel. Ton graphique me parait exceptionnel mais je ne comprend pas les formules qui se trouvent dans les series du graphique.Pouvez-vous me les expliquer svp
Juste une proposition pour accélérer la mise en couleur:
Remplacer
Code:
For Z = MoisDeb To MoisFin
With Cells(Ligne, Z)
.Interior.ColorIndex = Couleur
.Interior.Pattern = xlSolid
.Interior.PatternColorIndex = xlAutomatic
End With
Next Z
par
Code:
With Cells(Ligne , MoisDeb).Resize(, MoisFin - MoisDeb + 1)
.Interior.ColorIndex = Couleur
.Interior.Pattern = xlSolid
.Interior.PatternColorIndex = xlAutomatic
End With
Sur un grand nombre de lignes et de cellules le gain sera appréciable.
If AnDeb = "2010" Then MoisDeb = MoisDeb + 12
If AnDeb = "2011" Then MoisDeb = MoisDeb + 24
If AnDeb = "2012" Then MoisDeb = MoisDeb + 36
If AnDeb = "2013" Then MoisDeb = MoisDeb + 48
If AnDeb = "2014" Then MoisDeb = MoisDeb + 60
If AnFin = "2010" Then MoisFin = MoisFin + 12
If AnFin = "2011" Then MoisFin = MoisFin + 24
If AnFin = "2012" Then MoisFin = MoisFin + 36
If AnFin = "2013" Then MoisFin = MoisFin + 48
If AnFin = "2014" Then MoisFin = MoisFin + 60
' Codification couleur
If Cells(Ligne - 1, 2) = "Bleu" Then Couleur = 5
If Cells(Ligne - 1, 2) = "Rouge" Then Couleur = 3
If Cells(Ligne - 1, 2) = "Jaune" Then Couleur = 6
If Cells(Ligne - 1, 2) = "Bleu Foncé" Then Couleur = 11
If Cells(Ligne - 1, 2) = "Rose" Then Couleur = 7
'Incrémentation des colonnes
For Z = MoisDeb To MoisFin
With Cells(Ligne, Z)
.Interior.ColorIndex = Couleur
.Interior.Pattern = xlSolid
.Interior.PatternColorIndex = xlAutomatic
End With
Next Z
'Incrémentation des lignes
Ligne = Ligne + 3
Wend
'Repositionnement début planning
Range("A5").Select
End Sub
En vous remerciant pour votre patience et votre disponibilité!
Bonne journée!
Ps: J'apprend le Vba petit à petit, alors soyez indulgent avec moi s'il vous palit!
Une tentative de réponse au message de Raziel abel (Merci pour ton MP ) Tout d'abord l'Aide d'Excel est faite pour répondre, aussi, à tes questions (accessible par F1)
Que les puristes ne s'étonnent pas de mes commentaires pas forcément exacts : j'ai fait simple.
Une tentative de réponse au message de Raziel abel (Merci pour ton MP ) Tout d'abord l'Aide d'Excel est faite pour répondre, aussi, à tes questions (accessible par F1)
Que les puristes ne s'étonnent pas de mes commentaires pas forcément exacts : j'ai fait simple.
Bonsoir à tous les les amis du Forum et en particulier à JCGL
Merci pour ta réponse concernant le paramétrage du planning.
Bonne soirée à tous.
Cordialement.
bonjour
je cherche le moyen de créer une espece de diagramme de GANTT mais avec des périodes fractionnable : par exemple pour une diagramme à 5 etapes, je voudrais que l'etape 1 puisse se reproduire dans le temps (sur 4 semaines, elle pourrait par ex apparaitre les 3 premiers lundi)
Connaissez vous une methode pour realiser cela à partir des fichiers proposés dans ce fil de discussion.
MErci
Denis