Duplication feuille Excel

Bonjour,

Mon code a pour but de créer un nouvel onglet quand ma textbox de mon userform est >0

de nommer l'onglet personne1

de ranger la valeur du textbox dans l'onglet créer en cellule A1

Et enfin de copier (ou autre méthode) la feuille "general" pour la coller dans l'onglet crée ci-dessus, bouton et macro avec.

merci.

Ps : Je vous laisse mon fichier pour le code

Dans la ligne copy je te propose

  Sheets("general").Copy after:=Sheets([color=#0000BF]Sheets.Coun[/color]t)

par ailleurs si l'onglet personne1 existe déjà tu auras encore un message d'erreur.

Re,

Private Sub ok_Click()
Dim variable1

  variable1 = selection1
  If variable1 > 0 Then
  Sheets.Add
 Sheets("general").Copy after:=Sheets '(<span> style="color: #0000BF">Sheets.Count</span>)
  ActiveSheet.Name = "personne1"
  Range("A1") = selection1.Value
  Else
    MsgBox "Feuille existante" ' message d'erreur
   End If
'changement de couleur de l'onglet a la création
    With ActiveSheet
   .Tab.ColorIndex = 43 'couleur verte
  End With

End Sub

je viens de tester ta ligne mais sa ne fonctionne pas excel me dis erreur d'expression :/

Oups !

J'ai voulu mettre de la mise en forme dans le code, j'aurais pas dû.

Mettre juste sheets.count entre les parenthèses.

Re,

Merci il fonctionne