XL 2010 cellule entre 2 couleurs via vba ou formule

[meganspt]

Bonjour au Forum

Je souhaite supprimer des cellules selon la couleur.Toutes les cellules qui sont compris de la cellule verte jusqu’à la cellule rouge

Les cellules qui sont entre les cellules jaune et verte , sont les bonnes valeurs

comme vous le verez j'ai mis un fichier test

 

[Dranreb]

Bonjour.
Essayez ça dans un module :

Option Explicit

Sub Test()
Dim L As Long, Cel As Range, Supprimer As Boolean, SupprSuiv As Boolean
ActiveSheet.[A1.A17].Copy ActiveSheet.[C1.C17]
For L = 17 To 1 Step -1
  Set Cel = ActiveSheet.Cells(L, "C")
  Select Case Cel.Interior.Color
  Case &HFF&: Supprimer = True: SupprSuiv = True
  Case &H50B000: SupprSuiv = False
  End Select
  If Supprimer Then Cel.Delete xlShiftUp
  Supprimer = SupprSuiv: Next L
End Sub

 

[Paf]

Bonjour à tous,

Pas bien saisi si les cellules de couleur doivent être supprimées ou non (notamment le jaune).
une autre version:

Sub SupCoul()
Dim i As Long, DerL As Long
DerL = Range("A" & Rows.Count).End(xlUp).Row
For i = DerL To 1 Step -1
    If Cells(i, 1).Interior.ColorIndex = 10 Then
        x = i + 1
        While Cells(x, 1).Interior.ColorIndex <> 3
            x = x + 1
        Wend
        Range(Cells(i, 1), Cells(x, 1)).Delete Shift:=xlUp
    End If
Next
End Sub

A+