GESTION DES ONGLETS DANS UN CLASSEUR

Voici quelques petites macros pour optimiser la gestion et la création des onglets (ou feuilles) dans un classeur, cela peut sembler inutile mais sait-on jamais ?

1) NOMMER automatiquement un onglet .....par rapport à une cellule 
2) INSERER et NOMMER des onglets en fonction d'une liste 
3) DUPLIQUER un modèle et NOMMER en fonction d'une liste 
4) INSERER 12 feuilles et NOMMER les suivant les 12 mois de l'année.

1)NOMMER automatiquement un onglet (ou feuille) par rapport  au texte inscrit dans une cellule et ceci pour l'ensemble du classeur :

Copiez le code suivant :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Cells(1, 1) <> "" Then ActiveSheet.Name = Cells(1, 1)  'Correspond à la cellule A1
End Sub

Appuyer simultanément sur les touches "Alt" + F11 pour atteinte le projet VBA.
Ensuite double-cliquer  sur "ThisWorkbook"

 

Et collez-y le code, puis fermez le projet VBA.

Ensuite inscivez un mot, un chiffre ou autre, dans la cellule A1 et automatiquement l'onglet se nommera en fonction des informations inscrites dans la cellule A1. 

Vous pouvez procéder de la sorte pour tous les nouveaux onglets.

HAUT DE PAGE

2)INSERER et NOMMER des onglets (ou feuilles)  en fonction d'une liste pré-établie dans un onglet (ou feuille) :

Créer une liste de noms dans un onglet :

Appuyer simultanément sur les touches "Alt" + F11 pour atteindre le projet VBA.

Insérer un module via Insertion + cliquez sur Module :

Puis insérer le code suivant dans le module : 

Sub Inserer_onglet_suivant_liste()
Dim Mycell As Range, Mysheet As Worksheet, MyName$
For Each Mycell In Selection 'liste de noms
MyName = Mycell.Value
If MyName <> "" Then
On Error Resume Next
Set Mysheet = Sheets(MyName)
On Error GoTo 0
If Mysheet Is Nothing Then Sheets.Add.Name = MyName
End If
Next Mycell
End Sub

Fermer le Projet VBA.
Ensuite sélectionnez la liste créer dans l'onglet et exécutez la Macro 

Et voici le résultat :

HAUT DE PAGE

3) DUPLIQUER un onglet "Modèle" et NOMMER ces onglets (ou feuilles)  en fonction d'une liste pré-établie dans l'onglet (ou feuille) "Modèle" :

Créez tout d'abord un modèle dans un onglet que vous allez nommer "Modèle" (par exemple) et créer une liste de nom, par exemple dans la colonne A comme dans l'exemple suivant :

Appuyer simultanément sur les touches "Alt" + F11 pour atteindre le projet VBA.

Insérer un module via Insertion + cliquez sur Module (Même procédure que le renvoi 2)

Copiez le code suivant dans le module :

 Option Explicit

Sub Ajouter_Feuilles()
Dim J As Long
Dim Ws As Worksheet

  Application.ScreenUpdating = False
  Set Ws = ActiveSheet
  For J = 1 To Ws.Range("A" & Rows.Count).End(xlUp).Row
    If Not FeuilleExiste(Ws.Range("A" & J).Value) Then
      Sheets("Modèle").Copy after:=Sheets(Sheets.Count)
      ActiveSheet.Name = Ws.Range("A" & J)
      Range("D2") = ActiveSheet.Name ' Met le nom de la feuille dans la cellule D2
    End If
  Next J
  Ws.Select
End Sub

'Si l'onglet  existe déjà, il n'est pas créé
Function FeuilleExiste(Nom As String) As Boolean
  On Error Resume Next
  FeuilleExiste = Sheets(Nom).Name <> ""
  On Error GoTo 0
End Function

Fermer le Projet VBA.
Ensuite lancer la Macro  "Ajouter_Feuille"

 Résultat :

 Si vous ne souhaitez pas faire apparaître la liste de noms en colonne A, il vous suffit de masquer cette colonne dans l'onglet "Modèle".




HAUT DE PAGE

4) Insérer 12 feuilles et les nommer suivant les 12 mois de l'année

Appuyer simultanément sur les touches "Alt" + F11 pour atteindre le projet VBA.

Insérer un module via Insertion + cliquez sur Module (Même procédure que le renvoi 2)

Copiez le code suivant dans le module :

Sub NomFeuilMois()
For I = 1 To 12
ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Format(30 * I, "mmmm")
Next I
End Sub

Fermer le Projet VBA et exécutez la Macro, résultat  :

HAUT DE PAGE