XL 2010 mise à jour automatique mise en forme conditionnelle sur plusieurs feuilles

[atd49]

Bonjour

Sur excel 2010 est-il possible de mettre automatiquement une mise en forme automatique sur 52 feuilles (52 semaines).
Principe en modifiant la 1ère feuille les autres se mettent à jour automatiquement

Merci

 

[Staple1600]

Bonjour le fil, atd49

Oui, c'est possible avec FillAcrossSheets.

 

[Staple1600]

Re

Un exemple issu du passé
(pas si vieux au demeurant, octobre 2019)

Sub Recyclage_mars2020()
'Déclarations variables
Dim ws As Worksheet, rngSource As Range, vArr, i&
'Définition du modéle (plage sur la feuille Couleurs)
Set rngSource = Sheets("1").Range("A1").CurrentRegion
'création de la liste des feuilles (Menu exclue) dans le tableau vArr (tableau <-> Array)
With CreateObject("System.Collections.ArrayList")
  For Each ws In Worksheets
  If Val(ws.Name) >= 1 And Val(ws.Name) <= 52 Then .Add ws.Name
  Next
  vArr = .toArray
End With
On Error Resume Next ' au cas où
'recopie du modèle (formule et format inclus) sur toutes les feuilles présentes dans vArr
Worksheets(vArr).FillAcrossSheets rngSource
End Sub
'source:
'https://www.excel-downloads.com/threads/procedure-tres-lente-boucle-pour-inserer-des-colonnes-et-des-formules.20037626/post-20268730

PS: Ne fonctionne que sur PC sous Windows.
Je te laisse tester si les MFC sont recopiées.
(Mon test est OK sur les valeurs et les formats)