Feuille chablon sur Excel

Bonjour, j'aimerais créer une feuille qui me serve d un chablon.

C'est à dire que j'aimerais colorier et entrer des formules dans les cellules dont j'ai besoin. Jusque là je sais faire.

Mais j'aimerais qu a chaque fois que je crée une nouvelle feuille elle reprenne les caractéristique de mon chablon(couleur, formule,police,etc....)

Quelqu un peut il m aider svp ?

merci

Bonjour

En créant une copie de ta Feuille,

menu "Edition" "Déplacer ou copier une Feuille" et cocher "Créer une copie", tu obtiens le résultat demandé.

Cordialement,

Bonsoir,

tu peux aussi cliquer sur l'onglet que tu maintiens et en même temps appuie sur CTRL que tu maintiens enfoncé et tu fais glisser la petite feuille a coté

Tu auras une copie de ton onglet.

A +

Ok merci bcp. Mais en faite j ai créer un programme vba qui me créer automatiquement un onglet et j'aurai voulu que cette onglet créer est déja ma mise en page que j aurai fait sur mon chablon(par exemple lune feuille que je nommerai chablon dans le même classeur)

merci

Bonjour

Reprends donc avec VBA la copie de ta Feuille avec les formats et nomme la "Chablon"

 Sheets("Feuil1").Select
    Sheets("Feuil1").Copy After:=Sheets(3)
    Sheets("Feuil1 (2)").Select
    Sheets("Feuil1 (2)").Name = "Chablon"

Oui ?

Cordialement,

mhhhh pas tout à fait lol,

en faite si je rajoute ton code après celui que j utilise pour créer une feuille ca me donne ça

Sub ajouterrenommerfeuille()

Dim name_of_sheet As String

Sheets.Add.Name = Range("E2")

name_of_sheet = Range("E2")

Sheets("Feuil1").Select

Sheets("Feuil1").Copy After:=Sheets(3)

Sheets("Feuil1 (2)").Select

Sheets("Feuil1 (2)").Name = "Chablon"

end sub

en faite, pour créer ma feuille, j'utilise le nom qui est dans ma cellule "E2" de ma feuil1 et avec ta formule que j ai rajouté, j obtient un onglet chablon, ou sont mélangé les données de la feuille1 et celle que j ai copier coller d un autre classeur, et il me reste mon onglet que j ai créé au préalable mais vide .... lol

Bonjour

on en sait déjà un peu plus.

essaie

Sub ajouterrenommerfeuille()

'La cellule E2 est nommée Cible

Dim name_of_sheet As String
    Sheets("Feuil1").Select
    Cells.Select
    Selection.Copy
    Sheets.Add.Name = Range("E2")
    name_of_sheet = Cible
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("A1").Select
    Sheets("Feuil1").Select
    Range("A1").Select
    Application.CutCopyMode = False
End Sub

Cordialement