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.