autant d'onglet que de lignes de la feuille1

[Joanita]

Bonsoir,
Ma feuille 1 contient 'n' lignes de 3 colonnes. Je souhaiterais savoir s'il est possible avec une macro de générer autant d'onglets que de lignes saisies dans la feuille 1.
Le nom du nouvel onglet est dans la colonne A. La premiére ligne reprendra le contenu des cellule b(n) et c(n).
Si une réponse a déjà été apportée, veuillez m'excuser. (j'ai remonté les archives en vain)
D'avance un grand merci.

 

[Hervé]

Bonjour

Ce type de macro fait ce que tu demandes :

Public Sub voir()
Dim nom As String
Dim c As Range

nom = ActiveSheet.Name
For Each c In Sheets(nom).Range('a1:a' & Sheets(nom).Range('a65536').End(xlUp).Row)
If c <> '' Then
Sheets.Add(Before:=Worksheets(Worksheets.Count)).Name = c.Value
With Sheets(c.Value)
.Range('a1') = c.Offset(0, 1)
.Range('b1') = c.Offset(0, 2)
End With
End If
Next c
Sheets(nom).Activate
End Sub

Attention à la gestion d'erreur, au cas ou deux feuilles porteraient le même nom.

A plus

 

[ChTi160]

Salut'joanita' et 'Hervé'
le fichier est fait donc je le post

oups j'aurais pu comme Hervé sélectionner la feuil1 a la fin
End With
Sheets('Feuil1').Select
Application.ScreenUpdating = True
TheEnd:
End Sub
[file name=SheetsAdd_and_Cell.zip size=10563]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/SheetsAdd_and_Cell.zip[/file]
Sheets('Feuil1').select

Message édité par: ChTi160, à: 16/03/2005 17:14

 

[CBernardT]

Bonsoir joanita, Hervé, Chti160 et le Forum,

J'arrive en retard 🙁

J'ai pris le temps d'installer certaines vérifications pour éviter les erreurs et les cellules vides.

Avec ces réponses Joanita aura de quoi macroter hi hi 🙂

Cordialement

CBernardT [file name=GenererFeuilles.zip size=14686]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/GenererFeuilles.zip[/file]

 

[joelanita]

Merci à vous tous. Très agréablement surpris d'une réponse adaptée en moins de 30 minutes....j'ai passé ma matinée à essayer et à chercher..... J'espère au fil du temps pouvoir participer de façon plus active. Bonne journée.