Discussion :

[hs.hs]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
 
 
Sub Presentation()
 
    With Worksheets("nombredetr")
        .Cells.Clear
        .Columns("A:A").ColumnWidth = 25
        .Range("A1").Value = "Nom et Prénom"
        .Range("B1").Value = "Code entreprise"
        .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    
 
        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é

PS: Pour les codes couleurs, j ai remarqué qu ils sont pas pareils sur les deux feuilles et ça c'est pas grave je vais adapter apres

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

Merci beaucoup