XL 2010 Macro de création d'onglet et remplissage de cellule

[user999]

Bonjour,

J'ai un fichier récapitulatif qui comporte plusieurs feuilles liées entre elles par des formules dont :
- 1 feuille intitulée "Modèle"
- 1 feuille comportant en colonne une liste de codes de référence sous forme de nombres (près de 1000).

Je souhaiterais créer une macro qui effectue le déroulé suivant autant de fois qu'il y a de codes de référence dans ma liste :
1/ créer une copie de la feuille "Modèle"
2/ nommer cette feuille avec la valeur du code de référence
3/ inscrire en B1 la valeur du code de référence (la feuille comporte des formules qui remplissent les autres champs automatiquement).

Malheureusement, je n'y connais absolument rien en langage macro. Mes essais avec la création de macro en fonction des gestes effectués ne donne rien d'utilisable, aussi je me tourne vers vous. Aujourd'hui, j'en suis réduis à effectuer ces actions manuellement... 1000 fois...

Quelqu'un aurait-il déjà créé ce type de macro ?

Merci beaucoup par avance et bon we !

Arnaud

 

[gosselien]

Quelqu'un aurait-il déjà créé ce type de macro ?

Arnaud

Bonjour,

certainement que beaucoup ici l'ont fait déjà (pas moi 🙁 ), mais sans fichier exemple ...

P.

 

[chris]

Bonjour à tous

1000 onglets si je comprends bien !
Cela risque fort d'exploser en vol en plus d'être inexploitable par un utilisateur normalement constitué...

Quelle est la finalité opérationnelle ?

 

[gosselien]

Bonjour à tous

1000 onglets si je comprends bien !
Cela risque fort d'exploser en vol en plus d'être inexploitable par un utilisateur normalement constitué...

Quelle est la finalité opérationnelle ?

😉
de fait ... 1000 onglets , pffff 🙁

 

[user999]

Merci pour vos retours.

Je comprends bien votre étonnement, mais pour l'avoir fait une fois, le fichier pèse 8Mo et reste utilisable, et chaque onglet est réutilisé dans un autre fichiers pour effectuer des calculs. Mon soucis est que je vais devoir reproduire dans le temps la manipulation et que comme vous vous en doutez, c'est particulièrement chronophage et pas spécialement passionnant 😉

En fait je cherche un modèle de macro ou je pourrais remplacer "simplement" les noms et référence de cellules et onlget par ceux de mon fichier. Je n'ai pas uploadé de fichier car n'importe quel fichier excel avec des codes (peu importe le format) en colonne sur une feuille ferait l'affaire, la feuille modèle pouvant être vierge.

Bonne soirée,

Arnaud

 

[gosselien]

re,

il eut été néanmoins préférable de déposer un modèle de 20 - 30 lignes anonymisé pour voir la vraie structure 🙂
je parle par expérience et au nom des autres futurs intervenants 😛
P.

 

[Staple1600]

Bonsoir à tous

user999 (bienvenue sur le forum)
Il a raison le petit nouveau!
Depuis quand c'est au demandeur de prendre le temps de créer un fichier exemple.
Le demandeur il a d'autres choses à faire.
C'est quoi ces "mous du genoux" de répondeurs qui sont pas capable de créer un fichier exemple!
C'est inouï ça!
Non mais!
En plus c'est écrit noir sur blanc dans la charte du forum.
Mais si les répondeurs lisaient la charte, ça se saurait !!

 

[user999]

Bonjour,

Voici un fichier exemple (désolé ce n'est qu'une illustration pour le principe, je n'ai pas accès à mes données pro).

Merci encore pour votre patience, je débute comme vous l'avez compris 🙂

Bon we,

Arnaud

 

[user999]

Je débute vraiment...😕

 

[chris]

Bonjour

Sub Demultiplier()
Dim cellule As Range
Dim place As Worksheet

Set place = Feuil1

With Feuil1
    For Each cellule In .Range(.Cells(2, 1), .Cells(.UsedRange.Rows.Count, 1)).Cells
        Sheets("Modèle").Copy After:=place
        ActiveSheet.Name = cellule.Value
        Set place= ActiveSheet
        ActiveSheet.Cells(1, 2) = cellule.Value
    Next cellule
    End With
End Sub

A noter que les erreurs possibles ne sont pas gérées dans ce code :

• longueur du nom dépassant la limite pour le nom de l'onglet ou caractères interdits
  
• code en double
• ligne vide
• ...

 

[Paf]

Bonjour à tous

une autre version, avec les mêmes limites ( plus celle de ne pas vérifier que la feuille existe déjà)

Sub CopyFeuilles()
Application.ScreenUpdating = False
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
    Worksheets("Modèle").Copy After:=Worksheets(Worksheets.Count)
    Worksheets(Worksheets.Count).Name = Cells(i, 1)
    ActiveSheet.Range("B1") = Cells(i, 1)
Next
Application.ScreenUpdating = True
End Sub

A+

 

[Staple1600]

Bonjour à tous, user999

Les aminches (chris, gosselien, Paf)
Vu de mon clavier, est-ce que par hasard dans le cas présent, on peut tenter le coup en passant par la voie Publipostage ou m'égare-je ?😉

 

[user999]

Bonjour Chris, bonjour Paf,

Je viens de tester vos solutions : la première fonctionne et la deuxième pas totalement car elle s'arrête "en route" (mais peut-être est-ce moi qui ai fait une mauvaise manip).

En tous cas, un très grand MERCI à tous les deux pour le temps que vous avez consacré à mon problème !!!

Je penserai à vous lundi 😉

Très bon we,

Arnaud
P.S : je me permettrai éventuellement de revenir vers vous si j'ai une question sur la mise en œuvre en situation réelle...

 

[Staple1600]

Re à tous

user999
Et moi, je pue de la gu.ule ?😉
Et gosselien ? (t'aimes pas les motards?)

Pourtant, je change ma brosse à dents régulièrement selon les recommandations de l'UFSBD .

 

[user999]

Oooops, non bien sûr, encore une boulette du néophyte que je suis !

Je vous remercie tous bien entendu pour vos contributions respectives (motards comme monocyclistes 😉 )!!