dupliquer feuille par rapport a un modele

[flstyle]

Bonjour à tous forum !

Je me retrouve coincer encore avec VBA sur un dossier excel pour gérer les crédit-baux.


Je souhaiterai dupliquer une feuille "modèle" avec un bouton, une nouvelle feuille serait alors crée identique à celle d’auparavant avec un nom différent que "modèle" bien-sur.

J'ai déjà fait des tentatives comme dans le fichier ci-joint. Mais le résultat est moyen car il me duplique une feuille avec le bouton et le nom de la feuille dupliquée. De plus on est obliger de modifier le nom de celle-ci par le biais de l'onglet et je voudrais le faire par un combobox ou automatiquement (afficher dans chaque feuilles case B8).


Ce tableau est destiné pour des personnes n'utilisant PAS DU TOUT EXCEL , donc forcement je doit leur simplifier la vie en me la compliquant

Merci par avance pour vos réponse.

 

[JCGL]

Re : dupliquer feuille par rapport a un modele

Bonjour à tous,

Peux-tu essayer ce code à associer à ton bouton :

Sub Dupliquer_Modèle()
    Sheets("Modèle").Copy After:=Sheets(Sheets.Count)
    With ActiveSheet
    .Shapes.Range("Button 1").Delete
    .Name = "F" & Sheets.Count - 2
    End With
End Sub

A+ à tous

 

[flstyle]

Re : dupliquer feuille par rapport a un modele

Alors ça marche nikel !!
Il est possible aussi de verouiller la feuille modèle pour qu'on puisse pas modifier cette feuille mais uniquement les feuilles qu'on duplique, j'ai essayé par la voie classique (protection de feuille ...) mais ca beug tout


Merci

 

[JCGL]

Re : dupliquer feuille par rapport a un modele

Bonjour à tous,

Peux-tu essayer avec ce code :

Sub Dupliquer_Modèle()
    With Sheets("Modèle")
    .Unprotect
    .Copy After:=Sheets(Sheets.Count)
    End With
    With ActiveSheet
    .Shapes.Range("Button 1").Delete
    .Name = "F" & Sheets.Count - 2
    End With
    Sheets("Modèle").Protect
End Sub

A+ à tous

 

[flstyle]

Re : dupliquer feuille par rapport a un modele

C'est parfait !! je vous remercie pour votre précieuse aide.
Encore merci au forum aussi

Cordialement.