Afficher sur le tableau un salarié pour chaque congé

Bonjour le Forum,

Je dois créer un fichier CSV avec des informations sur les salariés et leurs congés

En fait, mon tableau doit avoir une ligne pour chaque congé pris par un salarié cad si un salarié a pris deux conges en un mois je dois avoir sur mon tableau 2 fois son nom avec les informations qui vont avec qui seront son nom et prenom, le code de l entreprise, son matricule le code du congé la date de debut la date de fin plage de debut(journee matin aprem) plage de fin

le probleme c est que la feuille ou il y a chaque salarié et ses congés est sous forme de tableaux avec des codes couleurs (capture1)

et la feuille ou il y a les codes rubriques c est une autre feuille.(capture 2)

Voila le tableau que j'ai pour le moment

et le code qui me sort ce tableau

Sub Presentation()

    With Worksheets("nombredetr")
        .Cells.Clear
        .Columns("A:A").ColumnWidth = 25
        .Range("A1").Value = "Nom et Prénom"
        .Range("B1").Value = "Code VAT System"
        .Range("C1").Value = "Code Salarié"
        .Range("D1").Value = "Code Rubrique"
        .Range("E1").Value = "Date de début"
        .Range("F1").Value = "Date de Fin"
        .Range("G1").Value = "Plage de début"
        .Range("H1").Value = "Plage de Fin"

        Set nombredetr_A2 = .Range("A2")     'première cellule à remplir
    End With

    With Worksheets("nombredetr").Range("A1:H1").Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .Color = 6299648
            .TintAndShade = 0
            .PatternTintAndShade = 0
    End With

    With Worksheets("nombredetr").Range("A1:H1").Font
            .ThemeColor = xlThemeColorDark1
            .TintAndShade = 0
           ' .HorizontalAlignment = xlCenter
          '  .Borders.Weight = xlThin
    End With

    With Worksheets("Détails").UsedRange    'plage utilisée
        J = 0
        For I = 2 To .Rows.Count
            If .Range("C" & I) <> "" Then
                nombredetr_A2.Offset(J) = .Range("A" & I) & " " & .Range("B" & I)
                J = J + 1
            End If
        Next I

For I = 2 To .Rows.Count
Worksheets("nombredetr").Range("B" & I).Value = "vatcode"
Next

J = 2
For I = 2 To .Rows.Count
   If Worksheets("Détails").Range("C" & I) <> "" Then
      Worksheets("nombredetr").Range("C" & J) = Worksheets("Détails").Range("C" & I)
      J = J + 1
   End If
Next I
End With

End Sub

Je vois pas comment je pourrai faire pour dire en vba Pour chaque congé ajouter une ligne d'un salarié ni comment recuperer les dates et les codes parce que c'est pas du texte c est des couleurs.

Ci-joint les captures 1 et 2

capture1 c est la feuille planning_conges.xls ou il y a le nom des salariés les congés qu ils ont eu le type du congé la date la plage

Chaque cellule est soit disant composé en deux (matin, apresmidi)

Capture2 c est la feuille rubrique où il y a le code rubrique des code congés et le libellé

SI vous avez des idées ou des astuces dites moi s'il vous plait

Merci beaucoup

Bonjour,

aucune idée mais personne (ou presque) ne saura t'aider sur une image et un code VBA... il faut voir le fichier excel

P.

Ci joint le fichier excel

Merci pour avoir fait la remarque