Comment préserver les lignes de quadrillage tout en appliquant une couleur de remplissage dans Excel ?
Comme nous le savons tous, lorsque nous Remplir la couleur de fond dans des cellules, les lignes de quadrillage sont également recouvertes. Dans ce cas, comment conserver ces lignes tout en Remplir la couleur de fond dans les cellules Excel afin d’obtenir le résultat illustré dans la capture d’écran suivante ?
Préserver les lignes de quadrillage tout en Couleur de remplissage à l’aide d’un code VBA
Préserver les lignes de quadrillage tout en Couleur de remplissage à l’aide d’un code VBA
Généralement, il n’existe pas de méthode directe pour résoudre ce problème, mais je peux vous proposer ici une solution en VBA. Procédez comme suit :
1. Maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Dans le volet gauche Projet - VBAProject, double-cliquez sur Ce classeur sous le nœud développé VBAProject, puis copiez-collez le code VBA suivant dans le module vierge :
Code VBA : préserver les lignes de quadrillage tout en Couleur de remplissage
Dim xRgPre As Range
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If Not xRgPre Is Nothing Then DrawBorders xRgPre
Set xRgPre = Target
End Sub
Private Sub DrawBorders(ByVal Rg As Range)
'Updateby Extendoffice 20160725
Dim xCell As Range
Application.ScreenUpdating = False
For Each xCell In Rg
If xCell.Interior.ColorIndex = xlNone Then
With xCell.Borders
If .ColorIndex = 15 Then
.LineStyle = xlNone
End If
End With
Else
With xCell.Borders
If .LineStyle = xlNone Then
.Weight = xlThin
.ColorIndex = 15
End If
End With
End If
Next
Application.ScreenUpdating = True
End Sub
3. Fermez ensuite la fenêtre du code. Désormais, dès que vous appliquerez une couleur à une plage de cellules, les lignes de quadrillage s’afficheront automatiquement.
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels