Discussion :

[Vbajon]

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!

[BENNASR]

bonjour
essayer avec ça :

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

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

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

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 ?

[Vbajon]

bonjour
essayer avec ça :

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

[Menhir]

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.

Si tu veux éviter les Select/Selection :

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

[Vbajon]

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.

Si tu veux éviter les Select/Selection :

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

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

[Menhir]

Code :

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

1
2
.Range("AC1:AD28").ClearContents
With .Range("AC1:AD28")

Cherchez l'erreur...