Créer des onglets

[flo2002]

Bonjour,
je souhaite avoir une petite macro qui me crée des onglets en fonctions de ce qui est ecrit dans une plage.

Par exemple, de H10 à H20 je mets n nom
en cliquant sur un bouton je voudrais qu'il me mette autant d'onglet que de noms dans les cellules avec le nom de celles-ci.
Je ne sais pas si c'est trés clair mon affaire...

merci d'avance

 

[Hervé]

Re : Créer des onglets

bopnjour flo

peut etre comme ceci :

Dim c As Range

For Each c In Range("h10:h20")
    If Not c = "" Then
        With Sheets.Add
            .Move after:=Sheets(Sheets.Count)
            .Name = c
        End With
    End If
Next c

salut

 

[flo2002]

Re : Créer des onglets

Bonjour et merci Hervé!
Comme à ton habitude, la macro est parfaite!