creation d'onglets renommes

G

gwenlorin

XLDnaute Occasionnel

• 8 Octobre 2009

• #2

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+

 

Vote positif 0 Vote négatif

J

jalucyne

XLDnaute Occasionnel

• 8 Octobre 2009

• #3

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.

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 8 Octobre 2009

• #4

Re : creation d'onglets renommes

Bonjour le fil, bonjour le forum,

En pièce jointe ton fichier modifié.

 

Pièces jointes

• Jalucyne_v01.xls

  59 KB · Affichages: 83

Vote positif 0 Vote négatif

G

gwenlorin

XLDnaute Occasionnel

• 8 Octobre 2009

• #5

Re : creation d'onglets renommes

Re,

remplace le code de ta macro par :

Code:

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+

 

Vote positif 0 Vote négatif

J

jalucyne

XLDnaute Occasionnel

• 8 Octobre 2009

• #6

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

 

Vote positif 0 Vote négatif