Bonjour, est il possible de reduire cette formule vba qui consiste à enlever SEULEMENT les bordures:
Private Sub CommandButton1_Click()
Sheets("Feuil1").Select
Cells.Select
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
End Sub
J'avais pensé à ceci mais cela ne marche, je suis débutant donc je tente tous ce que je peux:
Private Sub CommandButton1_Click()
Sheets("Feuil1").Select
Cells.Select
Selection.Borders(xlEdgeLeft, xlEdgeTop, xlEdgeBottom, xlEdgeRight, xlInsideVertical, xlInsideHorizontal).LineStyle = xlNone
End Sub
Private Sub CommandButton1_Click()
Sheets("Feuil1").Select
Cells.Select
x = Array(xlEdgeTop, xlEdgeBottom, xlEdgeRight, xlInsideVertical, xlInsideHorizontal)
For i = 0 To 4
Selection.Borders(x(i)).LineStyle = xlNone
Next
End Sub