Discussion :

[sof_011]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Invité]

Bonjour,

Une solution possible avec ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[sof_011]

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

bon week-end à vous.