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

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
J
JulesGV
Nouveau venu
Nouveau venu
Messages : 1
Inscrit le : 15 mars 2018
Version d'Excel : 2013

Message par JulesGV » 15 mars 2018, 16:43

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
Test Macro RR.xlsm
(20.94 Kio) Téléchargé 5 fois
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'736
Appréciations reçues : 703
Inscrit le : 27 août 2012
Version d'Excel : 365 Personnel

Message par Jean-Eric » 15 mars 2018, 17:37

Bonjour,
Je te propose un peu de lecture :
http://optim18.rcac.fr/TablesExcel_13ReglesOr.pdf
Cdlt.
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message