Microsoft 365 Effacer Données Jours fériés

[eric72]

Bonjour à tous,
Je me retrouve face à une égnime, je m'explique:
- J'ai un userform qui me permet de saisir des absences, par exemple TATA est en Congés payés du 23/12/2023 au 28/12/2023, j'aimerais qu'à la validation cela reporte dans mon tableau les jours ou TATA est en CP (ça j'y arrive), par contre j'aimerais que si il y a un jour férié, que cela reporte "Férié" au lieu de CP, et là je bloque.
Merci beaucoup pour votre aide (encore une fois).
Eric

 

[dysorthographie]

bonjour,
comment gère tu les samedi et le dimanche?

 

[eric72]

Bonjour,
je ne les gère pas du fait que les jours de fermeture ne sont pas forcément les mêmes, je ne m'occupe que des fériés.
Merci

 

[fanfan38]

Bonjour
Ci joint ma solution

A+ François

 

[TooFatBoy]

Bonjour,

Une proposition :

Sub Archive_Absence2()
'
Dim LigCible As Long, ColCible As Long, MaDateDebut As Long, MaDateFin As Long, lig As Long, col As Long, i As Long

    Application.ScreenUpdating = False

    MaDateDebut = CDate(UsfAjoutAbsence.TxtDebut)
    MaDateFin = CDate(UsfAjoutAbsence.TxtFin)

    With Sheets("Feuil1")

        Set lig = Application.Union(.Range("2:2"), .Range("8:8")).Find(UsfAjoutAbsence.CbNom, LookIn:=xlValues, lookat:=xlWhole)
        If lig Is Nothing Then Exit Sub
        LigCible = lig.Row

        Set col = Sheets("Feuil1").Range("1:1").Find(CDate(MaDateDebut), LookIn:=xlValues, lookat:=xlWhole)     'UsfAjoutAbsence.TxtDebut
        If col Is Nothing Then Exit Sub
        ColCible = col.Column

        Sheets("Feuil1").Cells(LigCible + 1, ColCible).Resize(1, CDate(MaDateFin) - CDate(MaDateDebut) + 1).Select
        Sheets("Feuil1").Cells(LigCible + 1, ColCible).Resize(1, CDate(MaDateFin) - CDate(MaDateDebut) + 1).Value = UsfAjoutAbsence.TxtInit
        Sheets("Feuil1").Cells(LigCible + 2, ColCible).Resize(4, CDate(MaDateFin) - CDate(MaDateDebut) + 1).Value = 0

        For i = MaDateDebut To MaDateFin
            If Not Range("t_Feries[Date]").Find(what:=CDate(i)) Is Nothing Then
                Sheets("Feuil1").Cells(LigCible + 1, ColCible + i - MaDateDebut).Value = "Férié"
            End If
        Next i

    End With

End Sub

 

[eric72]

Bonjour Fanfan38,
Merci beaucoup pour votre réponse, je vais essayer d'adapter, en fait ce que je souhaiterais c'est que ça efface en même temps les heures de la journée en exécutant ma macro ArchivAbs.
Merci beaucoup

 

[eric72]

Bonjour,

Une proposition :

