XL 2013 insérer une nouvelle feuille automatiquement

[Ray97]

Bonjour le forum,

Je souhaite ajouter une feuille à chaque fois que je clique sur le petit + en bas du classeur et qui me copie la même mise en forme et les fonctions et codes qui a dans une feuille modèle.
J'ai utiliser ce bou de code mais sa fonctionne pas
Merci pour votre aide.

Sheets.Add After:=Sheets

 

[Hasco]

Bonjour,

Allez voir l'aide MS sur Sheets.Copy

Bonne journée

 

[Eric C]

Bonjour le forum
Bonjour Ray97, bonjour Roblochon
Essaies ce code mais tu devras passer soit par la création d'un bouton sur ta feuille ou en utilisant la procédure "Macro" car le "+" n'est, à mon avis, pas exploitable :
Sub InsertCopyFeuille()
Dim Msg As String, Title As String, Default As String
Dim MyValue As Variant


MyValue = InputBox("Quelle dénomination souhaitez vous donner à la nouvelle feuille ?", "APPELLATION DE LA FEUILLE", "")
If MyValue = "" Then Exit Sub
ActiveSheet.Copy after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = MyValue
End Sub

Bonne journée à toutes & à tous

 

[Ray97]

D'accord merci pour votre intervention. je vais voir ça.

 

[Ray97]

ça fonctionne mais si j'utilise un bouton il va se mettre à chaque fois dans la nouvelle feuille.
je veux qu'il appelle au moins que la feuille à chaque fois sans copier le bouton à chaque fois.
merci

 

[Eric C]

Re, dans ce cas, il faut passer par l'exécuteur de macro (Alt+F8).

 

[Ray97]

Re, j'ai ça comme code

Sub copie_modele()
 nf = InputBox("Nom de la nouvelel feuille ?")
 If nf = "" Then
 
    Sheets("modèle").Select
    Sheets("modèle").Copy After:=Sheets(1)
    Sheets("modèle (2)").Select
    Sheets("modèle (2)").Name = nf
    
End Sub

ça fonctionne mais je veux quand j'appuis sur annuler il ne m’insère pas la feuille.

Merci

 

[job75]

Bonjour Ray97, Roblochon, Eric C,

le "+" n'est, à mon avis, pas exploitable

Pas d'accord, voyez le fichier joint et cette macro dans ThisWorkbook :

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Sheets("Modèle").Cells.Copy Sh.[A1]
Sh.[A1].Copy Sh.[A1] 'choisir une cellule non fusionnée, allège la mémoire
End Sub

A+

 

[Ray97]

Merci pour ta proposition , ça fonctionne mais ça me copie pas les codes dans les nouvelles feuilles.

 

[Eric C]

Re le forum
Bonjour job75

Comme je l'ai dit, ce n'était que mon avis. J'attends toujours que les grands "VBAistes" arrivent pour me faire découvrir leur talent. Il y a maintenant bien longtemps que j'ai abandonné le Vba mais je passe volontier sur le forum par curiosité. Il y a toujours de belles pointures (dont vous faites partie) qui nous accompagnent lorsque le besoin est présent. Je vais quand même laisser ma modeste contribution à Ray97 afin que le bouton (de formulaire) qui active la macro se détruise lors de la création de sa nouvelle feuille. J'ai du temps de libre et il fait trop chaud pour les autres activités que cérébrales (lol).

Option Explicit

Sub InsertCopyFeuille()
Dim MyValue As Variant

MyValue = InputBox("Quelle dénomination souhaitez vous donner à la nouvelle feuille ?", "APPELLATION DE LA FEUILLE", "")
If MyValue = "" Then Exit Sub

ActiveSheet.Copy after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = MyValue

Sheets(MyValue).DrawingObjects.Delete 'Pour supprimer le bouton créé depuis contrôles formulaire

End Sub
Bonne fin de journée à toutes & à tous

 

[Ray97]

Pour le inputbox, quand on appui sur annuler ça me met quand même la feuille.

 

[Hasco]

Bonjour,

Ce matin j'avais préparé ça et j'ai oublié...... pris par autre chose.

Cliquer sur le petit + des onglets ou ajouter une feuille, la feuille modele sera recopiée exactement.

Bonne soirée

 

[Ray97]

ça fonctionne merci

 

[Ray97]

Je vais le mettre dans ma base et je vous dis. merci à tous

 

[Ray97]

Bonjour le forum,

Merci ça fonctionne dans ma base.