XL 2016 exclure des dates d'une propagation

halecs93

halecs93

XLDnaute Impliqué
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
 

Pièces jointes

  • HEURES TITULAIRES - modele v5.xlsm
    305.5 KB · Affichages: 2
Solution
sylvanu
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")...
Trier par date Trier par votes
halecs93

halecs93

XLDnaute Impliqué
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
 

Pièces jointes

  • HEURES TITULAIRES - modele v6 test.xlsm
    315.9 KB · Affichages: 3
Vote positif 0 Vote négatif
ChTi160

ChTi160

XLDnaute Barbatruc
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
 
Dernière édition:
Vote positif 0 Vote négatif
halecs93

halecs93

XLDnaute Impliqué
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
Cliquez pour agrandir...
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...
 
Vote positif 0 Vote négatif
ChTi160

ChTi160

XLDnaute Barbatruc
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).
Cliquez pour agrandir...
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...
Cliquez pour agrandir...
Bonne Journée
Jean marie
 
Vote positif 0 Vote négatif
sylvanu

sylvanu

XLDnaute Barbatruc
Supporter XLD
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.
 

Pièces jointes

  • HEURES TITULAIRES - modele v6 test (2).xlsm
    313.4 KB · Affichages: 5
Vote positif 0 Vote négatif
sylvanu

sylvanu

XLDnaute Barbatruc
Supporter XLD
Re,
Ceci dit, pour la gestion des jours de classe, le fichier de FredMa me semble beaucoup plus simple à gérer :
excel-downloads.com

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 excel-downloads.com
( voir fichier post #10 ... car ensuite le fichier se complique )
 
Vote positif 0 Vote négatif
halecs93

halecs93

XLDnaute Impliqué
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.
Cliquez pour agrandir...
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")
 
Vote positif 0 Vote négatif
sylvanu

sylvanu

XLDnaute Barbatruc
Supporter XLD
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.
 
Vote positif 0 Vote négatif
Solution
halecs93

halecs93

XLDnaute Impliqué
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.
Cliquez pour agrandir...
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
 
Vote positif 0 Vote négatif

Discussions similaires

O
  • Résolu(e)
Microsoft 365 Amélioration/réparation d'une Macro et création d'un bouton pour calcul consommation
2
Réponses
27
Affichages
525
Olihoes
O
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
1 K
ERIC S
ERIC S
P
  • Question
Microsoft 365 mise en forme conditionnelle d'une plage entre deux dates
Réponses
2
Affichages
2 K
piou14
P
A
  • Question
Microsoft 365 Compter les WE libres
19 20 21
Réponses
306
Affichages
30 K
Aloha
A
P
  • Question
XL 2019 ? planning extraire des données avec un roulement d'une semaine sur deux
2
Réponses
21
Affichages
3 K
Patchinette
P
Natsuko
  • Question
Microsoft 365 Planning Hebdomadaire équipe
Réponses
3
Affichages
3 K
Natsuko
Natsuko
A
  • Question
Sélectionner le bon item d'une ListBox après un tri des résultats
Réponses
2
Affichages
2 K
Axel19
A
N
  • Question
XL pour MAC Planning hotelier
Réponses
2
Affichages
1 K
Norbert73
N
D
  • Question
XL 2013 Graphiques combinés : comparaison de 2 années sur le même graphique
Réponses
11
Affichages
8 K
chris
chris
M
  • Question
Problèmes pour finaliser mon projet
Réponses
5
Affichages
970
Moniato
M

Membres actuellement en ligne

17 membres et 315 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
314 422
Messages
2 109 447
Membres
110 482
dernier inscrit
ilyxxxh