VBA EXCEL : La méthode select a échoué

Version imprimable

Bonjour,

J'ai une macro qui a été faite avec l'option select (Sheets("MySheet").select) et dedans j'ai le code suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
 
                            Range("AC1:AD28").Select
                            Selection.ClearContents
                            Selection.Borders(xlDiagonalDown).LineStyle = xlNone
                            Selection.Borders(xlDiagonalUp).LineStyle = xlNone
                            Selection.Borders(xlEdgeLeft).LineStyle = xlNone
                            Selection.Borders(xlEdgeTop).LineStyle = xlNone
                            Selection.Borders(xlEdgeBottom).LineStyle = xlNone
                            Selection.Borders(xlEdgeRight).LineStyle = xlNone
                            Selection.Borders(xlInsideVertical).LineStyle = xlNone
                            Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
                            With Selection.Interior
                                .Pattern = xlSolid
                                .PatternColorIndex = xlAutomatic
                                .ThemeColor = xlThemeColorDark1
                                .TintAndShade = 0
                                .PatternTintAndShade = 0
                            End With

Mais je voudrai éviter de travailler avec Sheets("MySheet").select, et de travailler plutôt avec with Sheets("MySheet"). J'ai essayé de modifier comme ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
 
                            .Range("AC1:AD28").Select
                            Selection.ClearContents
                            Selection.Borders(xlDiagonalDown).LineStyle = xlNone
                            Selection.Borders(xlDiagonalUp).LineStyle = xlNone
                            Selection.Borders(xlEdgeLeft).LineStyle = xlNone
                            Selection.Borders(xlEdgeTop).LineStyle = xlNone
                            Selection.Borders(xlEdgeBottom).LineStyle = xlNone
                            Selection.Borders(xlEdgeRight).LineStyle = xlNone
                            Selection.Borders(xlInsideVertical).LineStyle = xlNone
                            Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
                            With Selection.Interior
                                .Pattern = xlSolid
                                .PatternColorIndex = xlAutomatic
                                .ThemeColor = xlThemeColorDark1
                                .TintAndShade = 0
                                .PatternTintAndShade = 0
                            End With

mais j'ai une erreur : La méthode select a échoué.

Quelqu'un sait m'aider? Merci!

bonjour
essayer avec ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub test()
With Sheets("MySheet")
.Range("AC1:AD28").Select
Selection.ClearContents
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End With
End Sub

11/10/2017, 12h24
joe.levrai
Bonjour,

pourquoi borner ton bloc With à la feuille seulement, ajoutes-y la plage, et évite les Select et Activate qui ne servent à rien, si ce n'est ralentir l'exécution
Code:

1 2 3 4 With Sheets("MySheet").Range("AC1:AD28") .ClearContents 'blabla End With
la feuille n'est pas protégée à tout hasard au passage ?

Citation:

Envoyé par BENNASR

bonjour
essayer avec ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub test()
With Sheets("MySheet")
.Range("AC1:AD28").Select
Selection.ClearContents
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End With
End Sub

J'ai déjà essayé ta solution. Si tu jetes un coup d'oeil à mon premier message

Citation:

Envoyé par Vbajon

J'ai une macro qui a été faite avec l'option select (Sheets("MySheet").select) et dedans j'ai le code suivant :

Mais je voudrai éviter de travailler avec Sheets("MySheet").select, et de travailler plutôt avec with Sheets("MySheet"). J'ai essayé de modifier comme ceci :

J'ai beau lire ton code plusieurs fois, je ne vois pas de différence entre les deux codes ni de présence de Sheets("MySheet") dedans. :koi:

Si tu veux éviter les Select/Selection :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 With Sheets("MySheet") With .Range("AC1:AD28") .ClearContents .Borders(xlDiagonalDown).LineStyle = xlNone .Borders(xlDiagonalUp).LineStyle = xlNone .Borders(xlEdgeLeft).LineStyle = xlNone .Borders(xlEdgeTop).LineStyle = xlNone .Borders(xlEdgeBottom).LineStyle = xlNone .Borders(xlEdgeRight).LineStyle = xlNone .Borders(xlInsideVertical).LineStyle = xlNone .Borders(xlInsideHorizontal).LineStyle = xlNone With .Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorDark1 .TintAndShade = 0 .PatternTintAndShade = 0 End With End With End With

Citation:

Envoyé par Menhir

J'ai beau lire ton code plusieurs fois, je ne vois pas de différence entre les deux codes ni de présence de Sheets("MySheet") dedans. :koi:

Si tu veux éviter les Select/Selection :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
With Sheets("MySheet")
   With .Range("AC1:AD28")
      .ClearContents
      .Borders(xlDiagonalDown).LineStyle = xlNone
      .Borders(xlDiagonalUp).LineStyle = xlNone
      .Borders(xlEdgeLeft).LineStyle = xlNone
      .Borders(xlEdgeTop).LineStyle = xlNone
      .Borders(xlEdgeBottom).LineStyle = xlNone
      .Borders(xlEdgeRight).LineStyle = xlNone
      .Borders(xlInsideVertical).LineStyle = xlNone
      .Borders(xlInsideHorizontal).LineStyle = xlNone
      With .Interior
         .Pattern = xlSolid
         .PatternColorIndex = xlAutomatic
         .ThemeColor = xlThemeColorDark1
         .TintAndShade = 0
         .PatternTintAndShade = 0
      End With
   End With
End With

Merci beaucoup, j'ai pensé à

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
 
.Range("AC1:AD28").ClearContents
                            With .Range("AC1:AD28")
                            .Borders(xlDiagonalDown).LineStyle = xlNone
                            .Borders(xlDiagonalUp).LineStyle = xlNone
                            .Borders(xlEdgeLeft).LineStyle = xlNone
                            .Borders(xlEdgeTop).LineStyle = xlNone
                            .Borders(xlEdgeBottom).LineStyle = xlNone
                            .Borders(xlEdgeRight).LineStyle = xlNone
                            .Borders(xlInsideVertical).LineStyle = xlNone
                            .Borders(xlInsideHorizontal).LineStyle = xlNone
 
                            .Interior.Pattern = xlSolid
                            .Interior.PatternColorIndex = xlAutomatic
                                .Interior.ThemeColor = xlThemeColorDark1
                                .Interior.TintAndShade = 0
                                .Interior.PatternTintAndShade = 0
 
                            End With

Cela revient au même que ta solution. Merci :D

11/10/2017, 15h30
Menhir
Citation:
Envoyé par Vbajon

Code:

1 2 .Range("AC1:AD28").ClearContents With .Range("AC1:AD28")
Cherchez l'erreur... :mrgreen: