Code plus rapide ?

Version imprimable

Code plus rapide ?

Bonjour,

Je souhaite améliorer un code, le principe est simple, si la checkbox6 est cochée alors encdrée une plage de cellule séléctionée

j'arrive à cela pour le moment :

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
If CheckBox6 = True Then
Range("A94:H103").Select
 
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThick
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThick
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThick
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThick
    End With
 
End If

Des idées ?
Codrialement.

Salut,

Comme ceci par exemple:

Code:

1
2
3
4
5
6
    If CheckBox6 = True Then
        With Range("A94:H103")
            .Borders.LineStyle = xlNone
            .BorderAround LineStyle:=xlContinuous, Weight:=xlThick, ColorIndex:=xlColorIndexAutomatic
       End With
    End If

17/09/2012, 17h43
Yamiral

Bonjour

Merci beaucoup, ça fonctionne bien.

Une seul petite ombre, c'est qu'il me modifie également ma mise en forme à l'intérieur de la selection.

Exemple : La cellule B95 est encadrée //
après aplication de la macro, elle ne l'est plus.

Est il possible d'empêcher cette modification en prenant pour base ton Code ??

Cordialement.
17/09/2012, 18h45
Minick

Salut,

En enlevant cette ligne:

Code:

.Borders.LineStyle = xlNone
17/09/2012, 18h58
Yamiral

Yes t'est le meilleur !

MErci beaucoup !

Cordialement.