Créer les onglets selon une liste

Bonjour a Tous et toutes

j'ai une liste de 65 véhicules (immatriculation) et je voudrais créer pour chaque immatriculation l'onglet avec son n°

Je voudrais créer une macro qui me créer les onglet sans doublon.

exemple dans ma liste 352 GH 06 il me faudrait l'onglet 352 GH 06 etc...

est-ce faisable?

Merci de votre aide

Bonjour,

Exemple à mettre sur un bouton :

Private Sub CommandButton1_Click()
    Dim lig As Long, derlig As Long, c As Range, sh As Worksheet
    Application.ScreenUpdating = False
    derlig = Cells(Rows.Count, 1).End(xlUp).Row
    For Each c In [A2].Resize(derlig - 1)
        On Error Resume Next
        If IsError(Sheets(c.Value).Index) Then
            Sheets.Add after:=Sheets(Sheets.Count)
            ActiveSheet.Name = c
        End If
        On Error GoTo 0
    Next c
    Sheets("Feuil1").Activate
End Sub
41classeur3.zip (10.31 Ko)

Super Merci Eriic

Rechercher des sujets similaires à "creer onglets liste"