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

eric72 · 30 Octobre 2023

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

eric72 · 30 Octobre 2023

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

VB:

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...

dysorthographie · 30 Octobre 2023

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

eric72 · 30 Octobre 2023

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 · 30 Octobre 2023

Bonjour
Ci joint ma solution

A+ François

TooFatBoy · 30 Octobre 2023

Bonjour,

Une proposition :

VB:

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 · 30 Octobre 2023

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 · 30 Octobre 2023

TooFatBoy à dit:

Bonjour,

Une proposition :

VB:

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 · 30 Octobre 2023

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

eric72 · 30 Octobre 2023

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

VB:

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 · 30 Octobre 2023

fanfan38 à dit:
Avec les 4 lignes effacées
A+ François

Super, merci beaucoup
Bonne journée

TooFatBoy · 30 Octobre 2023

eric72 à dit:
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 · 30 Octobre 2023

TooFatBoy à dit:
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 · 30 Octobre 2023

eric72 à dit:
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é.

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

eric72

XLDnaute Accro

Pièces jointes

eric72

dysorthographie

XLDnaute Accro

eric72

XLDnaute Accro

fanfan38

XLDnaute Barbatruc

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

eric72

XLDnaute Accro

eric72

XLDnaute Accro

fanfan38

XLDnaute Barbatruc

Pièces jointes

eric72

XLDnaute Accro

TooFatBoy , fanfan38 et dysorthographie

eric72

XLDnaute Accro

TooFatBoy

XLDnaute Barbatruc

eric72

XLDnaute Accro

TooFatBoy

XLDnaute Barbatruc

Discussions similaires

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

XLDnaute Accro

Pièces jointes

XLDnaute Accro

XLDnaute Accro

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Accro

XLDnaute Accro

XLDnaute Barbatruc

Pièces jointes

XLDnaute Accro

TooFatBoy , fanfan38 et dysorthographie​

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Accro

XLDnaute Barbatruc

Discussions similaires

TooFatBoy , fanfan38 et dysorthographie