supprimer la sélection

Version imprimable

Bonjour a tous,

J'ai un morceau de code vba me permettant de créer une bordure.
Mais comme ma feuille est masqué et que j'utilise select, cela me créer une erreur.
J'aimerais supprimer les select.
Mais je ne sais pas comment faire.

Voici mon code :

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
'On modifie la bordure
            Sheets("Recapitulatif").Range("A24:BD24").Select
            With Selection.Borders(xlEdgeLeft)
                .LineStyle = xlContinuous
                .ColorIndex = xlAutomatic
                .Weight = xlThin
            End With
            With Selection.Borders(xlEdgeTop)
                .LineStyle = xlContinuous
                .ColorIndex = xlAutomatic
                .Weight = xlThin
            End With
            With Selection.Borders(xlEdgeBottom)
                .LineStyle = xlContinuous
                .ColorIndex = xlAutomatic
                .Weight = xlThin
            End With
            With Selection.Borders(xlEdgeRight)
                .LineStyle = xlContinuous
                .ColorIndex = xlAutomatic
                .Weight = xlThin
            End With
            With Selection.Borders(xlInsideVertical)
                .LineStyle = xlContinuous
                .ColorIndex = xlAutomatic
                .Weight = xlThin
            End With
            Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

Merci ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
with Sheets("Recapitulatif").Range("A24:BD24")
            With .Borders(xlEdgeLeft)
                .LineStyle = xlContinuous
                .ColorIndex = xlAutomatic
                .Weight = xlThin
            End With
            With .Borders(xlEdgeTop)
                .LineStyle = xlContinuous
                .ColorIndex = xlAutomatic
                .Weight = xlThin
            End With
...
      .Borders(xlInsideHorizontal).LineStyle = xlNone
end with

en plus, ceci fera l'affaire

Code:

1
2
3
4
5
6
7
with Sheets("Recapitulatif").Range("A24:BD24")
           .Borders(xlEdgeLeft).Weight = xlThin
           .Borders(xlEdgeTop).Weight = xlThin
 
...
      .Borders(xlInsideHorizontal).LineStyle = xlNone
end with

Salut
Tu as aussi une solution plus rapide pour l'encadrement d'une cellule ou d'un groupe de cellules.
Code:

1 2 3 4 5 6 With Sheets("Recapitulatif").Range("A24:BD24") .Borders.LineStyle = xlcontinus .Borders.ColorIndex = xlAutomatique .Borders.Weight = xlThin .Borders(xlInsideHorizontal).LineStyle = xlNone End With
A++
Qwaz

03/02/2010, 08h24
peofofo

Merci a tous les deux.

ça marche impeccable :ccool: