Sujet Précédent Sujet Suivant

EXCEL - Remplacer une cellule de couleur par

caba_44 Messages postés 107 Statut Membre -  
smartway14 Messages postés 857 Date d'inscription   Statut Membre Dernière intervention   -
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:

2 réponses

Réponse 1 / 2
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
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
0
Réponse 2 / 2
smartway14 Messages postés 857 Date d'inscription   Statut Membre Dernière intervention   186
 
bonjour;
votre macro michel-m est bien marché pour moi
0