Pb de boucle pour copie modele de feuille

Bonjour

Dans le doc ci-joint, depuis l'onglet BOUTIQUE, je genere de nouveaux onglets (bouton macro CREATE BOUTIQUE WORKSHEET), en copie de l'onglet MODELE.

Les onglet générés sont renommés en fonc

tion du nom indiqué dans l'onglet MODELE

J'ai un pb dans la boucle, le macro s'arrete et genere un onglet MODELE2 qui n'est pas necessaire.

JE ne vois pas comment le corriger.

Merci

Bonjour SophieB le forum

bah j'ai jeté ta macro, mais voilà la nouvelle

a+

Papou

'Macro Faite par Pascal RICHARD Paritec le 02/08/2018
Option Explicit

Sub Creation_Onglets_Selon_Modele()
    Dim i&, a&, aa
    With Feuil3
        For i = 2 To .Range("A" & Rows.Count).End(3).Row
        aa = .Range(.Cells(i, 4), .Cells(i, 8))
            Sheets.Add after:=Sheets(Sheets.Count)
            ActiveSheet.Name = .Cells(i, 4)
            With ActiveSheet
                    ActiveSheet.Range("A1").Resize(UBound(aa), UBound(aa, 2)) = aa
            End With
        Next i
    End With
End Sub

Re SophieB le forum

zut j'ai créé les feuilles mais pas en partant du modèle je modifie

a+

Papou

Re SophieB le forum

bon alors voilà la bonne

a+

Papou

'Macro Faite par Pascal RICHARD Paritec le 02/08/2018
Option Explicit

Sub Creation_Onglets_Selon_Modele()
    Dim i&, a&, aa
    With Feuil3
        For i = 2 To .Range("A" & Rows.Count).End(3).Row
        aa = .Range(.Cells(i, 4), .Cells(i, 8))
            Feuil2.Copy after:=Sheets(Sheets.Count)
            ActiveSheet.Name = .Cells(i, 4)
            With ActiveSheet
                    ActiveSheet.Range("A4").Resize(UBound(aa), UBound(aa, 2)) = aa
            End With
        Next i
    End With
End Sub

bonjour à tous

pourquoi automatiser (nécessitera un clic) ce qui peut se faire en manuel à la souris avec 2 clics

@PARITEC: Excellent merci c'est exactement le mode de fonctionnement, et code simplifié, qui me sauve

Bonne soirée

Bonjour Jmd le forum

Jmd oui tu as raison, d'ailleurs je ne comprends même pas pourquoi tu utilises un PC, il existe des blocs notes, et en plus il n'y a plus besoin d'électricité, les bougies c'est bien aussi !!!!

Bonne journée

Papou

SophieB a écrit :

@PARITEC: Excellent merci c'est exactement le mode de fonctionnement, et code simplifié, qui me sauve

Bonne soirée

Bonjour PARITEC,

Petite question subsidiaire, si j'ai 2 fois la meme ligne dans l'onglet BOUTIQUE, meme BOUTIQUE mais avec ORDER CATEGORY different, le code passe en erreur.

Est il possible dans ce cas de nommer le nouvel onglet avec nom BOUTIQUE comme actuelle & "-" & la valeur de ORDER CATEGORY?

Est ce la bonne methode pour eviter que ca plante?

exemple: PALAC001-COL; PALAC001-DEF dans le fichier joint

Merci

Ré bonjour SophieB le forum

Oui je te le ferai cet après midi car là je n’ai pas de Pc

A plus

Papou

paritec a écrit :

Ré bonjour SophieB le forum

Oui je te le ferai cet après midi car là je n’ai pas de Pc

A plus

Papou

@PARITEC:

J'ai trouvé la solution entre temps: ActiveSheet.Name = .Cells(i, 4) & "_" & .Cells(i, 7)

Merci de ton aide

Bonjour SophieB le forum

parfait si tu as modifié

a+

papou