Posez votre question Signaler

Création nouveau onglet à partir d'une liste

Nais - Dernière réponse le 19 juin 2009 à 17:48
Bonjour,
j'ai une liste excel contenant 4 colonnes et un certain nombre de lignes qui font référence à un certain nombre d'inverventions.
j'essaie de créer une macro qui créerait autant de nouvelles feuilles que de lignes dans mon fichier.
j'ai déjà trouvé la macro qui me permet de créer le nombre de feuilles requis. (merci à celle qui l'avait créée)
Dim nombreinterventions, c
For Each c In Range("liste")
nombreinterventions = c.Value
Sheets.Add Count:=1, after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = nombreinterventions
Next c
End Sub
mais les feuilles créés sont vides alors que je souhaiterai qu'elles aient toutes le même format prédéfini et qu'elles reprennent les informations contenues sur la ligne correspondante de la liste principale
exemple pour éclaircir mon propos
liste
date invervention nº description lieu
01/03/09 1 xxxx yyyyy
01/05/09 2 xxxx yyyyy
03/06/09 3 xxxx yyyyy
07/08/09 4 xxxx yyyyy
Dans ce cas il faudrait créer 4 nouveaux onglets à travers la macro et dans chaque onglet figurerait
onglet 1
date 01/ 03 / 09
intervention nº 1
description xxxxx
lieu yyyy
onglet 2
date 01/ 05 / 09
intervention nº 2
description xxxxx
lieu yyyyy
etc......
quelqu'un pourrait-il m'aider à complèter la macro svp!
Lire la suite 

Création nouveau onglet à partir d'une liste »

1 réponses
Réponse
+0
moins plus
bonjour

Regardes si le classeur que j'avais créé pour une autre discussion peux t'aider :

http://www.cijoint.fr/cjlink.php?file=cj200902/cijX7JT0gD.xls

Il fonctionne en événementiel et par formules selon la demande : si tu ne comprends pas, continues ton questionnement.
Ajouter un commentaire
Ce document intitulé « création nouveau onglet à partir d'une liste » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
Passage au tout numérique : quel coût pour les particuliers ?