Discussion :

[bucgif]

Bonjour à tous

j'ai une erreur sur le code suivant:

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
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 :

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

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

marche mais le programme bloque à

Code :

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

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

[bucgif]

Finalement j'ai trouvé
Il faut écrire :

Code :

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

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

[Theze]

Bonjour,

La référence des ranges est importante :

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
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((

[bucgif]

Super, merci pour ces précisions !