EXCEL - Remplacer une cellule de couleur par

Fermé

caba_44 Messages postés 99 Date d'inscription lundi 14 décembre 2009 Statut Membre Dernière intervention 24 novembre 2022 - 22 mars 2010 à 15:17
smartway14 Messages postés 822 Date d'inscription mercredi 15 octobre 2008 Statut Membre Dernière intervention 8 octobre 2011 - 23 mars 2010 à 11:41

Bonjour,

Je suis bloqué sur excel.
J'ai un tableau qui comporte un nombre très important de cellules qui ont chacune des couleurs (soit vert soit orange soit rouge) sans rien de marqué dans la cellule.

Je souhaiterais modifier automatiquement toutes les cellules comportant la même coulauer par un code. Exemple le fond rouge de toutes mes cellules par "1"

Sauriez-vous comment faire?

Merci d'avance,

Mathieu

A voir également:

Excel remplacer une couleur par une autre
Liste déroulante excel - Guide
Remplacer disque dur par ssd - Guide
Excel couleur conditionnelle - Guide
Déplacer une colonne excel - Guide
Remplacer un mot par un autre word - Guide

2 réponses

Réponse 1 / 2

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
22 mars 2010 à 18:38

Bonjour

Sub coder_couleur()
Dim cellule As Range

Application.ScreenUpdating = False
For Each cellule In Range("A1:D12") ' à adapter
    With cellule
        If .Interior.ColorIndex = 3 Then
            .Interior.ColorIndex = xlNone
            .Value = 1
        End If
    End With
Next
End Sub

Discussions similaires

Excel - Macro Colorer 1 cellule selon 1 autre

remplacer couleur illustrator

Couleur Identique

Code couleur en fonction d'une AUTRE cellule ??

Excel : colorer une cellule sous condition d'une autre ?

Gimp-Remplacer les couleur

Discussions similaires

Newsletters