Autres Création automatique de feuilles/onglets

don_pets

XLDnaute Occasionnel

• 8 Novembre 2023

• #2

Hello,

imaginons tu mets ta valeur souhaitée en A1.

VB:

Application.ScreenUpdating = False

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

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

Next x

Application.ScreenUpdating = True

 

Vote positif 0 Vote négatif

don_pets

XLDnaute Occasionnel

• 8 Novembre 2023

• #3

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

VB:

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

 

Vote positif 0 Vote négatif

P

pamela85200

XLDnaute Nouveau

• 8 Novembre 2023

• #4

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

 

Pièces jointes

• ESSAI3.xlsx

  12 KB · Affichages: 2

Vote positif 0 Vote négatif

don_pets

XLDnaute Occasionnel

• 8 Novembre 2023

• #5

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

 

Pièces jointes

• ESSAI3.xlsm

  24.6 KB · Affichages: 5

Vote positif 0 Vote négatif

Solution

P

pamela85200

XLDnaute Nouveau

• 9 Novembre 2023

• #6

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

 

Vote positif 0 Vote négatif

don_pets

XLDnaute Occasionnel

• 9 Novembre 2023

• #7

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

 

Vote positif 0 Vote négatif

P

pamela85200

XLDnaute Nouveau

• 9 Novembre 2023

• #8

J'ai trouvé, merci en tout cas

 

Vote positif 0 Vote négatif