Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

dupliquer feuille par rapport a un modele

  • Initiateur de la discussion Initiateur de la discussion flstyle
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

flstyle

XLDnaute Nouveau
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.
 

Pièces jointes

Re : dupliquer feuille par rapport a un modele

Bonjour à tous,

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

VB:
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
 

Pièces jointes

Dernière édition:
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
 
Re : dupliquer feuille par rapport a un modele

Bonjour à tous,

Peux-tu essayer avec ce code :

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
392
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…