Add Worksheet et Copy d'un range

Version imprimable

Bonjour à tous

j'ai une erreur sur le code suivant:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Sub test() Dim Wb As Workbook Dim Ws As Worksheet Set Wb = ThisWorkbook Set Ws = Wb.ActiveSheet Dim nombre_de_lignes As Integer nombre_de_lignes = Ws.Range("A65536").End(xlUp).Row Dim ligne_debut As Integer ligne_debut = 2 Dim ligne_fin As Integer ligne_fin = 10 Wb.Sheets.Add(After:=Sheets(Wb.Sheets.Count)).Name = Ws.Cells(ligne_debut, 1) 'ou 'Wb.Sheets.Add After:=Sheets(Wb.Sheets.Count) 'Wb.Sheets(Wb.Sheets.Count).Name = Ws.Cells(ligne_debut, 1) Ws.Range(Cells(ligne_debut, 1), Cells(ligne_fin, 4)).Copy ThisWorkbook.Worksheets("test").Paste Destination:=ThisWorkbook.Worksheets("test").Range("A1") End Sub
Mon problème :

La ligne

Code:

Wb.Sheets.Add(After:=Sheets(Wb.Sheets.Count)).Name = Ws.Cells(ligne_debut, 1)

marche mais le programme bloque à

Code:

Ws.Range(Cells(ligne_debut, 1), Cells(ligne_fin, 4)).Copy

Si je n'insére pas de feuille mon code .Copy marche...

Merci d'avance

16/01/2013, 11h58
bucgif

Finalement j'ai trouvé
Il faut écrire :

Code:

Ws.Range(Ws.Cells(ligne_debut, 1), Ws.Cells(ligne_fin, 8)).Copy

Bonjour,

La référence des ranges est importante :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Sub test()
 
    'ne sert à rien si le travail se fait seulement sur le classeur actif
    'Dim Wb As Workbook
 
    Dim Ws As Worksheet
    Dim Ws_Add As Worksheet
    Dim nombre_de_lignes As Integer
    Dim ligne_debut As Integer
    Dim ligne_fin As Integer
 
    'Set Wb = ThisWorkbook
 
    Set Ws = Wb.ActiveSheet
 
    ''préférable depuis Excel 2007
    With Ws
 
        nombre_de_lignes = Ws.Cells(.Rows.Count, 1).End(xlUp).Row
 
    End With
 
    ligne_debut = 2
    ligne_fin = 10
 
    'utilise une variable feuille
    Set Ws_Add = Wb.Sheets.Add(, Sheets(ThisWorkbook.Sheets.Count))
 
    'défini son nom
    Ws_Add.Name = Ws.Cells(ligne_debut, 1)
 
    ' la référence est bien faite sur la feuille active
    With Ws
 
        .Range(.Cells(ligne_debut, 1), .Cells(ligne_fin, 4)).Copy Ws_Add.Cells(1, 1)
 
    End With
 
End Sub

Hervé.

Oups,

Pas rafraîchi :o((

16/01/2013, 13h22
bucgif

Super, merci pour ces précisions !