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

  • Initiateur de la discussion Initiateur de la discussion atd49
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

atd49

XLDnaute Nouveau
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
 
Re

Un exemple issu du passé 😉
(pas si vieux au demeurant, octobre 2019)
VB:
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)
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
131
Réponses
2
Affichages
103
Réponses
6
Affichages
159
Retour