Bonjour,
je n'ai pas réussi à trouver la réponse à ma question dans les différents forum.
J'ai un classeur avec 2 onglets "Planning" et "Macro Planning". Le but, c'est que le macro planning soit une extraction du planning pour les quelques jours à venir (msgbox pour choisir le nb de jour), avec les infos essentielles (date, nom de l'opération, équipe et n° de changement). Et j'aimerais que chaque élément apparaisse avec une couleur différente.
voici mon onglet planning (confidentialité oblige, les noms sont bidons^^) :
Avec ma macro, voici ce que j'obtiens dans l'onglet "Macro Planning" :
Et voici ce que j'aimerais obtenir :
Ma macro-excel (je vous fais grâce de la partie initialisation du tableau) :
Mon fichier est en PJ.
Par contre, je n'ai aucune idée de comment faire : passer par un tableau temporaire mis en forme et concaténer ensuite ? changer la couleur au fur et à mesure ? ...
Si quelqu'un a une réponse ou même une piste de réponse, je suis preneur.
Merci d'avance
je n'ai pas réussi à trouver la réponse à ma question dans les différents forum.
J'ai un classeur avec 2 onglets "Planning" et "Macro Planning". Le but, c'est que le macro planning soit une extraction du planning pour les quelques jours à venir (msgbox pour choisir le nb de jour), avec les infos essentielles (date, nom de l'opération, équipe et n° de changement). Et j'aimerais que chaque élément apparaisse avec une couleur différente.
voici mon onglet planning (confidentialité oblige, les noms sont bidons^^) :
Avec ma macro, voici ce que j'obtiens dans l'onglet "Macro Planning" :
Et voici ce que j'aimerais obtenir :
Ma macro-excel (je vous fais grâce de la partie initialisation du tableau) :
Code:
Dim DateJour As Date
Dim NbJour As Integer
Dim DebutCellule As Integer 'Définition du n° de ligne (pour la boucle for)
Dim FinCellule As Integer 'Définition du nb de cellule (pour la limite de la boucle for)
Dim operation As Variant
Dim changement As Variant
Dim equipe As Variant
Dim environnement As Variant
For j = 2 To 2 + NbJour
For i = DebutCellule To FinCellule
If Sheets("Macro Planning").Range("A" & j).Value = Range("E" & i).Value Or Sheets("Macro Planning").Range("A" & j).Value = Range("F" & i).Value Then
Set operation = Range("B" & i).MergeArea
Set changement = Range("G" & i).MergeArea
Set equipe = Range("D" & i).MergeArea
Set environnement = Range("C" & i).MergeArea
If environnement.Cells(1, 1).Value = "PP" Then
If Sheets("Macro Planning").Range("B" & j).Value = "" Then
Sheets("Macro Planning").Range("B" & j).Value = operation.Cells(1, 1).Value & " - " & equipe.Cells(1, 1).Value & " - " & changement.Cells(1, 1).Value
Else
Sheets("Macro Planning").Range("B" & j).Value = Sheets("Macro Planning").Range("B" & j).Value & Chr(10) & operation.Cells(1, 1).Value & " - " & equipe.Cells(1, 1).Value & " - " & changement.Cells(1, 1).Value
End If
ElseIf environnement.Cells(1, 1).Value = "P" Then
Set ma = Range("B" & i).MergeArea
If Sheets("Macro Planning").Range("C" & j).Value = "" Then
Sheets("Macro Planning").Range("C" & j).Value = operation.Cells(1, 1).Value & " - " & equipe.Cells(1, 1).Value & " - " & changement.Cells(1, 1).Value
Else
Sheets("Macro Planning").Range("C" & j).Value = Sheets("Macro Planning").Range("C" & j).Value & Chr(10) & operation.Cells(1, 1).Value & " - " & equipe.Cells(1, 1).Value & " - " & changement.Cells(1, 1).Value
End If
End If
End If
Next
Next
Mon fichier est en PJ.
Par contre, je n'ai aucune idée de comment faire : passer par un tableau temporaire mis en forme et concaténer ensuite ? changer la couleur au fur et à mesure ? ...
Si quelqu'un a une réponse ou même une piste de réponse, je suis preneur.
Merci d'avance
Pièces jointes
Dernière édition: