Copie de feuille existante avec le bouton

Bonjour,

Je souhaiterais dans mon fichier excel que :

quand j'appuie sur le bouton + (pour avoir une nouvelle feuille vierge) obtenir la copie d'une feuille existante.

En gros la feuille existante est une matrice et je souhaiterais eviter de faire cette manipulation de déplacer/copier.

J'espere que vous avez compris ma France parlée

Bonjour,

Regarde le FJ si cela te conviens.

En gros,

Tu clic sur le bouton une forme s'ouvre et te demande le nom de la nouvelle feuille, quand tu valide un double du modèle est créé.

Si le nom exsite déjas la forme se ferme sans bug.

.

Ah ca pourrais bien faire mon affaire mais comment je fais pour inserer ce bouton magique dans mon fichier?

Ah ca pourrais bien faire mon affaire mais comment je fais pour inserer ce bouton magique dans mon fichier?

Bonjour,

superdjacks a écrit :

comment je fais pour inserer ce bouton magique dans mon fichier?

a) Tu transfères le module et l'USF dans ton VBA.

b) Tu colle une forme sur ta feuille en lui adjoignant la macro.

Sub ouvre()
  USF_Creation.Show 0
End Sub

c) N'oublies pas soit de renommer ta feuille type ou de modifier la macro.

Private Sub BT_creat_Click()
Dim existe As Long
  If Me.Nom_de_feuil = "" Then Exit Sub
  On Error Resume Next
  Sheets(Me.Nom_de_feuil.Text).Visible = True
  existe = Err.Number
  On Error GoTo 0
  If existe > 0 Then
  Sheets("Model").Select 'on sélectionne le model
  Sheets("Model").Copy after:=Worksheets(Worksheets.Count)  'on crée le nouvel onglet à partir du model
    ActiveSheet.Name = Me.Nom_de_feuil 'on nomme le nouvel onglet
  Else
    MsgBox "la feuille " & Me.Nom_de_feuil & " existe déjas !!!"  'si le nouvel onglet exciste
  End If
      Unload Me
End Sub

Si Pb colle ton fichier de base en FJ je ferai les modifs.

IMPECCABLE.

Merci énormément Mobil.