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

Comment appliquer un dégradé de couleur sur plusieurs cellules?

Dans Excel, nous pouvons facilement remplir la couleur d'arrière-plan d'une cellule ou de plusieurs cellules, mais, parfois, nous avons besoin que la couleur soit remplie en dégradé comme illustré ci-dessous, comment pourrait-on obtenir le dégradé de couleur dans une cellule ou sur plusieurs cellules dans Excel?

Dégradé de couleur dans une cellule Dégradé de couleur sur plusieurs cellules
doc dégradé de couleur 1 doc dégradé de couleur 2

Appliquer une couleur de dégradé à une cellule avec la fonctionnalité Format de cellule

Appliquer une couleur dégradée sur plusieurs cellules avec le code VBA


flèche bleue bulle droite Appliquer une couleur de dégradé à une cellule avec la fonctionnalité Format de cellule

Dans Excel, la fonctionnalité Formater les cellules peut vous aider à remplir le dégradé de couleur dans une cellule, procédez comme suit:

1. Sélectionnez une cellule ou plusieurs cellules que vous souhaitez remplir avec un dégradé de couleur chaque cellule, puis cliquez avec le bouton droit pour choisir Format de cellule depuis le menu contextuel, dans le Format de cellule boîte de dialogue, sous la Niveau de remplissage onglet, veuillez cliquer Effets de remplissage bouton, voir capture d'écran:

doc dégradé de couleur 3

2. Dans le Effets de remplissage boîte de dialogue, sélectionnez deux couleurs que vous souhaitez utiliser dans les deux listes déroulantes de Couleurs section, puis sélectionnez un style d'ombrage à votre guise, par exemple horizontal, vertical, etc. Voir la capture d'écran:

doc dégradé de couleur 4

3. Puis clique OK > OK pour fermer les boîtes de dialogue, et la couleur du dégradé est remplie pour chaque cellule comme illustré ci-dessous:

doc dégradé de couleur 5


flèche bleue bulle droite Appliquer une couleur dégradée sur plusieurs cellules avec le code VBA

La méthode ci-dessus peut nous aider à colorer le dégradé dans une cellule individuelle.Si vous devez ombrer le dégradé de couleur sur plusieurs cellules, vous devez appliquer un code VBA pour le résoudre.

1. Tout d'abord, remplissez une couleur d'arrière-plan spécifique dans une plage de cellules.

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

3Cliquez sur insérer > Moduleet collez le code suivant dans le Module Fenêtre.

Code VBA: appliquez une couleur de dégradé sur plusieurs cellules:

Sub colorgradientmultiplecells()
'Updateby Extendoffcie 
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xColor As Long
    Dim I As Long
    Dim K As Long
    Dim xCount As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
