création feuille excel

[sami66]

Bonjour
J’ai besoin de créer des feuilles (24) excel et les nommer a partir d’une liste existante (24 cellules chaque cellule contient un nom)
merci

 

[Robert]

Re : création feuille excel

Bonjour Sami et bienvenu, bonjour le forum,

Comme tu es nouveau parmi nous je te recommande vivement de lire la Lien supprimé du forum. Elle donne tous les bons plans pour obtenir de l'aide rapidement. Dans ton cas, un fichier exemple serait, comme toi, le bienvenu...

 

[Gardien de phare]

Re : création feuille excel

Bonjour et bienvenue,

Tu as lu la charte du forum avant de poster, oui bien sur, mais tu as dû sauter la ligne qui suggère fortement de mettre en classeur en PJ pour augmenter les chances de réponses ! Pas grave, retournes sur ton 1er post, et modifies le en rajoutant un petit exemple de ton classeur (évidemment sans données personnelles, confidentielles ou sensibles).

Edit : bonjour Robert, croisement !

 

[sami66]

Re : création feuille excel

Merci pour votre coopération
Vous trouvez ci-joint le classeur exemple
Donc la feuille liste contient la liste des noms des feuille que je dois créer , il me faut une feuille pour chaque nom (nom 1, nom 2,…)
merciiiii

 

[sami66]

Re : création feuille excel

Merci pour votre coopération
Vous trouvez ci-joint le classeur exemple
Donc la feuille liste contient la liste des noms des feuille que je dois créer , il me faut une feuille pour chaque nom (nom 1, nom 2,…)
merciiiii

 

[Gardien de phare]

Re : création feuille excel

Bonjour,

Un exemple en PJ, la feuille nommée Base sert de modèle à toutes les feuilles créées.

 

[Robert]

Re : création feuille excel

Bonsoir le fil, bonsoir le forum,
Juste une petite modif au code de François au cas où un onglet portant le même nom qu'une des cellules existerait déjà :

Sub copie_feuille()
Dim i As Integer, Nom As String, sh As Object
For i = 2 To 24
    Nom = Feuil1.Range("A" & i).Value
    For Each sh In Sheets
        If sh.Name = Nom Then GoTo suite
    Next sh
    Sheets("Base").Copy After:=Sheets(Worksheets.Count)
    ActiveSheet.Name = Nom
suite:
Next i
End Sub

@François
Connais-tu la chanson de Claude NOUGARO "Le Gardien de Phare est Rond" ?

 

[Gardien de phare]

Re : création feuille excel

Re,

Réponse spéciale pour Robert, un vague souvenir mais sans plus pour Nougaro. Sinon, bien sur la correction.

 

[sami66]

Re : création feuille excel

bonjour à tous
ça marche très bien
merci pour votre coopération