Sub Archive_Absence2()
'
Dim LigCible As Long, ColCible As Long, MaDateDebut As Long, MaDateFin As Long, lig As Long, col As Long, i As Long

    Application.ScreenUpdating = False

    MaDateDebut = CDate(UsfAjoutAbsence.TxtDebut)
    MaDateFin = CDate(UsfAjoutAbsence.TxtFin)

    With Sheets("Feuil1")

        Set lig = Application.Union(.Range("2:2"), .Range("8:8")).Find(UsfAjoutAbsence.CbNom, LookIn:=xlValues, lookat:=xlWhole)
        If lig Is Nothing Then Exit Sub
        LigCible = lig.Row

        Set col = Sheets("Feuil1").Range("1:1").Find(CDate(MaDateDebut), LookIn:=xlValues, lookat:=xlWhole)     'UsfAjoutAbsence.TxtDebut
        If col Is Nothing Then Exit Sub
        ColCible = col.Column

        Sheets("Feuil1").Cells(LigCible + 1, ColCible).Resize(1, CDate(MaDateFin) - CDate(MaDateDebut) + 1).Select
        Sheets("Feuil1").Cells(LigCible + 1, ColCible).Resize(1, CDate(MaDateFin) - CDate(MaDateDebut) + 1).Value = UsfAjoutAbsence.TxtInit
        Sheets("Feuil1").Cells(LigCible + 2, ColCible).Resize(4, CDate(MaDateFin) - CDate(MaDateDebut) + 1).Value = 0

        For i = MaDateDebut To MaDateFin
            If Not Range("t_Feries[Date]").Find(what:=CDate(i)) Is Nothing Then
                Sheets("Feuil1").Cells(LigCible + 1, ColCible + i - MaDateDebut).Value = "Férié"
            End If
        Next i

    End With

End Sub

Bonjour,
Ca faisait longtemps...
Ca beug sur Set lig "Objet requis"!!!

 

[fanfan38]

Avec les 4 lignes effacées
A+ François

 

[eric72]

Re le fil,
Après une petite modif, ça a l'air de rouler impecc

Sub Archive_Absence2()
'
Dim LigCible As Long, ColCible As Long, MaDateDebut As Long, MaDateFin As Long, lig, col, i

    'Application.ScreenUpdating = False

    MaDateDebut = CDate(UsfAjoutAbsence.TxtDebut)
    MaDateFin = CDate(UsfAjoutAbsence.TxtFin)

    With Sheets("Feuil1")

        Set lig = Application.Union(.Range("2:2"), .Range("8:8")).Find(UsfAjoutAbsence.CbNom, LookIn:=xlValues, lookat:=xlWhole)
        If lig Is Nothing Then Exit Sub
        LigCible = lig.Row

        Set col = Sheets("Feuil1").Range("1:1").Find(CDate(MaDateDebut), LookIn:=xlValues, lookat:=xlWhole)
        If col Is Nothing Then Exit Sub
        ColCible = col.Column

        Sheets("Feuil1").Cells(LigCible + 1, ColCible).Resize(1, CDate(MaDateFin) - CDate(MaDateDebut) + 1).Select
        Sheets("Feuil1").Cells(LigCible + 1, ColCible).Resize(1, CDate(MaDateFin) - CDate(MaDateDebut) + 1).Value = UsfAjoutAbsence.TxtInit
        Sheets("Feuil1").Cells(LigCible + 2, ColCible).Resize(4, CDate(MaDateFin) - CDate(MaDateDebut) + 1).Value = 0

        For i = MaDateDebut To MaDateFin
            If Not Range("Ferie").Find(what:=CDate(i)) Is Nothing Then
                Sheets("Feuil1").Cells(LigCible + 1, ColCible + i - MaDateDebut).Value = "Férié"
            End If
        Next i

    End With
    End Sub

Merci beaucoup encore une fois à

TooFatBoy , fanfan38 et dysorthographie​

pour votre aide toujours aussi précieuse.
Bonne journée

 

[eric72]

Avec les 4 lignes effacées
A+ François

Super, merci beaucoup
Bonne journée

 

[TooFatBoy]

Ca beug sur Set lig "Objet requis"!!!

C'est pourtant ton propre code, et chez moi ça ne semble pas planter si les quatre champs du UserForm sont remplis correctement.

 

[eric72]

C'est pourtant ton propre code, et chez moi ça ne semble pas planter si les quatre champs du UserForm sont remplis correctement.

C'était juste le "as long" dans la déclaration des variables qui était en trop!!!

 

[TooFatBoy]

C'était juste le "as long" dans la déclaration des variables qui était en trop!!!

Au temps pour moi, c'est moi qui l'avais ajouté.