Autres creation automatique page suivant compteur

[maxim47]

bonjour
Je suis à la recherche d'une procédure (macro) afin de dupliquer une page modèle là je sais faire mais je voudrais créer un nombre de pages variable en fonction d'un compte variable qui s'affiche dans ma cellule a22. Version excel 2007
Merci

 

[HopHopHop]

Salut Maxim47

Tu peux essayer ça.

A plus

Sub Creation_page_suivant_compteur()
Dim fin, début, i As Integer

fin = Sheets("cal").Cells(22, 1).Value


    For début = 1 To fin
    Sheets("Modèle").Copy After:=Sheets(3)
    Next
    
End Sub

 

[maxim47]

Salut Maxim47

Tu peux essayer ça.

A plus

Sub Creation_page_suivant_compteur()
Dim fin, début, i As Integer

fin = Sheets("cal").Cells(22, 1).Value


    For début = 1 To fin
    Sheets("Modèle").Copy After:=Sheets(3)
    Next
   
End Sub

superbe tout à fait ce que je cherchai un petit complément peut on inverser l'ordre de création des onglets et avoir la procédure pour effacer les onglets ça serait top
merci

 

[maxim47]

superbe tout à fait ce que je cherchai un petit complément peut on inverser l'ordre de création des onglets et avoir la procédure pour effacer les onglets ça serait top
merci

 

[HopHopHop]

Je ne sais pas.
Je chercherai demain si j'ai le temps
Il serait mieux d'énoncer toutes les fonctions souhaité d'un programme, c'est une question d'organisation et d’algorithmique.

 

[HopHopHop]

Voilà pour la création des feuilles dans l'ordre que tu veux.


Je vais voir pour une procédure inverse.

Tu veux les effacer toutes d'un coup c'est ça ?

Sub Creation_page_suivant_compteur()
Dim fin, début, i As Integer
Dim nom As Variant
fin = Sheets("cal").Cells(22, 1).Value
    For début = 1 To fin
    Sheets("Modèle").Select
    Sheets("Modèle").Copy after:=Sheets(Sheets.Count)
    nom = "Modèle " & fin + 1 - début
    Sheets(Sheets.Count).Name = nom
    Next
End Sub

 

[HopHopHop]

Voilà pour la suppression des feuilles.

Je me suis basé sur la valeur que l'on trouve en A22 pour incrémenter les noms à la création, donc j'ai fait la même chose pour la suppression.

A plus

Sub Suppression_page_suivant_compteur()

Dim fin, début, i As Integer
Dim nom As Variant
fin = Sheets("cal").Cells(22, 1).Value
début = 1
Application.DisplayAlerts = False
    While début <= fin
    nom = "Modèle " & début
    Sheets(nom).Select
    ActiveWindow.SelectedSheets.Delete
    début = début + 1
    Wend
Application.DisplayAlerts = True

End Sub

 

[maxim47]

merci encore effectivement c'est pour tout effacer d'un coup et ça marche nickel la création des pages impeccable sauf que malgré
"Copy after:" elles se créent effectivement de la première à la dernière mais à la fin c'est la dernière qui est en premier et la première tout à fait à droite

 

[HopHopHop]

C'est ce que j'ai compris.
Dans le cas ou on a 5 en A22, le programme créer une page à à la fin qui s'appelle qui s'appelle Modèle 5 puis une autre encore à la fin qui s'appelle Modèle 4 etc etc
Ce n'est pas ça que tu voulais ?

 

[maxim47]

c'est bien ce que je veux mais j'aurais souhaité que l'ordre des onglets de gauche à droite soit modèle1,modèle2,modèle3 etc et non modèle5,modèle4,modèle3,modèle2,modèle1

 

[HopHopHop]

OK
avec ce code ça devrait le faire comme tu veux.

Plus haut, tu parlais "d'inverser l'ordre de création des onglets" donc j'ai pensé que c'était ce que tu voulais.

Il suffisait de modifier la règle de la variable "nom" pour remettre tout dans le bon ordre.

Sub Creation_page_suivant_compteur()
Dim fin, début, i As Integer
Dim nom As Variant
fin = Sheets("cal").Cells(22, 1).Value
    For début = 1 To fin
    Sheets("Modèle").Select
    Sheets("Modèle").Copy after:=Sheets((Sheets.Count))
    nom = "Modèle " & fin + 1
    Sheets(Sheets.Count).Name = nom
    Next
End Sub

 

[maxim47]

encore merci mais ça ne marche pas
erreur1004
impossible de renommer une feuille comme une autre feuille

 

[HopHopHop]

Je n'avais pas essayer le programme modifié.

Ces deux là fonctionnent très bien ensemble.

Sub Creation_page_suivant_compteur()
Dim fin, début, i As Integer
Dim nom As Variant
fin = Sheets("cal").Cells(22, 1).Value
    For début = 1 To fin
    Sheets("Modèle").Select
    Sheets("Modèle").Copy after:=Sheets((Sheets.Count))
    nom = "Modèle " & début
    Sheets(Sheets.Count).Name = nom
    Next
End Sub



Sub Suppression_page_suivant_compteur()

Dim fin, début, i As Integer
Dim nom As Variant
fin = Sheets("cal").Cells(22, 1).Value
début = 1
Application.DisplayAlerts = False
    While début <= fin
    nom = "Modèle " & début
    Sheets(nom).Select
    ActiveWindow.SelectedSheets.Delete
    début = début + 1
    Wend
Application.DisplayAlerts = True

End Sub

 

[maxim47]

merci beaucoup ça fonctionne impeccable je vais pouvoir continuer à développer mon fichier en essayant de trouver au maximum par moi même et à n'appeler au secours que quand je bloque après avoir fait le tour de toute les solutions que je suis capable de mettre en œuvre encore merci HOPHOP

 

[HopHopHop]

Bravo !!!

C'est une belle mentalité !!