Renomé une page
Dandy_danbe
Messages postés
108
Date d'inscription
Statut
Membre
Dernière intervention
-
Dandy_danbe Messages postés 108 Date d'inscription Statut Membre Dernière intervention -
Dandy_danbe Messages postés 108 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
je voudrais savoir ce qu'il faut modifier a cette macro pour que la page ce remome en fonction d' une celulle dans une autre page
exep. page liste activite j' ajoute une activite en b2 "chevale"
cree une nouvelle page, et nome cette page cheval
voyci la macro en question
Sub Nieuw_activitijd()
'
' Nieuw_activitijd Macro
'
'
Sheets("activitijd lijst").Select
Rows("2:2").Select
Selection.Insert Shift:=xlDown
Range("A2").Select
Sheets("Nieuw Activitijd").Select
Range("A2:B2").Select
Selection.Copy
Sheets("activitijd lijst").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("A4").Select
Columns("B:B").ColumnWidth = 16.14
Sheets("Nieuw Activitijd").Select
Range("D5").Select
Application.CutCopyMode = False
Selection.ClearContents
Dim I As Integer
Sheets("1").Copy After:=Sheets(Sheets.Count)
On Error Resume Next
Do
I = I + 1
Err.Clear
ActiveSheet.Name = Format(I = I + 0)
If Err.Number = 0 Then Exit Do
Loop
End Sub
je voudrais savoir ce qu'il faut modifier a cette macro pour que la page ce remome en fonction d' une celulle dans une autre page
exep. page liste activite j' ajoute une activite en b2 "chevale"
cree une nouvelle page, et nome cette page cheval
voyci la macro en question
Sub Nieuw_activitijd()
'
' Nieuw_activitijd Macro
'
'
Sheets("activitijd lijst").Select
Rows("2:2").Select
Selection.Insert Shift:=xlDown
Range("A2").Select
Sheets("Nieuw Activitijd").Select
Range("A2:B2").Select
Selection.Copy
Sheets("activitijd lijst").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("A4").Select
Columns("B:B").ColumnWidth = 16.14
Sheets("Nieuw Activitijd").Select
Range("D5").Select
Application.CutCopyMode = False
Selection.ClearContents
Dim I As Integer
Sheets("1").Copy After:=Sheets(Sheets.Count)
On Error Resume Next
Do
I = I + 1
Err.Clear
ActiveSheet.Name = Format(I = I + 0)
If Err.Number = 0 Then Exit Do
Loop
End Sub
A voir également:
- Renomé une page
- Supprimer une page word - Guide
- Imprimer tableau excel sur une page - Guide
- Créer une page facebook - Guide
- Comment traduire une page - Guide
- Page d'accueil - Guide
2 réponses
Bonjour
pour copier une feuille et la renomer
Sub Copyfeuil()
Sheets("Feuil1").Copy After:=Sheets(ThisWorkbook.Sheets.Count)
ActiveSheet.Name = Sheets("Feuil2").Range("A1").Value
End Sub
A toi de modifier le non des feuilles
A+
Mauirce
pour copier une feuille et la renomer
Sub Copyfeuil()
Sheets("Feuil1").Copy After:=Sheets(ThisWorkbook.Sheets.Count)
ActiveSheet.Name = Sheets("Feuil2").Range("A1").Value
End Sub
A toi de modifier le non des feuilles
A+
Mauirce
Bonjour;
d'abord merci pour l' intérêt apporte;
Prob. ; le nom de la nouvelle page dois être le nouveau nom que j'ai ajouter a la page activi.
j'ai une page (nouvelle activité!)lorsque je crée une nouvelle activité, par exemple "Jeux de carte" il enregistre cette activité dans la page (liste activité!), je crée une nouvelle page qui devrais ce nome " Jeux de carte
d'abord merci pour l' intérêt apporte;
Prob. ; le nom de la nouvelle page dois être le nouveau nom que j'ai ajouter a la page activi.
j'ai une page (nouvelle activité!)lorsque je crée une nouvelle activité, par exemple "Jeux de carte" il enregistre cette activité dans la page (liste activité!), je crée une nouvelle page qui devrais ce nome " Jeux de carte