création nombre variable d'onglets

[ben117]

Bonjour,

Je débute sur VBA et j'aurais besoin d'un coup de main. Je voudrais créer un nombre variable d'onglets (variables dans la colonne z de l'onglet pilotage au max y en aura 50) et il faudrait que ces onglets soient nommés en fonction de ces variables.

J'espère avoir était assez clair.

Merci d'avance.

 

[mapomme]

Re : création nombre variable d'onglets

Bonjour Ben et bienvenu,

Voir fichier joint

Sub AjouterOnglet()
Dim xRg, xCell, Aux

Application.ScreenUpdating = False
With Sheets("PILOTAGE")
    Set xRg = .Cells(.Rows.Count, "Z").End(xlUp)
    If xRg.Row = .Range("Z3").Row Then
        MsgBox "Pas de feuille à créer - Fini!"
        Exit Sub
    End If
    Set xRg = Range(.Range("Z4"), xRg)
End With

For Each xCell In xRg
    On Error GoTo CREATION
    Sheets(xCell.Value).Activate
Next xCell

Sheets("PILOTAGE").Activate
Application.ScreenUpdating = True
Exit Sub

CREATION:
    Sheets.Add
    ActiveSheet.Name = xCell
    Resume Next
End Sub

 

[ben117]

Re : création nombre variable d'onglets

Bonjour,

Merci beaucoup, c'est exactement ce que je voulais.