Feuille modèle

Bonjour,

Avant tout, tu peux te demander si tu utilises la bonne manière pour obtenir le résultat recherché. Il vaudrait peut-être mieux que tu disposes d'un masque pour l'affichage des données et d'une base de données.
https://www.cjoint.com/?CIoj1G7MmvN
A+

Merci Gyrus pour ton travail.

En réalité, c'est assez éloigné de l'objectif.
Je ne cherche pas à récupérer des données dans plusieurs feuilles, mais à appliquer une mise en forme particulière à ma feuille Masque, avec répercussion immédiate sur toutes les feuilles basées sur Modèle.

Exemple dans une macro qui ressemblerait à ça :

Feuille "Chris ANTHEM" : masque="Modèle"
Feuille "Marc EURITHE" : masque="Modèle"
Feuille "Anne HEMMONNE" : masque="Modèle"
Si : Insertion Ligne entre L5 et L6 sur Modèle
Alors : Insertion Ligne entre L5 et L6 sur toutes les feuilles ayant pour masque "Modèle".
Si : Caractère gras en E18 sur Modèle
Alors : Caractère gras en E18 sur toutes les feuilles ayant pour masque "Modèle".

Est-ce faisable ?
Merci d'avance !

Bonjour,

à tester :

Sub formaterFeuille()
    Dim sh As Worksheet
    For Each sh In Worksheets
        If InStr("Accueil,Masque", sh.Name) = 0 Then
            Worksheets("Masque").Cells.Copy
            sh.[A1].PasteSpecial Paste:=xlPasteFormats
            sh.[A1].PasteSpecial Paste:=xlPasteColumnWidths
        End If
    Next sh
End Sub

eric

Bonjour Eric !

Les meilleurs s'y mettent ...

Malheureusement aucun effet sur mes feuilles.

J'essaie de comprendre le code (que j'ai collé dans ThisWorkBook) :

Sub formaterFeuille() 'nom de la macro
Dim sh As Worksheet 'sélection des feuilles
For Each sh In Worksheets 'pour toutes les feuilles contenant "sh"
If InStr("Masque", sh.Name) = 0 Then 'si on fait des modifs dans Masque
Worksheets("Masque").Cells.Copy 'on copie Masque dans le Presse-papiers
sh.[A1].PasteSpecial Paste:=xlPasteFormats 'on colle les formats dans les feuilles contenant "sh"
sh.[A1].PasteSpecial Paste:=xlPasteColumnWidths 'on colle la même largeur de colonne dans les feuilles contenant "sh"
End If
Next sh
End Sub

C'est plutôt bien parti pourtant. où ça cloche ? Merci d'avance !

En fait je viens de voir que ça fonctionne partiellement :
Mais je dois faire Alt+F8 et exécuter la macro qui est dans ThisWorkBook.

Comment automatiser la tâche dès qu'il y a une modif dans Masque ?

Merci !

En fait je viens de voir que ça fonctionne partiellement :
Mais je dois faire Alt+F8 et exécuter la macro qui est dans ThisWorkBook.
Comment automatiser la tâche dès qu'il y a une modif dans Masque ?
Pourquoi la mettre dans Thisworkbook ? Pas d'intérêt.
Sinon un changement de format n'est pas un évènement, il faudra toujours la lancer. Tu peux toujours mettre un bouton sur la feuille.

eric

Bonjour Eric et les autres

J'ai passé pas mal de temps sur ta macro, Eric.
C'est tout à fait ce que je voulais et me fera gagner beaucoup de temps.

Par contre j'ai un petit bug noté "Erreur d'exécution '1004' : "La méthode Activate de la classe Range a échoué".

Il semble qu'il y ait une incompatibilité entre 2 macros du classeur : la tienne et :

Option Explicit
Private Sub Workbook_Open() ' ouverture du fichier sur le 1er onglet
Sheets(1).Activate
[A1].Activate
End Sub
Private Sub Workbook_SheetActivate(ByVal sh As Object) 'ouverture de chaque feuille en A1
sh.[A1].Activate
End Sub

Le bug concerne l'ouverture de chaque feuille en A1.

Puis-je vous demander s'il y a une solution ?

Merci d'avance et bon dimanche !

Voici le fichier exemple :

https://www.cjoint.com/?CIpjTVq2Y1X

Une pression sur le bouton Formater selon Masque fait apparaître le bug.

