Discussion :

[revans]

bonjour,
j'ai besoin d'aide au sujet d'un macro, alors j'aimerais pouvoir crée une macro qui copie une colone entiere et qui la copie sur plusieur feuilles, bien sur ce nombre de feuilles et variable et la variable est contenue dans une cellule de mon fichier de depart.
et j'aimerais aussi apres pouvoir copier la colonne deux la copier sur la feuille 2 puis la 3 sur la feuille 3 ainsi de suite, le nombre de colone est égale au nombre de feuilles
j'etait partie sur quelque chose comme cela

Code :

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

1
2
3
4
5
6
7
Range("A18").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    For i = Sheets("Cylindre1") To Sheets("cylindre" & nbfeuilles)
    Sheets(i).Copy
    ActiveSheet.Paste
    Next i

[Pierre Fauconnier]

Salut.

Tu parles de colonne entière, puis tu sélectionnes une plage qui va de la ligne 18 à la prochaine ligne vide

Tu ne dis pas non plus sur quelles feuilles tu veux coller ta plage source. Toutes sauf la feuille source? autre?

Précise ta question stp.

[revans]

oui enfin je parle de colone mais pour moi c'est de la ligne 18 jusqu'a la fin , j'aimerais coller cette plage sur les feuilles que j'ai crée ici

Code :

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

1
2
3
4
5
nbfeuilles = Sheets("donner traiter").Range("C11")
For i = 1 To nbfeuilles
  Sheets.Add after:=Sheets(Worksheets.Count)
  Sheets(Worksheets.Count).Name = "Cylindre" & i
Next i

[Pierre Fauconnier]

Voici un code qui fait cela

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 Copie()
  Dim Plage As Range
  Dim i As Integer
  Dim ws As Worksheet
 
  Set Plage = Worksheets("feuil1").Range("a18")
  Set Plage = Range(Plage, Plage.End(xlDown))
  Plage.Copy
  For i = 1 To Worksheets("donner traiter").Range("c11")
    Set ws = Worksheets.Add(after:=Sheets(Sheets.Count))
    ws.Name = "Cylindre " & i
    ws.Range("a18").PasteSpecial xlPasteAll
  Next i
  Application.CutCopyMode = False
End Sub

Attention que sans vérifier que les feuilles sont inexistantes, la relance du code sur le même classeur plantera sur la création des feuilles.

[revans]

alors , il me rennome toute mes pages et il me crée 2 fois les pages cylindre 1 a 4
voici mon code , si quelqu'un pouvait m'aider a comprendre , deja que c'est bien sympa de m'aider

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub Macro2()
'
'Ouvrire boite de dialogue
 
Application.Dialogs(xlDialogOpen).Show
'copie du fichier
       Range("A1:E57618").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets.Add before:=Sheets(Sheets.Count)
    ActiveSheet.Paste
    Sheets("Feuil1").Select
    Sheets("Feuil1").Name = "donner traiter"
 
'suppresion d'une ligne sur deux
 
Dim i As Long
 
For i = Range("A" & Rows.Count).End(xlUp).Row To 20 Step -2
    Rows(i).Delete
Next i
 'creation nombre de feuille
nbfeuilles = Sheets("donner traiter").Range("C11")
For i = 1 To nbfeuilles
  Sheets.Add after:=Sheets(Worksheets.Count)
  Sheets(Worksheets.Count).Name = "Cylindre" & i
Next i
'copie des cycles
  Set Plage = Sheets("donner traiter").Range("a18")
  Set Plage = Range(Plage, Plage.End(xlDown))
  Plage.Copy
  For i = 1 To Worksheets("donner traiter").Range("c11")
    Set ws = Worksheets.Add(after:=Sheets(Sheets.Count))
    ws.Name = "Cylindre " & i
    ws.Range("a18").PasteSpecial xlPasteAll
  Next i
  Application.CutCopyMode = False

j'ai beau chercher je trouve pas mon erreur

[fring]

il me crée 2 fois les pages cylindre 1 a 4

C'est normal, tu as deux boucles dans lesquelles tu crées les feuilles

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
For i = 1 To nbfeuilles
  Sheets.Add after:=Sheets(Worksheets.Count) '<-- une première fois ici
  Sheets(Worksheets.Count).Name = "Cylindre" & i
Next i
'copie des cycles
  Set Plage = Sheets("donner traiter").Range("a18")
  Set Plage = Range(Plage, Plage.End(xlDown))
  Plage.Copy
  For i = 1 To Worksheets("donner traiter").Range("c11")
    Set ws = Worksheets.Add(after:=Sheets(Sheets.Count)) '<-- une seconde fois ici
    ws.Name = "Cylindre " & i
    ws.Range("a18").PasteSpecial xlPasteAll
  Next i

[revans]

alors voila maintenant j'ai résolue le probleme de la création de plusieur feuilles
mais il ne me copie la plage que sur la feuille cylindre 4

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
nbfeuilles = Sheets("donner traiter").Range("C11")
For i = 1 To nbfeuilles
  Sheets.Add after:=Sheets(Worksheets.Count)
  Sheets(Worksheets.Count).Name = "Cylindre" & i
Next i
'copie des cycles
  Set Plage = Sheets("donner traiter").Range("a18")
  Set Plage = Range(Plage, Plage.End(xlDown))
  Plage.Copy
  For i = 1 To Worksheets("donner traiter").Range("c11")
  Name = "Cylindre " & i
  Range("a1").PasteSpecial xlPasteAll
  Next i
  Application.CutCopyMode = False

[gFZT82]

Bonjour,

Essaie comme cela

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    'copie des cycles
    Set Plage = Sheets("donner traiter").Range("A18")
    Set Plage = Range(Plage, Plage.End(xlDown))
    Plage.Copy
 
    'Création des feuilles et collage
    nbfeuilles = Sheets("donner traiter").Range("C11")
    For i = 1 To nbfeuilles
        Sheets.Add after:=Sheets(Worksheets.Count)
        Sheets(Worksheets.Count).Name = "Cylindre" & i
        Range("A1").PasteSpecial xlPasteAll
    Next i
 
    Application.CutCopyMode = False

Cordialement.

[revans]

franchement c'est super , tout fonctionne comme il faut, encore merci a vous