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