Comment copier uniquement les bordures de la plage sélectionnée dans Excel ?

Lors de l'utilisation de Microsoft Excel, il est facile de copier uniquement les valeurs des cellules, le formatage des cellules, les formules des cellules, etc., à partir d'une plage avec la fonction Collage spécial. Mais avez-vous déjà essayé de copier uniquement le style de bordure d'une plage dans Excel ? Cet article vous montrera une méthode pour copier uniquement les bordures de la plage sélectionnée vers une nouvelle plage dans Excel.

Utiliser un code VBA pour copier uniquement les bordures de la plage sélectionnée

Utiliser un code VBA pour copier uniquement les bordures de la plage sélectionnée

Le code VBA suivant peut vous aider à copier uniquement le style de bordure des cellules sélectionnées, puis à appliquer ce style de bordure à une nouvelle plage dans Excel. Veuillez procéder comme suit.

1. Appuyez sur les touches "Alt" + "F11" pour ouvrir la fenêtre "Microsoft Visual Basic for Applications".

2. Dans la fenêtre "Microsoft Visual Basic for Applications", cliquez sur "Insérer" > "Module", puis copiez et collez le code VBA ci-dessous dans la fenêtre Code.

Code VBA : Copier uniquement les bordures de la plage sélectionnée dans Excel

Sub CopyBorders()
'Updated by Extendoffice 20211203
    Dim xRg, yRg As Range
    On Error Resume Next
    
    Set xRg = Application.InputBox("Select Range with Borders to Copy...", "Kutools For Excel", , , , , , 8)
    Set yRg = Application.InputBox("Select Cell to Apply Borders to range..", "Kutools For Excel", , , , , , 8)
    
    
    With yRg.Borders(xlEdgeLeft)
        .LineStyle = xRg.Borders(xlEdgeLeft).LineStyle
        .ColorIndex = xRg.Borders(xlEdgeLeft).ColorIndex
        .TintAndShade = xRg.Borders(xlEdgeLeft).TintAndShade
        .Weight = xRg.Borders(xlEdgeLeft).Weight

    End With
    With yRg.Borders(xlEdgeTop)
        .LineStyle = xRg.Borders(xlEdgeTop).LineStyle
        .ColorIndex = xRg.Borders(xlEdgeTop).ColorIndex
        .TintAndShade = xRg.Borders(xlEdgeTop).TintAndShade
        .Weight = xRg.Borders(xlEdgeTop).Weight
    End With
    With yRg.Borders(xlEdgeBottom)
        .LineStyle = xRg.Borders(xlEdgeBottom).LineStyle
        .ColorIndex = xRg.Borders(xlEdgeBottom).ColorIndex
        .TintAndShade = xRg.Borders(xlEdgeBottom).TintAndShade
        .Weight = xRg.Borders(xlEdgeBottom).Weight
    End With
    With yRg.Borders(xlEdgeRight)
        .LineStyle = xRg.Borders(xlEdgeRight).LineStyle
        .ColorIndex = xRg.Borders(xlEdgeRight).ColorIndex
        .TintAndShade = xRg.Borders(xlEdgeRight).TintAndShade
        .Weight = xRg.Borders(xlEdgeRight).Weight
    End With

    With yRg.Borders(xlInsideHorizontal)
        .LineStyle = xRg.Borders(xlInsideHorizontal).LineStyle
        .ColorIndex = xRg.Borders(xlInsideHorizontal).ColorIndex
        .TintAndShade = xRg.Borders(xlInsideHorizontal).TintAndShade
        .Weight = xRg.Borders(xlInsideHorizontal).Weight
    End With
    With yRg.Borders(xlInsideVertical)
        .LineStyle = xRg.Borders(xlInsideVertical).LineStyle
        .ColorIndex = xRg.Borders(xlInsideVertical).ColorIndex
        .TintAndShade = xRg.Borders(xlInsideVertical).TintAndShade
        .Weight = xRg.Borders(xlInsideVertical).Weight
    End With
End Sub

3. Appuyez sur la touche "F5" pour exécuter le code. Dans la première boîte de dialogue "Kutools for Excel" qui apparaît, sélectionnez la plage avec les bordures que vous devez copier, puis cliquez sur le bouton "OK".

4. Dans la deuxième boîte de dialogue "Kutools for Excel", sélectionnez une cellule pour appliquer la bordure copiée, puis cliquez sur le bouton "OK". Voir capture d'écran :

Vous pouvez ensuite voir que seul le style de bordure de la plage sélectionnée est copié et appliqué à une nouvelle plage, comme le montre la capture d'écran ci-dessous.

Articles connexes :

• Comment copier et coller des valeurs en ignorant les doublons dans Excel ?
• Comment copier les données des cellules avec la hauteur des lignes et la largeur des colonnes dans Excel ?
• Comment copier une cellule en tant que valeur texte et non formule dans Excel ?
• Comment copier des données vers la ligne vide suivante d'une autre feuille de calcul dans Excel ?