Discussion :

[guismoman33]

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
Private Sub CommandButton1_Click()
 
Dim I As Integer
 
     Cells.Select
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Key2:=Range("Q1") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
        :=xlSortNormal
    Range("B9").Select
 
 
 
 
I = 1
Do While Sheets("21)Contrôle").Cells(I, 1) <> ""
 
    Rows(I).Insert Shift:=xlDown
 
I = I + 2
Loop
    Workbooks.Open ("C:\Documents and Settings\RICOH\Mes documents\version\Classeur1.xls")
    Windows("Classeur1.xls").Activate
    Range("A1:R18").Select
   Selection.Copy
    Windows("test2.xls").Activate
    Rows("1:1").Select
    Range("B1").Activate
    Selection.Insert Shift:=xlDown
    Windows("Classeur1.xls").Close
End Sub

Voici mon code il me dit que dans la selection de ma plage

Code :

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

Range("A1:R18").Select

j'ai une erreur de range...D'ou peut provenir cette erreur

[mordrhim]

avec

Code :

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

1
2
Windows("Classeur1.xls").Activate
Range("A1:R18").Select

tu selectionnes un classeur et directement une plage de cellules. Il faudrait, à mon avis, que tu selectionnes la feuille où se trouve cette plage de cellules.

et puis pour que ce soit plus propre je te conseille de remplacer les

Code :

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

1
2
XXX.Select
   Selection.YYYY

par

Code :

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

XXX.YYYY

ou XXX est un objet et YYYY une action
par exemple :

Code :

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

1
2
3
Windows("Classeur1.xls").Activate
    Range("A1:R18").Select
   Selection.Copy

à remplacer par

Code :

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

Windows("Classeur1.xls").Sheets("Tafeuille").Range("A1:R18").Copy