Autres Création automatique de feuilles/onglets

[pamela85200]

Bonjour,

Je suis totalement novice en à la matière.

J'ai un fichier Excel avec plusieurs onglets. Sur mon onglet principal je veux rentrer une valeur et suivant cette valeur je veux que Excel me créé le nombre d'onglet correspondant (ex; valeur entré = 3 alors création de 3 onglets) identique à un onglet "type".

Je ne sais pas si je suis claire,

pouvez vous m'aider svp ?
Merci par avance,

 

[don_pets]

Hello,

imaginons tu mets ta valeur souhaitée en A1.

Application.ScreenUpdating = False

For x = 1 To Range("A1").Value

    Sheets.Add after:=Sheets(Sheets.Count)

Next x

Application.ScreenUpdating = True

 

[don_pets]

aaah j'avais pas vu ton histoire d'onglet "type"
Alors disons que ta feuille1 contient en A1 ton nombre de copies et que ta feuille type s'appelle tralala

Dim FeuilType As Worksheet
Set FeuilType = ActiveWorkbook.Sheets("Tralala")

With Sheets("Feuil1")
    Application.ScreenUpdating = False
    For x = 1 To Range("A1").Value
        FeuilType.Copy After:=FeuilType
    Next x
    Application.ScreenUpdating = True
End With

c'est moche mais c'est marrant

 

[pamela85200]

Bonjour,

Merci de votre réponse, mais c'est déjà très compliqué pour moi :-(

J'ai tenté mais je dois être neuneu...

Je joins mon fichier,

En Feuil 1, en jaune le nombre d'onglet que je souhaite ouvrir identique à l'onglet N°2 Modele type

Merci

 

[don_pets]

Mets un chiffre dans ta cellule toute jaune, et clique sur le bouton à coté

 

[pamela85200]

Super merci beaucoup !!!!

Encore une dernière petite chose si possible, est ce qu'il est possible de masquer le Modèle Type sans pour autant masquer les feuilles créées via ce modèle ?

Mille mercis

 

[don_pets]

Bien sur masque ton onglet cela n'aura aucune incidence sur le reste

 

[pamela85200]

J'ai trouvé, merci en tout cas