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

2 réponses

  1.
    michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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
  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