Bonjour,

J'ai une macro qui a été faite avec l'option select (Sheets("MySheet").select) et dedans j'ai 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
 
 
                            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 : 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
 
 
                            .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!