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