objet Worksheet / méthode Range

Version imprimable

Bonjour

J'ai un problème de syntaxe et/ou de méthode concernant l'objet worksheet et la propriété range.
Le code suivant marche lorsque je le copie dans un nouveau fichier.
Or j'ai beau supprimer tout le reste dans mon ancien fichier et faire un copier/coller j'ai l'erreur suivante :

"La méthode Range de l'objet Worksheet a échoué"

à la ligne

Code:

feuille11.Range(Cells(ligne11, colonne11), Cells(ligne22, colonne22)).Select

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Sub test()
 
Dim fSh2 As Worksheet
Set fSh2 = ActiveWorkbook.Sheets("Feuil1")
 
Call Quadrillage(fSh2, 4, 10, 4, 12)
 
 
End Sub
 
 
Sub Quadrillage(feuille11 As Worksheet, ligne11 As Integer, colonne11 As Integer, ligne22 As Integer, colonne22 As Integer)
 
feuille11.Range(Cells(ligne11, colonne11), Cells(ligne22, colonne22)).Select
 
'feuille.Activate
 
'Range(Cells(ligne1, colonne1), Cells(ligne2, colonne2)).Select
 
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
    .LineStyle = xlContinuous
    .ColorIndex = xlAutomatic
    .TintAndShade = 0
    .Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
    .LineStyle = xlContinuous
    .ColorIndex = xlAutomatic
    .TintAndShade = 0
    .Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
    .LineStyle = xlContinuous
    .ColorIndex = xlAutomatic
    .TintAndShade = 0
    .Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
    .LineStyle = xlContinuous
    .ColorIndex = xlAutomatic
    .TintAndShade = 0
    .Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
    .LineStyle = xlContinuous
    .ColorIndex = xlAutomatic
    .TintAndShade = 0
    .Weight = xlThin
End With
 
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
 
 
End Sub

Je sais qu'il ne faut pas trop utiliser la méthode 'selection'.
J'envisage d'utilser par la suite qqc du style :

Code:

Dim plage as range

Merci d'avance !

Bonjour,

Teste ce qui suit :

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
 
Sub Quadrillage(feuille11 As Worksheet, _
                ligne11 As Integer, _
                colonne11 As Integer, _
                ligne22 As Integer, _
                colonne22 As Integer)
 
    Dim Plage As Range
 
     With feuille11
 
    Set Plage = .Range(Cells(ligne11, colonne11), Cells(ligne22, colonne22))
 
    End With
 
    With Plage
 
        .Borders(xlDiagonalDown).LineStyle = xlNone
        .Borders(xlDiagonalUp).LineStyle = xlNone
 
        With .Borders(xlEdgeLeft)
            .LineStyle = xlContinuous
            .ColorIndex = xlAutomatic
            .TintAndShade = 0
            .Weight = xlThin
        End With
 
        With .Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .ColorIndex = xlAutomatic
            .TintAndShade = 0
            .Weight = xlThin
        End With
 
        With .Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .ColorIndex = xlAutomatic
            .TintAndShade = 0
            .Weight = xlThin
        End With
 
        With .Borders(xlEdgeRight)
            .LineStyle = xlContinuous
            .ColorIndex = xlAutomatic
            .TintAndShade = 0
            .Weight = xlThin
        End With
 
        With .Borders(xlInsideVertical)
            .LineStyle = xlContinuous
            .ColorIndex = xlAutomatic
            .TintAndShade = 0
            .Weight = xlThin
        End With
 
        .Borders(xlInsideHorizontal).LineStyle = xlNone
 
    End With
 
End Sub

Hervé.

16/10/2012, 16h11
bucgif

Bonjour

Merci Theze pour ta réponse.

Par contre j'ai la même erreur à la ligne:

Code:

Set Plage = .Range(Cells(ligne11, colonne11), Cells(ligne22, colonne22))

J'ai Excel 2010. Je ne sais pas si ça peut être une raison.

Oups,

Désolé, j'ai oublié les points du With :

Code:

1
2
3
4
5
6
 
    With feuille11
 
       Set Plage = .Range(.Cells(ligne11, colonne11), .Cells(ligne22, colonne22))
 
   End With

Hervé.

16/10/2012, 16h39
issoram

Comme ceci:

Code:

Set Plage = .Range(.Cells(ligne11, colonne11), .Cells(ligne22, colonne22))

Cordialement.
17/10/2012, 08h51
bucgif

Merci à vous 2!

J'avais essayé

Code:

Range(.Cells(ligne11, colonne11), .Cells(ligne22, colonne22)).select

mais je pense comprendre qu'on ne puisse pas faire un select sur un .cells ou . range; d'où la nécessité de passer par un

Code:

Dim Plage as Range