Discussion :

[bobafric]

Bonjour,
Sur mon fichier je voudrai créer une macro de manière que la MFC de la feuille 1 soit appliquée sur toutes les feuilles de mon classeur.
Exemple la MFC pour les valeurs 3 et 4 devraient être appliquée sur toutes les feuilles;
J'espère être assez clair et je vous remercie pour votre aide.

[EricDgn]

Bonjour,

Une façon de faire: copier le format de la colonne B de Feuil1 sur les autres.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
Sub CopyFormatBB()
   Dim wSh As Worksheet, Rng As Range
   Set Rng = ThisWorkbook.Worksheets("Feuil1").Columns("B")
   Rng.Copy
   For Each wSh In ThisWorkbook.Worksheets
      If wSh.Name <> "Feuil1" Then
         wSh.Columns("B:B").PasteSpecial Paste:=xlPasteFormats
      End If
   Next wSh
   Set Rng = Nothing
End Sub

Bonne continuation.

[bobafric]

Re bonjour
J'ai testé ta solution, j'ai placé lecode dans la feuille 1 et dans le workbook sans résultat. Par contre dans le module et en créant un bouton ça fonctionne.
Mais je préfèrerai que ce soit automatique sans créer un bouton car c'est un dossier que j'alimente mois par mois.
Merci pour ton attention
Je joins le fichier avec le bouton et le reste

[EricDgn]

Bonjour,

Dans ce cas, il faut plutôt avoir une feuille "Modèle" avec un bouton qui crée une nouvelle feuille semblable à ce modèle.
Exemple de code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub NouveauMois()
   Sheets("Modèle").Copy Before:=Sheets("Modèle")
   ActiveSheet.Name = InputBox("Nom à donner à cette nouvelle feuille: ", _
                               " A compléter", _
                               Format(Date, "yy.mm"))
   ActiveSheet.Shapes.Range("Button 1").Delete
   Range("A2").Select
End Sub

Bonne continuation.

[bobafric]

Merci Eric ça fonctionne pas mal a plus