Copie de feuille excel suivant modèle

Question

Bonjour,

J'ai deux feuille de modèle front et back et souhaiterais avoir la copie des deux l'un après l'autre, et avoir le nom de l'onglet front + c.value et back + c.value :

Sub Creation_Onglets_Selon_Modele()
   Dim c As Range
   
    Application.ScreenUpdating = False
    'On crée les onglets qui sont listés à partir de la cellule
    'A2 de l'onglet nommé Liste
    Set c = Worksheets("base").Range("A2") 'cellule de départ
    Do Until IsEmpty(c)     'boucle tant que c est vide
   
        'on copie le modèle en dernier
           Worksheets("front").Copy After:=Worksheets(ThisWorkbook.Sheets.Count)
       With Worksheets(ThisWorkbook.Sheets.Count) 'avec l'onglet créé
            .Name = c.Text     'on renomme
            'on remplit notre modèle comme on veut...
            .Range("A1") = c.Text
            '.Range("C3") = Date

Worksheets("back").Copy After:=Worksheets(ThisWorkbook.Sheets.Count)
       With Worksheets(ThisWorkbook.Sheets.Count) 'avec l'onglet créé
            .Name = c.Text     'on renomme
            'on remplit notre modèle comme on veut...
            .Range("A1") = c.Text
            '.Range("C3") = Date
        End With
        
    
        Set c = c.Offset(1, 0)      'prochaine ligne
    Loop
   
    Application.ScreenUpdating = True



End Sub


Si quelqu'un peut m'aider .

Merci

ucfoutu · Answer

Bonjour,
un minimum de chez minimum est de savoir ce que l'on écrit !
je te demande de réfléchir à ce que tu attends de  cette boucle sans fin si A2 contient quelque-chose
Set c = Worksheets("base").Range("A2") 'cellule de départ
Do Until IsEmpty(c) 'boucle tant que c est vide 
...
Loop
Réfléchis.
PS : ah ! n'avais pas vu ton offset
Bon ===>> intéresse-toi à la méthode Copy (Range.copy) et à son argument destination.
Intéresse-toi également à la détermination de la dernière ligne remplie (une foultitude d'exemples sur ce forum).

Copie de feuille excel suivant modèle

1 réponse

Votre réponse

Discussions similaires