Macro creation et renommer feuille

Bonjour à tous,

J'ai créer la petite Macro suivante :

Sub ajout_feuilles()

Dim nom, c

For Each c In Range("liste")

nom = c.Value

Sheets.Add Count:=1, after:=Worksheets(Worksheets.Count)

ActiveSheet.Name = nom

Next c

End Sub

Celle-ci me permet de créer un onglet pour chaque ligne qui compose ma "liste" (imaginons C1:C10) et de renommer cette onglet avec la valeur de sa case respective.

J'aimerais rajouté (lors du renommage) les valeurs d'une autre colonne (prenons B1:B10) pour qu'au final chaque onglets soit nommés:

B1 - C1 ; B2 - C2 ...

Sauf que je n'arrive pas à rajouter la valeurs de la colonne B...

J'en appel donc à votre bonté et à votre gentillesse pour m'aider!

Merci d'avance

Bonjour,

remplacer

nom = c.Value

par

nom = c.Offset(, -1).Value & c.Value

ou par

nom = c.Offset(, -1).Value & " - " & c.Value

Pourquoi quand je le lis ca me parait evident?

En tout cas merci beaucoup

J'en profite:

J'ai dévellopé la macro qui ressemble à ça:

Sub ajout_feuilles()

'Création de l'onglet

Dim nom, c

For Each c In Range("liste")
nom = c.Offset(, -1).Value & " - " & c.Value & " " & Left(c.Offset(, 1), 1) & "."

Sheets.Add Count:=1, after:=Worksheets(Worksheets.Count)

ActiveSheet.Name = nom

'Mise en forme et remplissage

Sheets("Modèle").Visible = True
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Help ME!").Select     <- le Problème est la
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False

Next c

End Sub

Je créé mes feuilles et j'aimerais remplir chaque feuilles avec le contenue d'une feuille Caché. Le problème je n'arrive pas à sélectionner la dernière feuilles qui viens d'être créer

Encore infiniment Merci

Bonjour Banjo,

vous avez placé le code pour la Mise en forme et remplissage à l'intérieur de la boucle,

alors si je comprend bien vous voulez appliquer la mise en forme à tous les nouvelle feuilles crééesé

aussi il n'est pas nécessaire de mettre la feuille "Modèle" visible pour copier les cellules.

Sub ajout_feuilles()
'Création de l'onglet
Dim nom, c

For Each c In Range("liste")
 nom = c.Offset(, -1).Value & " - " & c.Value & " " & Left(c.Offset(, 1), 1) & "."

 Sheets.Add Count:=1, after:=Worksheets(Worksheets.Count)

 ActiveSheet.Name = nom

 'Mise en forme et remplissage
 Sheets("Modèle").Cells.Copy
 Sheets(nom).Cells.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
 Application.CutCopyMode = False

Next c

End Sub