Discussion :

[peofofo]

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 :

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

[mercatog]

Code :

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

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 :

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

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

[Qwazerty]

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

Code :

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

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

[peofofo]

Merci a tous les deux.

ça marche impeccable