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
Merci d'avance pour vos conseils.
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
Merci d'avance pour vos conseils.