LInput:
    Set xRg = Application.InputBox("please select the cells range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "does not support multiple selections", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    On Error Resume Next
    Application.ScreenUpdating = False
    xCount = xRg.Rows.Count
    For K = 1 To xRg.Columns.Count
        xColor = xRg.Cells(1, K).Interior.Color
        For I = xCount To 1 Step -1
            xRg.Cells(I, K).Interior.Color = xColor
            xRg.Cells(I, K).Interior.TintAndShade = (xCount - (I - 1)) / xCount
        Next
    Next
End Sub

4. Puis appuyez F5 pour exécuter ce code, et une boîte de dialogue apparaît pour vous rappeler de sélectionner les cellules colorées que vous souhaitez remplir en dégradé de couleur, voir capture d'écran:

 

doc dégradé de couleur 6

5. Et puis cliquez OK bouton, la couleur dans plusieurs cellules s'est affichée en dégradé, voir capture d'écran:

 

doc dégradé de couleur 7


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 (21)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Comment puis-je obtenir que le dégradé aille de gauche à droite?
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Sean,
Pour appliquer le dégradé de couleur de gauche à droite, veuillez utiliser le code VBA suivant :

Sous colorgradientmultiplecells()
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xColor As Long
Dim I As Long
Dim K aussi longtemps
Dim xCount As Long
On Error Resume Next
Si ActiveWindow.RangeSelection.Count > 1 Alors
xTxt = ActiveWindow.RangeSelection.AddressLocal
autre
xTxt = ActiveSheet.UsedRange.AddressLocal
Si fin
LEntrée :
Set xRg = Application.InputBox("veuillez sélectionner la plage de cellules :", "Kutools for Excel", xTxt, , , , , 8)
Si xRg n'est rien, quittez Sub
Si xRg.Areas.Count > 1 Alors
MsgBox "ne prend pas en charge les sélections multiples", vbInformation, "Kutools for Excel"
GoTo LInput
Si fin
On Error Resume Next
Application.ScreenUpdating = Faux
xCount = xRg.Columns.Count
Pour K = 1 à xRg.Rows.Count
xColor = xRg.Cells(K, 1).Interior.Color
Pour I = xCount To 1 Step -1
xRg.Cells(K, I).Interior.Color = xColor
xRg.Cells(K, I).Interior.TintAndShade = (xCount - (I - 1)) / xCount
Suivant
Suivant
End Sub

J'espère que cela peut vous aider, merci!
Ce commentaire a été minimisé par le modérateur sur le site
Comment ferais-je cela si je le voulais dégradé de haut en bas à gauche?
Ce commentaire a été minimisé par le modérateur sur le site
Est-il possible de poster un code qui fait un dégradé de haut en bas ? J'apprécierai vraiment cela.
Ce commentaire a été minimisé par le modérateur sur le site
J'aurais également besoin du code de la teinte la plus sombre en haut à la teinte la plus claire en bas .. :(
Ce commentaire a été minimisé par le modérateur sur le site
Salut Laura,
Pour résoudre votre tâche, veuillez appliquer le code suivant :

Sous colorgradientmultiplecells()

'Mise à jourpar Extendoffcie

Dim xRg As Range

Dim xTxt As String

Dim xCell As Range

Dim xColor As Long

Dim I As Long

Dim K aussi longtemps

Dim xCount As Long

On Error Resume Next

Si ActiveWindow.RangeSelection.Count > 1 Alors

xTxt = ActiveWindow.RangeSelection.AddressLocal

autre

xTxt = ActiveSheet.UsedRange.AddressLocal

Si fin

LEntrée :

Set xRg = Application.InputBox("veuillez sélectionner la plage de cellules :", "Kutools for Excel", xTxt, , , , , 8)

Si xRg n'est rien, quittez Sub

Si xRg.Areas.Count > 1 Alors

MsgBox "ne prend pas en charge les sélections multiples", vbInformation, "Kutools for Excel"

GoTo LInput

Si fin

On Error Resume Next

Application.ScreenUpdating = Faux

xCount = xRg.Rows.Count

Pour K = 1 à xRg.Columns.Count

xColor = xRg.Cells(1, K).Interior.Color

Pour I = xCount To 1 Step -1

xRg.Cells(I, K).Interior.Color = xColor

xRg.Cells(I, K).Interior.TintAndShade = I / xCount

Suivant

Suivant

End Sub

S'il vous plaît essayez, j'espère que cela peut vous aider!
Ce commentaire a été minimisé par le modérateur sur le site
Comment puis-je faire le code pour aller de droite à gauche, merci d'avance
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Ashley,
Pour faire le dégradé de couleur de droite à gauche, le code vba suivant peut vous aider, veuillez l'essayer.

Sous colorgradientmultiplecells()
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xColor As Long
Dim I As Long
Dim K aussi longtemps
Dim xCount As Long
On Error Resume Next
Si ActiveWindow.RangeSelection.Count > 1 Alors
xTxt = ActiveWindow.RangeSelection.AddressLocal
autre
xTxt = ActiveSheet.UsedRange.AddressLocal
Si fin
LEntrée :
Set xRg = Application.InputBox("veuillez sélectionner la plage de cellules :", "Kutools for Excel", xTxt, , , , , 8)
Si xRg n'est rien, quittez Sub
Si xRg.Areas.Count > 1 Alors
MsgBox "ne prend pas en charge les sélections multiples", vbInformation, "Kutools for Excel"
GoTo LInput
Si fin
On Error Resume Next
Application.ScreenUpdating = Faux
xCount = xRg.Columns.Count
Pour K = 1 à xRg.Rows.Count
xColor = xRg.Cells(K, 1).Interior.Color
Pour I = xCount To 1 Step -1
xRg.Cells(K, I).Interior.Color = xColor
xRg.Cells(K, I).Interior.TintAndShade = I / xCount
Suivant
Suivant
End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Est-il possible de réaliser ce dégradé mais du bas gauche vers le haut droit ?
Ce commentaire a été minimisé par le modérateur sur le site
hé, je ne suis pas habitué aux codes VBA. Comment définir une autre couleur dans le code ?
Ce commentaire a été minimisé par le modérateur sur le site
Salut Paul,
Si vous souhaitez définir une autre couleur, il vous suffit de remplir les cellules de la couleur souhaitée, puis d'appliquer le code ci-dessus dans cet article.
Essayez-le.
Ce commentaire a été minimisé par le modérateur sur le site
Merci! Ça marche :)
Ce commentaire a été minimisé par le modérateur sur le site
Pourquoi j'ai eu la couleur noir-blanc pour remplacer mon dégradé
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Piyaphan,
Le code ci-dessus fonctionne bien dans ma feuille de calcul, quelle version d'Excel utilisez-vous ?
Ou vous pouvez donner votre problème plus en détail.
Merci !
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour! J'ai le même problème, je choisis les couleurs de mon dégradé mais lors de l'application du code, il se transforme en dégradé noir à blanc. De l'aide ?? Merci!
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour, comment passer du jaune au rouge (par exemple) ? Cela fonctionne uniquement du blanc à une autre couleur. Je travaille avec le code de gauche à droite.
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Jasmine,
Désolé pour cela, ce code ne s'applique qu'à une seule couleur, et si vous voulez remplir le dégradé de gauche à serré, le commentaire ci-dessous a la solution, veuillez le vérifier.
Merci !
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour, Pouvez-vous appliquer cela à une plage comme 1 à 5 , les cellules ayant un nombre en elles, ayant le 5 comme le plus sombre ?

