Création nouvel onglet nommé avec le nom du dernier onglet + 1
Résolu/Fermé
A voir également:
- Création nouvel onglet nommé avec le nom du dernier onglet + 1
- Rouvrir onglet fermé - Guide
- Onglet privé - Guide
- Onglet disposition excel - Forum Excel
- Nouvel outlook - Guide
- Edge nouvel onglet google - Forum Microsoft Edge / Internet Explorer
4 réponses
manautop
Messages postés
138
Date d'inscription
lundi 27 novembre 2006
Statut
Membre
Dernière intervention
24 janvier 2013
3
17 janv. 2013 à 12:24
17 janv. 2013 à 12:24
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
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
3
17 janv. 2013 à 14:40
17 janv. 2013 à 14:40
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