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.