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
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
A voir également:
- Dupliquer une feuille avec ses codes
- Dupliquer ecran - Guide
- Dupliquer whatsapp - Guide
- Codes ascii - Guide
- Supprimer une feuille word - Guide
- Dupliquer une page word ✓ - Forum Word
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
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
Bonne suite
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
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
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
Peut-être pouvez vous m'expliquer cette ligne pour que je l'adapte
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
17 mai 2013 à 19:51