Macros excel copier renommer
Résolu
Anthurus
Messages postés
60
Date d'inscription
Statut
Membre
Dernière intervention
-
Anthurus Messages postés 60 Date d'inscription Statut Membre Dernière intervention -
Anthurus Messages postés 60 Date d'inscription Statut Membre Dernière intervention -
Bonjour, je souhaiterais une macros qui permet de copier le contenue d 'une feuille N vers une nouvelle feuille en la renommant N+1.
merci
merci
A voir également:
- Excel - vba copier feuille et renommer
- Word et excel gratuit - Guide
- Liste déroulante excel - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Renommer des fichiers en masse - Guide
- Si et excel - Guide
2 réponses
bonjour
deux possibilités selon que N est la lettre N ou un nombre
1. N est la lettre N
2. N est un nombre
est ce que ça répond a la question?
RQ. Pour copier integralement une feuille, il n'y a pas besoin de macro
Clic-droit sur l'onglet puis deplacer ou copier etc ...
bonne suite
deux possibilités selon que N est la lettre N ou un nombre
1. N est la lettre N
Private Sub CommandButton1_Click()
Sheets("N").Select
Sheets("N").Copy After:=Sheets("N")
Sheets("N (2)").Select
Sheets("N (2)").Name = "N+1"
End Sub
2. N est un nombre
Private Sub CommandButton1_Click()
Dim N As Long
Dim NomF As String
NomF = ActiveSheet.Name
N = Val(NomF)
Sheets(NomF).Select
N = N + 1
Sheets(NomF).Copy After:=Sheets(NomF)
Sheets(NomF & " (2)").Select
Sheets(NomF & " (2)").Name = Str(N)
End Sub
est ce que ça répond a la question?
RQ. Pour copier integralement une feuille, il n'y a pas besoin de macro
Clic-droit sur l'onglet puis deplacer ou copier etc ...
bonne suite
