Feuille modèle Résolu/Fermé

Question

Bonjour à toute la communauté.

J'ai ma crise Excel en ce moment, et j'ai besoin d'un coup de main de votre part pour ce que je ne parviens pas à faire.

Je ne sais trop comment m'y prendre, mais j'aimerai créer un fichier client dont toutes les feuilles (existantes et nouvellement créées) aient pour modèle une feuille nommée "Masque".

Si un changement est effectué sur la feuille "Masque" (ajout colonne, ligne, mise en gras par exemple), ce changement se répercuterait sur toutes les feuilles clients basées sur ce modèle "Masque".

Pour plus de facilité, voici un fichier exemple :

	https://www.cjoint.com/?CIojuotkcal

Merci d'avance pour vos idées constructives !

Configuration: Windows 7 / /Excel 2010 / Firefox 23.0

Gyrus · Answer

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+

touroul · Answer

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 !

eriiic · Answer

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 shEnd Sub
eric

touroul · Answer

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 !

touroul · Answer

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 !

eriiic · Answer

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

touroul · Answer

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 !

touroul · Answer

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 !!!

touroul · Answer

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 ...   :)

touroul · Answer

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.

touroul · Answer

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 !

eriiic · Answer

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 = FalseEnd Sub
eric

touroul · Answer

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é.

touroul · Answer

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 !

eriiic · Answer

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

touroul · Answer

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

Feuille modèle

16 réponses

Discussions similaires