Private Sub CommandButton1_Click() With Range("A1:C10") .Interior.Color = RGB(255, 255, 255) .Borders(xlInsideVertical).Color = RGB(255, 255, 255) End With End Sub
xlDiagonalDown 5 Bordure de l'angle supérieur gauche à l'angle inférieur droit de chaque cellule de la plage.
xlDiagonalUp 6 Bordure de l'angle inférieur gauche à l'angle supérieur droit de chaque cellule de la plage.
xlEdgeBottom 9 Bordure au bas de la plage.
xlEdgeLeft 7 Bordure sur le bord gauche de la plage.
xlEdgeRight 10 Bordure sur le bord droit de la plage.
xlEdgeTop 8 Bordure en haut de la plage.
xlInsideHorizontal 12 Bordures horizontales de toutes les cellules de la plage, sauf celles situées en dehors de la plage.
xlInsideVertical 11 Bordures verticales de toutes les cellules de la plage, sauf celles situées en dehors de la plage.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub CommandButton1_Click() Dim toto As Range Set toto = UsedRange toto.Select End Sub
Private Sub CommandButton1_Click() Dim toto As Range Set toto = UsedRange toto.Select End Sub