A voir également:
- Création nouvel onglet nommé avec le nom du dernier onglet + 1
- Création nouvel onglet nommé avec le nom du dernier onglet + 1 ✓ - Forum - VB / VBA
- Problème de création de nom de nouvel onglet ✓ - Forum - VB / VBA
- Décrémenter lors de la création d'un nouvel onglet ✓ - Forum - Excel
- Création nouvelle adresse mail - Guide
- Firefox nouvel onglet google - Conseils pratiques - Internet
4 réponses
manautop
- Messages postés
- 138
- Date d'inscription
- lundi 27 novembre 2006
- Statut
- Membre
- Dernière intervention
- 24 janvier 2013
Bonjour,
voici la solution
Sub test()
ThisWorkbook.Sheets.Add
NB_onglets = ThisWorkbook.Sheets.Count
i = NB_onglets
ThisWorkbook.ActiveSheet.Name = "Nomdelonglet_" & i +1
end sub
tu changes juste ce qu'il y a entre les " "
et voila
voici la solution
Sub test()
ThisWorkbook.Sheets.Add
NB_onglets = ThisWorkbook.Sheets.Count
i = NB_onglets
ThisWorkbook.ActiveSheet.Name = "Nomdelonglet_" & i +1
end sub
tu changes juste ce qu'il y a entre les " "
et voila
cpaumier
Merci beaucoup pour cette rapide réponse.
La macro fonctionne mais les onglets s'insèrent au début du feuillet alors que je voudrais qu'ils 'insèrent à la suite.
Et pour que la feuille soit une feuille prédéfinie ?
Merci !!
La macro fonctionne mais les onglets s'insèrent au début du feuillet alors que je voudrais qu'ils 'insèrent à la suite.
Et pour que la feuille soit une feuille prédéfinie ?
Merci !!
manautop
- Messages postés
- 138
- Date d'inscription
- lundi 27 novembre 2006
- Statut
- Membre
- Dernière intervention
- 24 janvier 2013
essaye ça
Sub test()
ThisWorkbook.Sheets.Add , Worksheets(WorkSheets.Count)
NB_onglets = ThisWorkbook.Sheets.Count
i = NB_onglets
ThisWorkbook.ActiveSheet.Name = "Nomdelonglet_" & i +1
End Sub
Sub test()
ThisWorkbook.Sheets.Add , Worksheets(WorkSheets.Count)
NB_onglets = ThisWorkbook.Sheets.Count
i = NB_onglets
ThisWorkbook.ActiveSheet.Name = "Nomdelonglet_" & i +1
End Sub