Discussion :

[philou6345]

Bonjour à tous et merci d'avance pour votre aide,

je suis novice avec les macros...

En farfouillant sur des forums, j'ai réalisé une macro qui fait ce que je lui demande :
1/ sélectionne ma feuille à copier (ma feuille 2)
2/ sélectionne la plage de cette feuille à copier (A1:H25)
3/ crée une nouvelle feuille et colle à la suite de la précédente
4/ elle incrémente la case A1 de chaque nouvelle feuille
5/ elle renomme chaque feuille du nom de la case A1

voici le code :

Code vba :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub incrementation()
'selection de la feuille
Sheets(2).Select
'selection de la plage à copier (ces 2 lignes sont necessaires; ne peuvent être regroupées en une seule)
Range("A1:H25").Select
Selection.Copy
'creation de nouvelle feuille en dernier et collage
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste
'incrementation de A1 à partir de A1 de feuille précédente
Sheets(Sheets.Count).Range("A1") = Sheets(Sheets.Count - 1).Range("A1") + 1
'renommer nouvelle feuille d'apres sa valeur en A1
Sheets(Sheets.Count).Name = Sheets(Sheets.Count).Range("A1")
End Sub

Mon soucis est que sur toutes mes nouvelles feuilles créees, le contenu des cellules est bon mais la mise en page à complètement sauter (largeur des colonnes / hauteur de ligne)

Que faut-il rajouter à mon code ???

Merci beaucoup de votre aide !

J'ai mis mon fichier en pièces jointes.