• Initiateur de la discussion Initiateur de la discussion akmer
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

akmer

XLDnaute Junior
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.
 
Re : Reduire un code vba

Bonjour

Comme ceci peut-être ??

Code:
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
😛
Salutations

RGI
 
Re : Reduire un code vba

Bonjour


akmer: toutes les cellules de ta feuille ont des bordures??
car

Cells.Select sélectionnes toutes les cellules.

Autrement pour traiter la zone active
Code:
ActiveSheet.UsedRange.Borders.LineStyle = xlNone
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
32
Affichages
1 K
  • Question Question
XL pour MAC Recherche date
Réponses
5
Affichages
2 K
Retour