Macro - Créer x nombres d'onglets et y copier un format particulier

Bonjour a tous,

Je suis à la recherche d'une macro et n'étant que débutant j'ai beaucoup de mal.

Vous trouverez ci joint mon fichier.

J'aimerais pouvoir faire un copier coller de mes marques sur l'onglet "All brands" dans les cellules A5 à Ax (le nombre varie très souvent) appuyer sur ma macro et que je me retrouve avec :

  • un onglet pour chacune de mes marques
  • que dans chaque onglet "marque" je me retrouve avec une copie de l'onglet "Base"
  • l'idéal serait d'avoir le nom de l'onglet ainsi que la cellule fusionné A1:B3 au nom de la marque (c'est pas obligatoire mais ce serait un plus)

Pour l'instant j'ai réussi a faire une macro qui me permet de créer les onglets au nom de marque :

"Sub Test()

'

' Test Macro

'

'

Dim MyCell As Range, MyRange As Range

Set MyRange = Sheets("All brands").Range("A5")

Set MyRange = Range(MyRange, MyRange.End(xlDown))

For Each MyCell In MyRange

Sheets.Add After:=Sheets(Sheets.Count) 'creates a new worksheet

Sheets(Sheets.Count).Name = MyCell.Value ' renames the new worksheet

Next MyCell

End Sub

Je vous remercie,

Cordialement

Jules

5test-macro-rr.xlsm (20.94 Ko)
Rechercher des sujets similaires à "macro creer nombres onglets copier format particulier"