dupliquer une feuille avec ses codes

Question

Bonjour, 


j'ai réalisé un macro pour dupliquer une feuille.
seulement les codes de la feuille que je duplique ne se mette pas automatiquement dans la nouvelle feuille .
Comment faire pour dupliquer les codes également ?

peut-être existe t'il un autre moyen de dupliquer une feuille?

ccm81 · Answer

Bonjour

En principe lors d'une copie de feuille, le code suit
Exemple de code attaché à un bouton de la feuille N0
où N0 est le nom de la 1° feuille 

Private Sub CommandButton1_Click()
Dim N As Long
Dim NomF As String
    NomF = ActiveSheet.Name
    N = Right(NomF, Len(NomF) - 1)
    N = N + 1
    Sheets(NomF).Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = "N" & N
End Sub

Bonne suite

ced5757 · Answer

ca ne marche pas lorsque le code s'exécute un message d'erreur s'affiche "erreur d'exécution '13'" (incompatibilité de type, en me signalant la ligne  "N = Right(NomF, Len(NomF) - 1)"

Peut-être pouvez vous m'expliquer cette ligne pour que je l'adapte

Dupliquer une feuille avec ses codes

2 réponses

Discussions similaires

Newsletters