XL 2016 exclure des dates d'une propagation

halecs93 · 4 Novembre 2023

Bonjour,

Grâce à Sylvanu, j'ai pu grandement faire évoluer mon fichier.

Un simple clic et voilà que la semaine type, dans un planning, se propage sur toute l'année.

Je n'arrive pas à en exclure les dates qui se trouvent dans deux plages de données Vac et Fer.

Merci beaucoup

sylvanu · 5 Novembre 2023

Oups.

VB:

For Each F In Worksheets
        If F.Name <> "DONNEES" And F.Name <> "BIENVENUE" And F.Name <> "CONGÉS" And F.Name <> "RECAPITULATIF" And F.Name <> "FICHE INFOS CONTRAT" And F.Name <> "CALCULS" Then
            ' Vos opérations
            With F
                DL = .Cells(39, "B").Row
                .Range("B9:N39").ClearContents
                Formule = "=SI(OU($A9=0;$A9="""");"""";INDEX(DONNEES!$F$37:$R$43;JOURSEM($A9;2);COLONNE()-1))"
                .Range(.Cells(9, "B"), .Cells(DL, "N")).FormulaLocal = Formule
                .Range(.Cells(9, "B"), .Cells(DL, "N")) = .Range(.Cells(9, "B"), .Cells(DL, "N")).Value
            For L = 9 To 39             ' Efface si jour chomé.
                MaDate = .Cells(L, "A")...

halecs93 · 5 Novembre 2023

re... du coup, j'ai réussi à faire un bricolage.... en exécutant 2 macros, l'une à la suite de l'autre. Mais je trouve cela laborieux. Peux mieux faire

Sans doute quelqu'un trouvera une meilleure solution

Merci à tout le monde

ChTi160 · 5 Novembre 2023

Bonjour halecs93
Pas évident de s'y retrouver un beau fichier dont tu maitrise l'utilisation pas pas Nous Lol
Pourrais-tu être plus explicite et Nous expliquer ce que tu veux par l'exemple, l'explication.
Quelles sont les Macros etc etc...
une première proposition pourquoi trois Boucles ?

VB:

Sub Propager()
    Application.ScreenUpdating = False
    Dim F As Worksheet
    For Each F In Worksheets
        With F 'avec la feuille
                 .Unprotect 'Ici Déprotection de la feuille
        If .Name <> "DONNEES" And .Name <> "BIENVENUE" And .Name <> "CONGÉS" And _
                    .Name <> "RECAPITULATIF" And .Name <> "FICHE INFOS CONTRAT" And .Name <> "CALCULS" Then
            ' Vos opérations
                DL = .Cells(39, "B").Row

                .Range("B9:N39").ClearContents
                Formule = "=SI(OU($A9=0;$A9="""");"""";INDEX(DONNEES!$F$37:$R$43;JOURSEM($A9;2);COLONNE()-1))"
                .Range(.Cells(9, "B"), .Cells(DL, "N")).FormulaLocal = Formule
                .Range(.Cells(9, "B"), .Cells(DL, "N")) = .Range(.Cells(9, "B"), .Cells(DL, "N")).Value
            End With
        End If
          .Protect 'Ici  ' Protection de toutes les feuilles
       End With
    Next F
End Sub

Bonne Journée
Jean marie

halecs93 · 5 Novembre 2023

ChTi160 à dit:

Bonjour halecs93
Pas évident de s'y retrouver un beau fichier dont tu maitrise l'utilisation pas pas Nous Lol
Pourrais-tu être plus explicite et Nous expliquer ce que tu veux par l'exemple, l'explication.
Quelles sont les Macros etc etc...
une première proposition pourquoi trois Boucles ?

VB:

Sub Propager()
    Application.ScreenUpdating = False
    Dim F As Worksheet
   'supprimer'
    ' Déprotection de toutes les feuilles
    ' For Each F In Worksheets
    '    F.Unprotect
    ' Next F

    For Each F In Worksheets
                F.Unprotect 'Ici Déprotection de toutes les feuilles
        If F.Name <> "DONNEES" And F.Name <> "BIENVENUE" And F.Name <> "CONGÉS" And F.Name <> "RECAPITULATIF" And F.Name <> "FICHE INFOS CONTRAT" And F.Name <> "CALCULS" Then
            ' Vos opérations
            With F
                DL = .Cells(39, "B").Row
                .Range("B9:N39").ClearContents
                Formule = "=SI(OU($A9=0;$A9="""");"""";INDEX(DONNEES!$F$37:$R$43;JOURSEM($A9;2);COLONNE()-1))"
                .Range(.Cells(9, "B"), .Cells(DL, "N")).FormulaLocal = Formule
                .Range(.Cells(9, "B"), .Cells(DL, "N")) = .Range(.Cells(9, "B"), .Cells(DL, "N")).Value
            End With
        End If
          F.Protect 'Ici  ' Protection de toutes les feuilles
    Next F
