Tableau de congé

Victor21 à dit:

Bonjour Valérie.

Pourquoi un onglet par mois ?
Plus d'1 million de lignes, et plus de 16000 colonnes.
Lorsque vous reviendrez pour demander des extractions, des stats, ou pour ajouter les autres types d'absence, ce sera plus simple de vous répondre si toutes vos données sont sur la même feuille.
-Une ligne par absence : Matricule, Nom, Prénom, Type d'absence, Début, Fin, Nb de jours pris en compte,...
-Pas de ligne vide.
Pour les couleurs et autres fioritures, c'est une fois que tout roule correctement qu'on s'y penche 😉

Cliquez pour agrandir...

Victor21 à dit:

Bonjour Valérie.

Pourquoi un onglet par mois ?
Plus d'1 million de lignes, et plus de 16000 colonnes.
Lorsque vous reviendrez pour demander des extractions, des stats, ou pour ajouter les autres types d'absence, ce sera plus simple de vous répondre si toutes vos données sont sur la même feuille.
-Une ligne par absence : Matricule, Nom, Prénom, Type d'absence, Début, Fin, Nb de jours pris en compte,...
-Pas de ligne vide.
Pour les couleurs et autres fioritures, c'est une fois que tout roule correctement qu'on s'y penche 😉

Cliquez pour agrandir...

vgendron à dit:

Hello

En reprenant le fichier "Congés 2018" qui te plait...
voici une proposition
regarde le code pour les commentaires..

hello @Victor21

Cliquez pour agrandir...

vserrano à dit:

j'ai cliqué sur ventilé mais ca ne coche pas dans le tableau voulu

Cliquez pour agrandir...

Sub Ventiler()
Application.ScreenUpdating = False
Dim JourToRecord, Deb, Fin As Date
With Sheets("Demande de congé")
    For i = 1 To .Range("TabDemande").Rows.Count
        Employé = .Range("TabDemande").Item(i, 1)
        TypeCongé = .Range("TabDemande").Item(i, 2)
       
        Deb = .Range("TabDemande").Item(i, 3)
        Fin = .Range("TabDemande").Item(i, 4)
        NbJours = Fin - Deb + 1
        'tester si Deb et Fin sont vides..
        If Deb = 0 Or Fin = 0 Then
            MsgBox Employé & " n'a pas saisi de dates"
        Else
            For j = 1 To NbJours
                JourToRecord = Deb + j - 1
                Mois = Format(JourToRecord, "mmmm")
                jour = Day(JourToRecord)
                'Tester si c'est un jour férié
                Set JF = Sheets("Tableau de bord").Range("Liste_JF").Find(JourToRecord)
                If JF Is Nothing And WorksheetFunction.Weekday(JourToRecord, 2) <= 5 Then
                    With Sheets(Mois)
                        .Activate
                        Set ligne = .Range("A:A").Find(Employé, LookIn:=xlValues, lookat:=xlWhole)
                        If Not ligne Is Nothing Then
                            .Cells(ligne.Row, jour + 2) = TypeCongé
                        End If
                    End With
                End If
            Next j
        End If
    Next i
End With
Application.ScreenUpdating = True
End Sub

Victor21 à dit:

RE, bonjour, vgendron.
Oubliez si vous avez lu, c'était une ânerie...

Cliquez pour agrandir...

vgendron à dit:

Sub Ventiler()
Application.ScreenUpdating = False
Dim JourToRecord, Deb, Fin As Date
With Sheets("Demande de congé")
For i = 1 To .Range("TabDemande").Rows.Count
Employé = .Range("TabDemande").Item(i, 1)
TypeCongé = .Range("TabDemande").Item(i, 2)

Deb = .Range("TabDemande").Item(i, 3)
Fin = .Range("TabDemande").Item(i, 4)
NbJours = Fin - Deb + 1
'tester si Deb et Fin sont vides..
If Deb = 0 Or Fin = 0 Then
MsgBox Employé & " n'a pas saisi de dates"
Else
For j = 1 To NbJours
JourToRecord = Deb + j - 1
Mois = Format(JourToRecord, "mmmm")
jour = Day(JourToRecord)
'Tester si c'est un jour férié
Set JF = Sheets("Tableau de bord").Range("Liste_JF").Find(JourToRecord)
If JF Is Nothing And WorksheetFunction.Weekday(JourToRecord, 2) <= 5 Then
With Sheets(Mois)
.Activate
Set ligne = .Range("A:A").Find(Employé, LookIn:=xlValues, lookat:=xlWhole)
If Not ligne Is Nothing Then
.Cells(ligne.Row, jour + 2) = TypeCongé
End If
End With
End If
Next j
End If
Next i
End With
Application.ScreenUpdating = True
End Sub

Cliquez pour agrandir...

vgendron à dit:

et m.. j'ai oublié de préciser qu'il fallait créer la zone "Liste_JF"

Voir PJ

Cliquez pour agrandir...