creation d'onglets renommes

[jalucyne]

Bonjour, à partir du classeur joint (récupéré dans une discussion précédente), je souhaite générer automatiquement des onglets à partir d'une liste de nom, et copier tableau type dans chaque page crée, le must serait de renommer en meme temps la page en (A2 par ex) du meme nom que l'onglet.....
Attention: Dans le fichier joint il y a une macro que je n'ai pas modifié pour supprimer les feuilles, si on l'execute elle supprime TOUTES les feuilles sauf Feuil 1 , il faudrait la modifier pour qu'elle garde aussi la feuille Base.
Au plaisir de vous lire

 

[gwenlorin]

Re : creation d'onglets renommes

Bonjour,

Est-ce que tu peux être plus précis. Quel est ton pb exactement ?
La génération des onglets semble OK
Tu parles d'un tableau type, lequel ?

a+

 

[jalucyne]

Re : creation d'onglets renommes

Pour etre plus precis en effet je souhaite que ds cahque page cree soir recopie la feuille " Base"
Merci d'avoir repondu si vite.

 

[Robert]

Re : creation d'onglets renommes

Bonjour le fil, bonjour le forum,

En pièce jointe ton fichier modifié.

 

[gwenlorin]

Re : creation d'onglets renommes

Re,

remplace le code de ta macro par :

Sub creerFeuilles()
Dim curCell As Range

Application.ScreenUpdating = False

Set curCell = ThisWorkbook.Sheets("Feuil1").Range("A4")
While curCell.Value <> vbNullString
    ThisWorkbook.Sheets("Base").Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
    ActiveSheet.Name = curCell.Value & " " & curCell.Offset(0, 1).Value
    ActiveSheet.[A2] = curCell.Value
    ThisWorkbook.Sheets("Feuil1").Activate
    Set curCell = curCell.Offset(1, 0)
Wend
ThisWorkbook.Sheets("Feuil1").Select
Application.ScreenUpdating = True
End Sub

et dis moi si c'est bien ca que tu voulais.

a+

 

[jalucyne]

Re : creation d'onglets renommes

Merci pour vos réponses , Robert tout marche commme souhaité. Gwenlorin ca marche aussi mais la macro suppression supprime tout et donc ma feuille Base disparait, merci tout de meme pour votre aide