Kutools serait-il capable de faire un peu la même chose que ci-dessus, mais ensuite d'organiser une rangée de nombres dans une échelle - pas bon pour expliquer. Dites une enquête répondant sur une échelle de 1 à 5 , puis affichez graphiquement une barre par question indiquant le pourcentage de réponses en 1, 2 ,3 ,4 ,5 ; 5 % de 1, 10 % de 2, 15 % de 3 et 50 % de 4, 20 % de 5, mais affichant un dégradé de couleurs dans une barre horizontale (mieux si 2 couleurs).

Merci, Gord
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour, j'ai essayé de copier le code VBA, mais lorsque j'essaie de l'exécuter, je reçois toujours un message indiquant "Erreur de compilation : procédure extérieure non valide"....


Comment puis-je réparer ça??


Merci !
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour, Pouvez-vous appliquer cela à une plage comme 1 à 5 , les cellules ayant un nombre en elles, ayant le 5 comme le plus sombre ?
Kutools serait-il capable de faire un peu la même chose que ci-dessus, mais ensuite d'organiser une rangée de nombres dans une échelle - pas bon pour expliquer. Dites une enquête répondant sur une échelle de 1 à 5 , puis affichez graphiquement une barre par question indiquant le pourcentage de réponses en 1, 2 ,3 ,4 ,5 ; 5 % de 1, 10 % de 2, 15 % de 3 et 50 % de 4, 20 % de 5, mais montrant un dégradé de couleurs dans une barre horizontale (mieux si 2 couleurs).
Merci, Gord
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour, Comment puis-je appliquer cette formule pour deux couleurs, ci-dessus, je ne peux pas regarder la solution. S'il te plaît
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