VBA si la cellule est rouge on passe à la suivante

Tiger75 · 12 Juin 2017

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

Code:

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 · 12 Juin 2017

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 · 12 Juin 2017

Bonjour à toutes et à tous,

Un autre exemple, à adapter :

Code:

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 · 12 Juin 2017

merci !

VBA si la cellule est rouge on passe à la suivante

Tiger75

XLDnaute Nouveau

JBARBE

XLDnaute Barbatruc

DoubleZero

XLDnaute Barbatruc

Tiger75

XLDnaute Nouveau

Discussions similaires