Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

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

Cet article parle de changer la valeur de la cellule automatiquement en fonction de sa couleur de fond dans Excel. Par exemple, si des cellules remplissent avec la 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 nombre 0.

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


flèche bleue droite bulle Modifier 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 la cellule dans Excel. S'il vous plaît 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, alors vous pouvez voir tous les globules rouges dans la gamme sélectionnée sont remplis avec le nombre 1, et les cellules bleues sont remplies avec le nombre 0 comme ci-dessous capture d'écran montré.



Outils de productivité recommandés

Office Tab

étoile d'or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d'or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d'or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d'écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
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.
    JBrinx · 1 months 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.
    Dan · 1 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 · 1 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?