Créer des feuilles excel à partir d'une liste+données

Version imprimable

Bonjour à tous,
J'essaye de créer des feuilles Excel à partir d'une liste en copiant en même temps les données correspondantes à un nom de ma liste.
J'ai utilisé la macro suivante mais elle ne fonctionne pas.
Pourriez-vous me dire comment je peux modifier cette macro pour que cela fonctionne.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub Macro3() ' ' Macro3 Macro ' Dim nom, c For Each c In Range("liste") nom = c.Value Sheets("Feuil1").Select Range("A1:I1,A" & c & ":I" & c).Select Selection.Copy Sheets.Add After:=Worksheets(Worksheets.Count) Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True ActiveSheet.Name = nom Next c End Sub
je voudrais donc copier en plus de plage A1:I1 la plage correspondant au nom pour lequel je crée la nouvelle feuille.
J'espère que ma demande est suffisamment claire.
Merci d'avance pour votre aide.

Bonjour,

Une solution possible avec ce code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Macro3()
 
 Dim Cellule As Range
 Dim AireACopier As Range
 Dim ListeACopier As Range
 
 
        Set ListeACopier = Sheets("Feuil1").Range("liste")
 
        For Each Cellule In ListeACopier
 
            Set AireACopier = Sheets("Feuil1").Range("A1:I1,A" & Cellule.Row & ":I" & Cellule.Row)
            AireACopier.Copy
 
            Sheets.Add After:=Worksheets(Worksheets.Count)
            ActiveSheet.Cells(1, 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
            ActiveSheet.Name = Cellule
 
        Next Cellule
 
        Set AireACopier = Nothing
        Set ListeACopier = Nothing
 
End Sub

Je suppose que la transposition des colonnes en lignes correspond bien ce que vous souhaitez.

Cordialement.

02/11/2013, 15h14
sof_011

Un tout grand merci à vous.
C'est exactement ce que je cherchais.

bon week-end à vous.