' supprimer
    ' Protection de toutes les feuilles
    'For Each F In Worksheets
    '    F.Protect
    ' Next F
End Sub

Bonne Journée
Jean marie

Dans un premier temps, merci pour vous être penché sur mon fichier...bricolé.

En ce qui concerne cette propagation, le but serait d'éviter de propager lorsque les jours sont en période de vacances (Vac) ou fériés (Fer).

Grâce à Sylvanu, la propagation a pu se faire... c'est ensuite que je n'ai pas réussi proprement...

ChTi160 · 5 Novembre 2023

Re
ça , c'était très Clair et j'avais compris Lol

En ce qui concerne cette propagation, le but serait d'éviter de propager lorsque les jours sont en période de vacances (Vac) ou fériés (Fer).

je pense que Sylvanu (que je salue !) va passer par ici !

Grâce à Sylvanu, la propagation a pu se faire... c'est ensuite que je n'ai pas réussi proprement...

Bonne Journée
Jean marie

sylvanu · 5 Novembre 2023

Bonjour Halecs, Chti,
Ce fichier est devenu une vrai usine à gaz. Il est difficile de s'y retrouver.
Un essai en PJ où j'ai juste modifie Propager avec :

VB:

    For Each F In Worksheets
        If F.Name <> "DONNEES" And F.Name <> "BIENVENUE" And F.Name <> "CONGÉS" And F.Name <> "RECAPITULATIF" And F.Name <> "FICHE INFOS CONTRAT" And F.Name <> "CALCULS" Then
            ' Vos opérations
            With F
                DL = .Cells(39, "B").Row
                .Range("B9:N39").ClearContents
                Formule = "=SI(OU($A9=0;$A9="""");"""";INDEX(DONNEES!$F$37:$R$43;JOURSEM($A9;2);COLONNE()-1))"
                .Range(.Cells(9, "B"), .Cells(DL, "N")).FormulaLocal = Formule
                .Range(.Cells(9, "B"), .Cells(DL, "N")) = .Range(.Cells(9, "B"), .Cells(DL, "N")).Value
            End With
            For L = 9 To 39             ' Efface si jour chomé.
                MaDate = .Cells(L, "A")
                If Application.WorksheetFunction.CountIf(wsDonnees.Range("B2:B14"), MaDate) > 0 Or _
                    Application.WorksheetFunction.CountIf(wsDonnees.Range("D3:I33"), MaDate) > 0 Then
                    .Range("B" & L & ":N" & L).ClearContents
                End If
            Next L
        End If
    Next F

Mais incapable de véritablement teste.

sylvanu · 5 Novembre 2023

Re,
Ceci dit, pour la gestion des jours de classe, le fichier de FredMa me semble beaucoup plus simple à gérer :

XL 2019 - Générer liste des jours de classe (L-M-J-V) en retirant vacances et jours fériés

Bonjour, Je cherche à générer la liste des jours de classes d'une année scolaire en retirant : - les mercredis, samedis, dimanches, - les jours de vacances, - les jours fériés. J'arrive avec la formule =SERIE.JOUR.OUVRE à exclure les we et jours fériés... =SERIE.JOUR.OUVRE(B2;1;A2:A10) ou la...

excel-downloads.com

