Excel Ajouter onglets automatiquement
Excel : Ajouter des Onglets automatiquement à l'emplacement souhaité !
🎯 Dans ce tutoriel, vous allez découvrir comment créer et ajouter automatiquement des onglets à l'emplacement souhaité dans Excel.
✅ Ainsi, en ajoutant un onglet, et en choisissant son emplacement :
- vous gagnez du temps,
- vous améliorez votre organisation
- et vous simplifiez votre navigation dans Excel.
👍 Mais ce n'est pas tout, le véritable atout de ce tutoriel est que vous pourrez utiliser cette fonctionnalité sur n'importe quel fichier Excel, et ce, sans avoir besoin d'enregistrer vos fichiers en tant que fichier prenant en charge les macros.
Voir la vidéo pour suivre les différentes étapes :
Pour vous entraîner, après avoir ouvert un fichier Excel, je vous invite à créer plusieurs onglets manuellement, puis de suivre les étapes de ce tutoriel.
📌↪️→ Code VBA à utiliser pour créer et ajouter automatiquement des onglets à l'emplacement souhaité :
Sub AjouterNouvelOnglet()
Dim NvelleFeuille As Worksheet
Dim nom As String
Dim position As String
Dim ws As Worksheet
Dim nomExiste As Boolean
Dim nomsOnglets As String
For Each ws In ActiveWorkbook.Worksheets
nomsOnglets = nomsOnglets & ws.Name & vbCrLf
Next ws
' Demander à l'utilisateur de saisir un nom pour le nouvel onglet
Do
nomExiste = False
nom = InputBox("Veuillez entrer le nom du nouvel onglet :", "Nom de l'onglet")
If nom = "" Then Exit Sub
' Vérifier si l'onglet existe déjà
For Each ws In ActiveWorkbook.Worksheets
If LCase(ws.Name) = LCase(nom) Then
nomExiste = True
MsgBox "L'onglet " & nom & " existe déjà. Veuillez entrer un nom différent."
Exit For
End If
Next ws
Loop While nomExiste
' Demander à l'utilisateur après quel onglet il souhaite ajouter le nouvel onglet
position = InputBox("Choisissez l'un des noms pour indiquer après quel onglet voulez-vous ajouter ce nouvel onglet ?" & vbCrLf & _
"Voici la liste des onglets :" & vbCrLf & vbCrLf & _
nomsOnglets, _
"Position de l'onglet")
If position = "" Then Exit Sub
' Vérifier si l'onglet existe
On Error Resume Next
Set ws = ActiveWorkbook.Worksheets(position)
On Error GoTo 0
If ws Is Nothing Then
MsgBox "L'onglet " & position & " n'existe pas. Veuillez réessayer."
Exit Sub
End If
' Créer un nouvel onglet après l'onglet spécifié
Set NvelleFeuille = ActiveWorkbook.Worksheets.Add(After:=ws)
NvelleFeuille.Name = nom
NvelleFeuille.Select
End Sub
Un autre tutoriel qui pourrait vous intéresser :
