Discussion :

[ericdev67]

Bonjour,

Je souhaite créer à partir d'une liste de nom, des feuilles dans un classeur:

exemple :
A1 :a
A2 : b
A3 : c
....
.....
La macro devra créer pour chaque élément contenu dans la colonne A (je vais utiliser le code "for Each...."), une feuille dans le classeur ouvert et chaque feuille ayant pour nom le contenu de la cellule : feuille "a", feuille "b",.....

Merci,
A+

En fait, j'arrive à récupérer le nom dans la cellule, mais je n'arrive pas à renommer la feuille et lui attribuer le nom...
A+

[ouskel'n'or]

Code :

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

1
2
Sheets.Add after:=Worksheets(Sheets.Count)
Worksheets(sheets.count).name = worksheets("Feuil1").Cells(NoLigne,1).value

Bonne soirée

[Abed_H]

Bonsoir
la liste se trouve dans la colonne A de la feuille 1

Code :

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

1
2
3
4
5
6
7
8
Sub CréerFeuilles()
  i = 1
    Do Until IsEmpty(Feuil1.Cells(i, 1))
       Sheets.Add after:=Worksheets(Worksheets.Count)
       ActiveSheet.Name = Feuil1.Cells(i, 1).Value
       i = i + 1
  Loop
End Sub

Bonne soirée

Abed_H

[ericdev67]

Merci a tous les deux,
après une bonne nuit de recherche et surtout vos bons codes, ça fonctionne pil-poil .....

Encore merci,
A+