Note: The other languages of the website are Google-translated. Back to English
Se connecter  \/ 
x
or
x
INSCRIPTION  \/ 
x

or

Comment changer la valeur en fonction de la couleur de la cellule dans Excel?

Cet article parle de la modification automatique de la valeur de la cellule en fonction de sa couleur d'arrière-plan dans Excel. Par exemple, si les cellules se remplissent de couleur d'arrière-plan rouge dans la sélection, remplissez ces cellules avec le numéro 1 et pour les cellules de couleur d'arrière-plan bleu, remplissez le numéro 0.

Changer la valeur en fonction de la couleur de la cellule avec le code VBA


Changer la valeur en fonction de la couleur de la cellule avec le code VBA


Vous pouvez exécuter le code VBA ci-dessous pour modifier la valeur en fonction de la couleur de cellule dans Excel. Veuillez faire comme suit.

1. Sélectionnez la plage dont vous avez besoin pour modifier les valeurs en fonction de la couleur d'arrière-plan, puis appuyez sur autre + F11 touches simultanément pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module, puis copiez et collez le code VBA ci-dessous dans la fenêtre Module.

Code VBA: modifier la valeur en fonction de la couleur de la cellule dans Excel

Sub ChangeValueBasedOnCellColor()
    Dim rg As Range
    Dim xRg As Range
    Set xRg = Selection.Cells
    Application.DisplayAlerts = False
    For Each rg In xRg
        With rg
            Select Case .Interior.Color
                Case Is = 255 'Red
                    .Value = 1
                Case Is = 15773696 'Blue
                    .Value = 0
            End Select
        End With
    Next
    Application.DisplayAlerts = False
End Sub

3. appuie sur le F5 clé pour exécuter le code, vous pouvez alors voir que toutes les cellules rouges de la plage sélectionnée sont remplies avec le numéro 1 et les cellules bleues sont remplies avec le numéro 0 comme illustré ci-dessous.

 

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ée...
  • 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 gammes...
  • 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 cellules...
  • 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 PDF...
  • 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
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    sphilton · 9 months ago
    Is there a way to do this, but have it automatically go through multiple files?

    For context, questionnaires were sent to a couple hundred facilities, their MC answer selected corresponds to a color indicating score (e.g. green is good, red is bad), and change the content of the cell (with a process like in this thread) to something that R or another software could read, and then use that to generate automatic reports. I could go through each of these files with this macro (or a completely different idea), but that would take a long time.
  • To post as a guest, your comment is unpublished.
    Sef · 1 years ago
    The code works fine for me, but I would need to rewrite the code to fit colours specific for my document. But I don´t know what code "my colours" have, anyone who know where on can find codes for other colours?
    • To post as a guest, your comment is unpublished.
      Zedd · 1 years ago
      How do you run it, i run but nothing seems to happen

      • To post as a guest, your comment is unpublished.
        Pooja · 11 months ago
        You can replace colors to values by simply using Find and Replace function. Go to the format function on the right side of the Find and Replace dialog box and then under "Fill" you can select the color that you have. Then on the "replace with" just write the value you want.
  • To post as a guest, your comment is unpublished.
    Pjotr · 1 years ago
    is it possible to adjust this code based on the cells conditional formatting rule?
  • To post as a guest, your comment is unpublished.
    JBrinx · 2 years ago
    Excel seems to crash whenever I try to run the VBA code. Seems like a bust.
    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      Good day,
      The code works well in my case. Can you tell me your Excel version? Thank you for your comment.
      • To post as a guest, your comment is unpublished.
        Brandy · 2 years ago
        I'm in the same boat, trying to run this but the code seems to get hung. Excel 2016.
  • To post as a guest, your comment is unpublished.
    Dan · 4 years ago
    I'm looking to give a cell a name based on the colour within one worksheet. i.e. if a cell is red then it gets named "name", if it is orange then it gets names "surname" etc.



    What code would need to change to have the range as the whole sheet/tab and a name instead of a value?
  • To post as a guest, your comment is unpublished.
    Tim · 4 years ago
    What changes to the code would be needed if you wanted this to apply to the text color of a cell, rather than the cell color?