Note: The other languages of the website are Google-translated. Back to English

Comment conserver les lignes de la grille tout en remplissant la couleur dans Excel?

Comme nous le savons tous, lorsque nous remplissons la couleur d'arrière-plan des cellules, le quadrillage sera également couvert.Dans ce cas, comment pourrions-nous conserver le quadrillage tout en remplissant la couleur d'arrière-plan dans les cellules Excel pour obtenir la capture d'écran suivante.

doc garder le quadrillage couleur de remplissage 1

Préservez le quadrillage tout en remplissant la couleur avec le code VBA


flèche bleue bulle droite Préservez le quadrillage tout en remplissant la couleur avec le code VBA


Normalement, il n'y a pas de moyen direct pour nous de résoudre ce travail, mais, ici, je peux vous présenter un code VBA. Veuillez procéder comme suit:

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. À gauche Projet-VBAProjet volet, double-cliquez Ce classeur sous l'expansion VBAProjet, puis copiez et collez le code VBA suivant dans le module vide:

Code VBA: préservez le quadrillage tout en remplissant la couleur

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

doc garder le quadrillage couleur de remplissage 2

3. Et puis enregistrez et fermez la fenêtre de code, maintenant, lorsque vous remplissez une couleur pour une plage de cellules, le quadrillage sera affiché automatiquement.


Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtréeplus
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammesplus
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellulesplus
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDFplus
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement votre travail

  • Activer 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 réduit des centaines de clics de souris chaque jour!
bas de cabine
Commentaires (16)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Fabuleux correctif !!
Ce commentaire a été minimisé par le modérateur sur le site
Fonctionne bien, mais malheureusement, chaque fois que je clique maintenant sur une cellule, la feuille de calcul tremble ! Suppression du VBA et le tremblement a cessé. Vous vous demandez pourquoi cela devrait arriver?
Ce commentaire a été minimisé par le modérateur sur le site
Salut Vic,
Il n'y a pas ce problème dans mon classeur Excel, quelle version d'Excel utilisez-vous ?
Ce commentaire a été minimisé par le modérateur sur le site
Même chose ici avec Excel 2016. Je deviens gelé et l'écran est principalement vide pendant plusieurs secondes, en particulier lors de la sélection de nombreuses cellules. C'est dommage car cela fonctionne parfaitement sinon.
Ce commentaire a été minimisé par le modérateur sur le site
fonctionne mais il faut corriger l'erreur si vous la voyez.
Dim xRgPre As Range
Private Sub Workbook_SheetSelectionChange (ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
Si non xRgPre n'est rien alors DrawBorders xRgPre
Définir xRgPre = Cible


*************************************
Devrait LIRE... car l'instruction If garantit uniquement qu'il y a quelque chose à définir pour l'allocation de mémoire.

On pourrait définir la ligne suivante ci-dessous pour le nettoyage et ne pas autoriser les fuites de mémoire.

Private Sub Workbook_SheetSelectionChange (ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
Définir xRgPre = Cible
Si non xRgPre n'est rien alors DrawBorders xRgPre
'Pour garantir que les fuites de mémoire ne se produisent pas
'Nettoie la mémoire allouée lorsqu'elle n'est plus nécessaire.
Définir xRqPre = Rien



Bonne journée..
Ce commentaire a été minimisé par le modérateur sur le site
Ne fonctionne pas avec le formatage conditionnel. Set xRqPre = Rien ne donne d'erreur : variable non définie (suppression de la ligne). L'écran tremble ici aussi, en utilisant 2010. Sinon, c'est un outil sympa.
Ce commentaire a été minimisé par le modérateur sur le site
n'utilisez que des couleurs standard ;)
Ce commentaire a été minimisé par le modérateur sur le site
Cool, mais maintenant si je remplis certaines cellules et que j'appuie sur Ctrl + Z pour annuler, cela ne fonctionnera pas. Ne se défait pas.
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour André,
Oui, le code ci-dessus ne peut pas prendre en charge la fonction Annuler, vous ne devez remplir aucune couleur manuellement pour annuler votre travail.
Merci !
Ce commentaire a été minimisé par le modérateur sur le site
Un autre correctif, si vous ne voulez pas jouer avec le code :
Déterminez d'abord quelle couleur de gris correspond aux lignes par défaut et gardez-la à l'esprit.
Dans l'onglet Accueil, cliquez sur Styles de cellule, cliquez avec le bouton droit sur Normal, cliquez sur Modifier -> Format -> Bordure. Pour Couleur de ligne, sélectionnez ce gris. Pour Préréglages, sélectionnez Contour. Fait.
Maintenant, vous devrez peut-être tout sélectionner (CTRL + A / Commande + A) et cliquer sur Styles de cellule -> Normal pour vous assurer qu'il est appliqué à toutes les cellules. Lorsque vous remplissez une cellule, les bordures restent.
Ce commentaire a été minimisé par le modérateur sur le site
Je vous remercie!!
Ce commentaire a été minimisé par le modérateur sur le site
Alissa, j'ai eu le même problème, je n'ai pas pu le résoudre, mais votre réponse m'a beaucoup aidé, alors merci beaucoup, vous êtes un génie.
Ce commentaire a été minimisé par le modérateur sur le site
Cela m'a beaucoup aidé. J'ai littéralement cherché tant d'endroits et c'est la seule explication qui a fonctionné ! Merci!!!
Ce commentaire a été minimisé par le modérateur sur le site
Très utile - merci
Ce commentaire a été minimisé par le modérateur sur le site
Merci! Je tirais les cheveux en essayant de faire en sorte que les belles bordures grisâtres restent après la coloration. Je ne peux pas croire que Microsoft n'ait pas déjà implémenté cela.
Ce commentaire a été minimisé par le modérateur sur le site
Cela fonctionne très bien. (Merci) Mais voici la vraie question - Pourquoi Excel laisse-t-il disparaître le quadrillage lors du remplissage des cellules avec de la couleur en premier lieu? Juste un autre pépin stupide dans le monde de la technologie auquel les soi-disant développeurs intelligents ne pensent jamais. Je veux dire, les lignes de grille, par défaut, sont censées être là de toute façon... alors...
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés