au bout du rouleau - suppri lignes de couleur

[mousocgen]

salut
je veux suppr les lignes qui sont en rouges
j'ai écrit la macro ci dessous quelqu un pourrati me dire ce qui va pas
pcq au fur et a mesure que j execute ca m efface tout
et non pas que les lignes rouge comme je le veux !!!


Merci


Sub suppr_couleur()

Dim Lig As Long
Dim Col As String
Dim Col2 As String
Dim Col3 As String
Dim NbrLig As Long
Dim NumLig As Long

Col2 = "G"
Col3 = "H"
Col = "E" ' colonne données non vides à tester'
NumLig = 1

Sheets("suspens_restant").Select

With Sheets("suspens_restant") ' feuille source'
NbrLig = .Cells(65536, Col).End(xlUp).Row
For Lig = 1 To NbrLig 'n° de la 1ere ligne de données'

If Cells(Lig, Col).EntireRow.Font.ColorIndex = 3 Then
Cells(NumLig, 1).Select
.Cells(Lig, Col).EntireRow.Delete
NumLig = NumLig + 1
End If

Next
End With

End Sub

 

[Cousinhub]

Re : au bout du rouleau - suppri lignes de couleur

Bonjour,

une suppression de lignes se fait toujours du bas vers le haut.
regarde le code :

Sub suppr_couleur()

Dim Col As String, I As Integer
Col = "E"
Sheets("suspens_restant").Select

For I = Cells(65536, Col).End(xlUp).Row To 1 Step -1
If Cells(I, Col).EntireRow.Font.ColorIndex = 3 Then Rows(I).Delete
Next I


End Sub

 

[Gorfael]

Re : au bout du rouleau - suppri lignes de couleur

salut
je veux suppr les lignes qui sont en rouges
j'ai écrit la macro ci dessous quelqu un pourrati me dire ce qui va pas
pcq au fur et a mesure que j execute ca m efface tout
et non pas que les lignes rouge comme je le veux !!!


Merci


Sub suppr_couleur()

Dim Lig As Long
Dim Col As String
Dim Col2 As String
Dim Col3 As String
Dim NbrLig As Long
Dim NumLig As Long

Col2 = "G"
Col3 = "H"
Col = "E" ' colonne données non vides à tester'
NumLig = 1

Sheets("suspens_restant").Select

With Sheets("suspens_restant") ' feuille source'
NbrLig = .Cells(65536, Col).End(xlUp).Row
For Lig = 1 To NbrLig 'n° de la 1ere ligne de données'

If Cells(Lig, Col).EntireRow.Font.ColorIndex = 3 Then
Cells(NumLig, 1).Select
.Cells(Lig, Col).EntireRow.Delete
NumLig = NumLig + 1
End If

Next
End With

End Sub

Salut
Sans revenir sur la macro rectifiée par bhbh, juste un problème de terme :
If Cells(Lig, Col).EntireRow.Font.ColorIndex = 3 Then
Ce que tu testes : Si la ligne testée à une police de couleur rouge

je veux suppr les lignes qui sont en rouges
Ce que je comprends : je veux supprimer les cellules coloriées en rouge
Ce qui donne dans la macro de bhbh
If Cells(I, Col).EntireRow.interior.ColorIndex = 3 Then Rows(I).Delete
Si la ligne à un fond rouge, la supprimer

A+

 

[Cousinhub]

Re : au bout du rouleau - suppri lignes de couleur

Bonjour Gorfael,
je m'étais posé la même question, mais comme il avait bien mis le Font, je l'ai conservé...
Mais tu as bien fait de le préciser

 

[mousocgen]

Re : au bout du rouleau - suppri lignes de couleur

salut à tous merci de vos réponses
mais finalement avec un do while j'ai régler le problème qui bizzarement avec un if restait entier.
j'ai pas le temps de chercher pourquoi !!
Merci
++