Dupliquer une feuille avec ses codes

Fermé
ced5757 Messages postés 40 Date d'inscription mercredi 8 mai 2013 Statut Membre Dernière intervention 20 mai 2013 - Modifié par ced5757 le 17/05/2013 à 18:45
ccm81 Messages postés 10559 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 mars 2023 - 17 mai 2013 à 19:51
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?
A voir également:

2 réponses

ccm81 Messages postés 10559 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 mars 2023 2 337
17 mai 2013 à 18:53
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
0
ced5757 Messages postés 40 Date d'inscription mercredi 8 mai 2013 Statut Membre Dernière intervention 20 mai 2013 1
Modifié par ced5757 le 17/05/2013 à 19:54
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
0
ccm81 Messages postés 10559 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 mars 2023 2 337
17 mai 2013 à 19:51
de rien

je termine avec cet exemple in-situ
https://www.cjoint.com/?3ErtZcSsD2e

Bonne soirée
0