une question d'ordre d'exécution des macros ?

Merci !!!

En effet, adaptée à mon classeur, tes macros fonctionnent au poil !

Pour comprendre :
- "on ne va copier les formats que sur la plage utilisée" : qu'est-ce que ça signifie ?

- "For Each sh In Worksheets" : qu'est-ce que désigne le "sh" ? Pourquoi on l'utilise ?

Pardon pour ces questions mais j'aimerai vraiment piger un tout petit peu ... :)

C'est très clair à présent.

J'ai encore d'autres idées pour optimiser la fonction, mais je vais essayer seul.

Un grand merci Eric pour ton travail désintéressé.
Toute la communauté te doit beaucoup.

Bonjour à tous.

Je reviens vers vous à propos de la macro d'Eriic qui fonctionne exactement comme je le souhaitais.

J'ai une demande supplémentaire, complétant cette macro doit je rappelle le code :
----------------------------------------
Sub FormaterSelonMasque()
Dim sh As Worksheet
For Each sh In Worksheets
If InStr("2013,2012,Labos,Listes,Stats,Essais,Graphique,Masque", sh.Name) = 0 Then
With Worksheets("Masque")
.Range("A1", .Cells.SpecialCells(xlCellTypeLastCell)).Copy
End With
sh.[A1].PasteSpecial Paste:=xlPasteFormats
sh.[A1].PasteSpecial Paste:=xlPasteColumnWidths
End If
Next sh
Application.CutCopyMode = False
End Sub
----------------------------------------

J'aimerais ajouter :
- copier contenu texte de la colonne A sur toutes les feuilles concernées et :
- copier contenu texte de la ligne 24 sur toutes les feuilles concernées.

J'ai bien trouvé la fonction .PasteSpecial xlPasteValues mais en essayant j'ai fait planter Excel ... champion !

Merci d'avance pour votre aide qui m'est si précieuse !

Bonsoir,

si tu n'as pas de formules en colonne A et en ligne 24, ceci devrait suffire :

Sub FormaterSelonMasque()
    Dim sh As Worksheet
    For Each sh In Worksheets
        If InStr("2013,2012,Labos,Listes,Stats,Essais,Graphique,Masque", sh.Name) = 0 Then
            With Worksheets("Masque")
                .Columns(1).Copy sh.Columns(1)
                .Rows(24).Copy sh.Rows(24)
                .Range("A1", .Cells.SpecialCells(xlCellTypeLastCell)).Copy
                sh.[A1].PasteSpecial Paste:=xlPasteFormats
                sh.[A1].PasteSpecial Paste:=xlPasteColumnWidths
            End With
        End If
    Next sh
    Application.CutCopyMode = False
End Sub

eric

Bonsoir Eriic

Sympa de t'y remettre !

En effet ça va comme prévu.
Par contre y a-t-il moyen de créer des zones à copier ?
Un peu comme .(A1:A24).Copy sh.(A1:A24)

Je complique encore une dernière fois un petit peu :
Il y a, sur certaines cellules de la feuille Masque, des listes déroulantes que je ne retrouve pas sur les autres feuilles.
Par contre, les formules se recopient bien.

Est-ce possible ?

Merci encore, c'est fort appréciable d'être aidé.

Bonjour Eriic

J'ai recréé les conditions de mon fichier original dans :
https://www.cjoint.com/?CIvjpUnvcov
J'ai noté les problèmes rencontrés en rouge.

Merci d'avance j'avance !

ok,

Déjà supprime les lignes et colonnes vides qui ne servent à rien dans ta feuille Listes et utilise des noms dynamique :
Préférence: =DECALER(Listes!$A$2;;;NBVAL(Listes!$A:$A)-1;)

Pareil pour les autres et tu n'as plus à t'en préoccuper. Elles s'adapteront automatiquement.

eric

Bonsoir Eric et les autres ...

J'ai pu appliquer avec succès tes conseils et la formule DECALER.
C'est vrai que ça m'a considérablement simplifié la life.

J'ai repris une à une toutes mes fiches clients et appliqué des listes déroulantes du type "=Fonctions" à toutes les fiches.

Les listes déroulantes ne se recopient pas avec la macro, mais ce n'est pas bien grave puisque les nouvelles fiches seront issues d'une copie du masque.

Un grand merci pour ta patience, sujet doublement résolu !

Bonne soirée