VBA si la cellule est rouge on passe à la suivante

[Tiger75]

Bonjour,
Je cherche un code qui me permettra de ne pas traiter une cellule si elle est rouge

iTrouverEgal = InStr(1, str_temp, "=")
   
    If iTrouverEgal > 0 Then
    'on remplace les OR et les AND par des OU et des ET
        str_temp = Replace(str_temp, " OR ", " OU ")
        str_temp = Replace(str_temp, " AND ", " ET ")
    End if

Voilà un exemple avec =, le code ici me permet de ne pas executer Replace si la cellule n'a pas de "="
Je voudrais faire la même chose mais au lieu de travailler sur des "=", je souhaite travailler sur des Cellule colorier en rouge.

 

[JBARBE]

Bonjour à tous,
if range("A1").interior.colorindex = 3 then ' cellule A1 rouge

End if

ou
if range("A1").interior.colorindex<> 3 then ' cellule A1 rouge

End if

Bonne journée !

 

[DoubleZero]

Bonjour à toutes et à tous,

Un autre exemple, à adapter :

Option Explicit
Sub Cellules_non_rouges()
    Dim i As Long
    Application.ScreenUpdating = False
    For i = Cells(Rows.Count, "a").End(xlUp).Row To 1 Step -1
        If Range("a" & i).Interior.ColorIndex <> 3 And Range("a" & i) <> "" Then Range("a" & i) = "toto"
    Next i
    Application.ScreenUpdating = True
End Sub

A bientôt

 

[Tiger75]

merci !