Créer autant de feuilles qu'il existe des données dans une colonne

[Stéphane DELAINE]

Bonsoir,

je souhaiterai savoir comment faire pour créer autant de feuilles que j'ai de cellules non vide dans la colonne "B" et que, pour chaque feuille crée, celle çi ait pour nom le texte de la cellule correspondante dans la colonne "B", via une belle macro !!

Merci bcp

 

[JB]

Salut Stéphane

voici une petite macro pour te dépanner, elle pose juste un problême si tu as plusieurs valeurs identiques dans ta colonne B.

Sub Macro1()
Dim Cell As Range
Dim Nom As String
Sheets("Feuil1").Activate
Range("B2", Range("B2").End(xlDown)).Select
For Each Cell In Selection
If Cell.Value <> "" Then
Nom = Cell.Value
ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Nom
End If
Next
End Sub

J'espère t'avoir dépanné mais quelqu'un te fournira probablement un moyen plus simple.

A+

JB

 

[Stéphane DELAINE]

Merci bcp JB,
Désolé pour le retard, j'ai changé de FAI et plus de web pendant qelques jours, franchement c'est dur !!!
En une fois merci bcp et surement à bientôt

Stéph