( voir fichier post #10 ... car ensuite le fichier se complique )

halecs93 · 5 Novembre 2023

sylvanu à dit:

Bonjour Halecs, Chti,
Ce fichier est devenu une vrai usine à gaz. Il est difficile de s'y retrouver.
Un essai en PJ où j'ai juste modifie Propager avec :

VB:

    For Each F In Worksheets
        If F.Name <> "DONNEES" And F.Name <> "BIENVENUE" And F.Name <> "CONGÉS" And F.Name <> "RECAPITULATIF" And F.Name <> "FICHE INFOS CONTRAT" And F.Name <> "CALCULS" Then
            ' Vos opérations
            With F
                DL = .Cells(39, "B").Row
                .Range("B9:N39").ClearContents
                Formule = "=SI(OU($A9=0;$A9="""");"""";INDEX(DONNEES!$F$37:$R$43;JOURSEM($A9;2);COLONNE()-1))"
                .Range(.Cells(9, "B"), .Cells(DL, "N")).FormulaLocal = Formule
                .Range(.Cells(9, "B"), .Cells(DL, "N")) = .Range(.Cells(9, "B"), .Cells(DL, "N")).Value
            End With
            For L = 9 To 39             ' Efface si jour chomé.
                MaDate = .Cells(L, "A")
                If Application.WorksheetFunction.CountIf(wsDonnees.Range("B2:B14"), MaDate) > 0 Or _
                    Application.WorksheetFunction.CountIf(wsDonnees.Range("D3:I33"), MaDate) > 0 Then
                    .Range("B" & L & ":N" & L).ClearContents
                End If
            Next L
        End If
    Next F

Mais incapable de véritablement teste.

Hello et merci.

je rencontre une "Erreur de compilation - Référence incorrecte ou non qualifiée" concernant Cells à la ligne MaDate = .Cells(L, "A")

sylvanu · 5 Novembre 2023

Oups.

VB:

For Each F In Worksheets
        If F.Name <> "DONNEES" And F.Name <> "BIENVENUE" And F.Name <> "CONGÉS" And F.Name <> "RECAPITULATIF" And F.Name <> "FICHE INFOS CONTRAT" And F.Name <> "CALCULS" Then
            ' Vos opérations
            With F
                DL = .Cells(39, "B").Row
                .Range("B9:N39").ClearContents
                Formule = "=SI(OU($A9=0;$A9="""");"""";INDEX(DONNEES!$F$37:$R$43;JOURSEM($A9;2);COLONNE()-1))"
                .Range(.Cells(9, "B"), .Cells(DL, "N")).FormulaLocal = Formule
                .Range(.Cells(9, "B"), .Cells(DL, "N")) = .Range(.Cells(9, "B"), .Cells(DL, "N")).Value
            For L = 9 To 39             ' Efface si jour chomé.
                MaDate = .Cells(L, "A")
                If Application.WorksheetFunction.CountIf(wsDonnees.Range("B2:B14"), MaDate) > 0 Or _
                    Application.WorksheetFunction.CountIf(wsDonnees.Range("D3:I33"), MaDate) > 0 Then
                    .Range("B" & L & ":N" & L).ClearContents
                End If
            Next L
            End With
        End If
    Next F

MaDate doit être dans le With pour connaitre la feuille parent.

halecs93 · 5 Novembre 2023

sylvanu à dit:

Oups.

VB:

For Each F In Worksheets
        If F.Name <> "DONNEES" And F.Name <> "BIENVENUE" And F.Name <> "CONGÉS" And F.Name <> "RECAPITULATIF" And F.Name <> "FICHE INFOS CONTRAT" And F.Name <> "CALCULS" Then
            ' Vos opérations
            With F
                DL = .Cells(39, "B").Row
                .Range("B9:N39").ClearContents
                Formule = "=SI(OU($A9=0;$A9="""");"""";INDEX(DONNEES!$F$37:$R$43;JOURSEM($A9;2);COLONNE()-1))"
                .Range(.Cells(9, "B"), .Cells(DL, "N")).FormulaLocal = Formule
                .Range(.Cells(9, "B"), .Cells(DL, "N")) = .Range(.Cells(9, "B"), .Cells(DL, "N")).Value
            For L = 9 To 39             ' Efface si jour chomé.
                MaDate = .Cells(L, "A")
                If Application.WorksheetFunction.CountIf(wsDonnees.Range("B2:B14"), MaDate) > 0 Or _
                    Application.WorksheetFunction.CountIf(wsDonnees.Range("D3:I33"), MaDate) > 0 Then
                    .Range("B" & L & ":N" & L).ClearContents
                End If
            Next L
            End With
        End If
    Next F

MaDate doit être dans le With pour connaitre la feuille parent.

Re... cette fois, ça plantait au niveau de wsDonnees... en effet, dans le code c'est F qui était déclaré comme worksheet. Une petite modif et à priori tout fonctionne parfaitement maintenant. Un grand merci

sylvanu · 5 Novembre 2023

Mais regardez le post #7. Ce fichier devrait simplifier le votre.
Mais reste à savoir s'il est sage de toucher à votre fichier qui est devenu très complexe, tout du moins à le comprendre.

ChTi160 · 5 Novembre 2023

Re
Bonsoir le Fil

wsDonnees est je pense la Variable Worksheet qui correspond a la Feuille "DONNEES"!

VB:

Dim wsDonnees as WorkSheet
Set wsDonnees=Worksheets("DONNEES")

Jean marie

halecs93 · 5 Novembre 2023

sylvanu à dit:
Mais regardez le post #7. Ce fichier devrait simplifier le votre.
Mais reste à savoir s'il est sage de toucher à votre fichier qui est devenu très complexe, tout du moins à le comprendre.

J'avais déjà consulté ce post. Très intéressant.... mais en effet, encore plus complexe à intégrer

XL 2016 exclure des dates d'une propagation

halecs93

XLDnaute Impliqué

Pièces jointes

sylvanu

halecs93

XLDnaute Impliqué

Pièces jointes

ChTi160

XLDnaute Barbatruc

halecs93

XLDnaute Impliqué

ChTi160

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

XL 2019 - Générer liste des jours de classe (L-M-J-V) en retirant vacances et jours fériés

halecs93

XLDnaute Impliqué

sylvanu

XLDnaute Barbatruc

halecs93

XLDnaute Impliqué

sylvanu

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

halecs93

XLDnaute Impliqué

Discussions similaires