XL 2016 Propagation de données

sylvanu à dit:

Bonjour Halecs,
Le problème est de savoir si le contenu de ces 31 feuilles serviront pour d'autres calculs dans d'autres feuilles.
Si ce n'est pas le cas, le plus rapide est de rafraichir ces feuilles lorsqu'on les sélectionne. C'est le plus simple et le moins lourd en termes de temps, avec une macro Worksheet_Activate.
Cependant comme elles ne sont actualisées que lorsqu'elles sont sélectionnées, leurs données ne seront pas à jour si vous aviez une autre feuille qui utilisent ces données. ( sauf si à ce moment vous réactualisez chaque feuille )
Par ex dans chaque feuille :

VB:

Sub Worksheet_Activate()
Application.ScreenUpdating = False
DL = Cells(Cells.Rows.Count, "A").End(xlUp).Row
DC = Cells(1, Columns.Count).End(xlToLeft).Column
Formule = "=INDEX(Feuil1!B$1:L$7;JOURSEM($A1;2);COLONNE()-1)"   ' Formule à mettre à jour
Range(Cells(1, "B"), Cells(DL, DC)).FormulaLocal = Formule
Range(Cells(1, "B"), Cells(DL, DC)) = Range(Cells(1, "B"), Cells(DL, DC)).Value
End Sub

Cliquez pour agrandir...

sylvanu à dit:

Bonjour Halecs,
Le problème est de savoir si le contenu de ces 31 feuilles serviront pour d'autres calculs dans d'autres feuilles.
Si ce n'est pas le cas, le plus rapide est de rafraichir ces feuilles lorsqu'on les sélectionne. C'est le plus simple et le moins lourd en termes de temps, avec une macro Worksheet_Activate.
Cependant comme elles ne sont actualisées que lorsqu'elles sont sélectionnées, leurs données ne seront pas à jour si vous aviez une autre feuille qui utilisent ces données. ( sauf si à ce moment vous réactualisez chaque feuille )
Par ex dans chaque feuille :

VB:

Sub Worksheet_Activate()
Application.ScreenUpdating = False
DL = Cells(Cells.Rows.Count, "A").End(xlUp).Row
DC = Cells(1, Columns.Count).End(xlToLeft).Column
Formule = "=INDEX(Feuil1!B$1:L$7;JOURSEM($A1;2);COLONNE()-1)"   ' Formule à mettre à jour
Range(Cells(1, "B"), Cells(DL, DC)).FormulaLocal = Formule
Range(Cells(1, "B"), Cells(DL, DC)) = Range(Cells(1, "B"), Cells(DL, DC)).Value
End Sub

Cliquez pour agrandir...

sylvanu à dit:

Re,
Le but quand on sélectionne une feuille est de faire exactement ce que vous faites en formules. Mais ensuite un copier coller valeurs permet de ne pas alourdir le fichier ni de le ralentir.
A adapter suivant vos besoins, evidemment.

Cliquez pour agrandir...

sylvanu à dit:

Par ex, dans la PJ, lorsque vous sélectionnez une feuille mensuelle alors celle ci est mise à jour comme avec vos propres calculs, mais se termine par un copier coller valeurs.

Cliquez pour agrandir...

sylvanu à dit:

Par ex, dans la PJ, lorsque vous sélectionnez une feuille mensuelle alors celle ci est mise à jour comme avec vos propres calculs, mais se termine par un copier coller valeurs.

Cliquez pour agrandir...

halecs93 à dit:

'idée est de propager une semaine type (feuil1) dans toutes les autres

Cliquez pour agrandir...

Sub Propager()
Application.ScreenUpdating = False
For Each F In Worksheets
    If F.Name <> "Entete" Then
        With Sheets(F.Name)
            DL = .Cells(Cells.Rows.Count, "A").End(xlUp).Row
            DC = .Cells(1, Columns.Count).End(xlToLeft).Column
            .[B1:K32].ClearContents
            Formule = "=INDEX(Entete!B$1:L$7;JOURSEM($A1;2);COLONNE()-1)"   ' Formule à mettre à jour
            .Range(.Cells(1, "B"), .Cells(DL, DC)).FormulaLocal = Formule
            .Range(.Cells(1, "B"), .Cells(DL, DC)) = .Range(.Cells(1, "B"), .Cells(DL, DC)).Value
        End With
    End If
Next F
End Sub

sylvanu à dit:

Alors votre demande initiale était trop flou.
Un essai en PJ avec :

VB:

Sub Propager()
Application.ScreenUpdating = False
For Each F In Worksheets
    If F.Name <> "Entete" Then
        With Sheets(F.Name)
            DL = .Cells(Cells.Rows.Count, "A").End(xlUp).Row
            DC = .Cells(1, Columns.Count).End(xlToLeft).Column
            .[B1:K32].ClearContents
            Formule = "=INDEX(Entete!B$1:L$7;JOURSEM($A1;2);COLONNE()-1)"   ' Formule à mettre à jour
            .Range(.Cells(1, "B"), .Cells(DL, DC)).FormulaLocal = Formule
            .Range(.Cells(1, "B"), .Cells(DL, DC)) = .Range(.Cells(1, "B"), .Cells(DL, DC)).Value
        End With
    End If
Next F
End Sub

La macro, par appui sur le bouton, actualise toutes les pages, exceptée Entete.

Cliquez pour agrandir...

sylvanu à dit:

Re,
Avec ma PJ ???
Sur mon PC, avec ma PJ sans aucune modification, si je met ça en feuille Entete :
Regarde la pièce jointe 1182680
J'obtiens ça sur toutes les feuilles.
Regarde la pièce jointe 1182681

Cliquez pour agrandir...

halecs93 à dit:

si j'efface la plage de cellule B1:K1

Cliquez pour agrandir...

sylvanu à dit:

B1:K1 de quelle feuille ?
J'ai fait les tests en supprimant B1:K1 sur chaque feuille, et je ne reproduit pas votre phénomène.
Peut être qu'avec un PJ "vraiment" représentative, on éviterai les allers retours.

Cliquez pour agrandir...