[Excel]Macro suppr ligne si le fond est rouge

donc

1. modifier la boucle

For nuli = DerLigne to PremLigne step -1

2. si la couleur vient d'une MFC il faudra remplacer le test (if ...) par celui qui conditionne la couleur rouge
3. il sera prudent de vérifier le code couleur du rouge de la version

merci cosinhub de me rappeler les (bons) usages

re

je ne comprends pas bien
1- Range("b1").row
est ce que b1 correspond a la cellule B1 auquel cas ligne = 1 suffit (idem pour la colonne)
2- la boucle while Cells(ligne,colonne).Value < "B5000" ... wend
elle est controlée par les valeurs de ligne et colonne, variables qui ne vont pas evoluer si la ligne n'est pas supprimée
"B5000" : est ce une valeur contenue dans une cellule ou la référence à une cellule?

bonne suite

Bonjour tout le monde

ci dessous macro peut être plus rapide compte tenu du grand nombre de lignes (4000)

Option Explicit
Option Base 1
Sub effacer_rouge()
Dim Plage As Range
Dim tablo_in, tablo_out
Dim derlig As Integer, cols As Byte
Dim cptr_in As Integer, cptr_out As Integer, cptr_col As Byte

Set Plage = Range("B1").CurrentRegion
tablo_in = Plage
derlig = Plage.Rows.Count
cols = Plage.Columns.Count

ReDim tablo_out(derlig, cols)
cptr_out = 1
For cptr_in = 1 To derlig
    If Cells(cptr_in, 2).Interior.ColorIndex <> 3 Then
        For cptr_col = 1 To cols
            tablo_out(cptr_out, cptr_col) = tablo_in(cptr_in, cptr_col)
        Next
        cptr_out = cptr_out + 1
    End If
Next

Application.ScreenUpdating = False
Plage.Clear
Range(Cells(1, 2), Cells(derlig, cols + 1)) = tablo_out

End Sub

je fais des mesures de durée et reviens... :-)

Re
durée pour 6000 lignes: environ 0,6 secondes
(plus il y a de "rouges" plus c'est rapide)

démo durée:
http://www.cijoint.fr/cjlink.php?file=cj201011/cij4zmNYHm.xls

Bonjour
..."J'aurais dû préciser qu'il y avait... "

Il faut bien te rendre compte que ce que tu demandes n'est pas forcément facile et que personne ne veut ou ne peut passer parfois plusieurs heures à essayer de résoudre un problème bénévolement pour se voir dire après coup "En fait il me faudrait..."

Désolé

Désolé de t'avoir blessé, je voulais pas que tu croies que je demandais des gens à ma disposition pour mon problèmes. Ma phrase était maladroite :/

Je ne suis pas blessé, mais déçu et lassé d'essayer de donner des coups de mains bénévoles; il est certain que si tu avais donné ce problème contre rémunérations à un entrepreneur, tu aurais fait beaucoup plus fais attention à fournir des renseignements précis et complets car les flous dans le "cahier des charges" coutent très chers.
Ce n'est pas ta phrase qui est maladroite, c'est ta démarche globale.

Sans rancune