Incrémenter les nom des onglets de 1 VBA
Bonjour je cherche à renommer le nom d'un onglet de +1 par rapport à la dernière valeur.
J'ai créé un "Template", qui à l'aide d'un bouton, les utilisateurs "Click" et crée un onglet supplémentaire qui copie simplement le "Template".
Chaque onglet représente 1 période de paie à date fixe, soit chaque quinzaine de chaque mois ou dernier jour de chaque mois. Le nom des onglets est simple PP1 pour la première paie au 15 janvier, PP2 le 31 janvier, etc. jusqu'à PP24.
La macro de copier et crée un onglet basé sur le "Template"fonctionne bien, voici ce que j’ai fait :
Sheets("Template").Select
Sheets("Template").Copy After:=Sheets(Sheets.Count)
End Sub
J'ai essayé d'ajouter à la suite "ActiveSheet.Name = "PP" & Worksheets.Count" mais cela ne donne pas le bon résultat, car certain onglet on des versions PPX-2 parce qu’il y a eu des corrections.
Donc comment puis-je incrémenter de 1 la dernière feuille créée?
Bonsoir,
L'idéal serait d'avoir une structure de nom avec deux chiffres systématique :
votre numérotation :
PP1
PP2
PP2-2
PP3
PP4
PP4-2
Ce que je propose
PP01
PP02
PP-2-02
PP03
PP04
PP-2-04
A ce moment là vous pourriez après avoir créé la feuille faire :
ActiveSheet.Name = "PP" & Right(Worksheets(Worksheets.Count-1).Name,2)+1
reste à gérer le coté 04 en "texte" pour y ajouter 1...
C'est une piste
@ bientôt
LouReeD
Bonjour Lou, voici ce que j'ai essayer mais il y a une erreur. seriez-vous capable de m'aider?
Sheets("Template").Select
Sheets("Template").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = "PP" & Right(Worksheets(Worksheets.Count - 1).Name, 2) + 1
J'ai trouvé Voot
Pour ceux que cela intéresserait voici mon fichier test et la ma formule que j'ai trouver et comment la comprendre
ActiveCell.Select
Selection.Copy
Sheets("Template").Select
Range("N1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Template").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Range("N1").Text
Voici ce que mon objectif était :
1. À partir de l'onglet "Menu", sélectionner la valeur que vous voulez créer (Exemple cellule ("H11")) et "cliquer" sur le "bouton" "Nouvel Onglet".
2. Copier la cellule sélectionnée dans l'onglet "Menu" (en mode de référence relative) vers l'onglet "Template" a la cellule ("N1") (SANS la référence relative).
3. Copier l'onglet "Template" et le placer en dernier de tous les onglets.
4. Renommer l'onglet avec la valeur se trouvant dans la cellule ("N1")
Voila!!
Bravo !
@ bientôt
LouReeD