Code plus rapide ?

**Yamiral** · 14/09/2012, 16h47

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 :

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

**Minick** · 14/09/2012, 17h18

Salut,

Comme ceci par exemple:

Code :

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

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

**Yamiral** · 17/09/2012, 17h43

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.