[RESOLU]Supression de lignes d une colonne

[Yaniv]

Bonjour je dispose d une base de données sur la colonne B de ma feuille 1 , je souhaiterais supprimer les lignes en fond noir ou ecrites en rouge,pour cela j ai fait le code suivant

Sub test2()
 Dim LastLig As Long, i As Long
Application.ScreenUpdating = False
With Worksheets("Feuil1")
    LastLig = .Cells(.Rows.Count, 2).End(xlUp).Row
    For i = LastLig To 2 Step -1
         If .Range("B" & i).Interior.Color = 0 Or .Range("B" & i).Font.Color = 255 Then .Rows(i).Delete
    Next i
End With
 End Sub

Or le probleme c est lorsque j execute cette macro , toute ma colonne est effacée (meme les lignes sur fond blanc ou ecrite en noir)

 

[Papou-net]

Re : Supression de lignes d une colonne

Bonjour Yaniv, et bienvenue,

C'est normal, puisque tu effaces la ligne complète. Si j'ai bien compris, tu ne veux effacer que les cellules alors peut-être comme ceci :

Sub test2()
 Dim LastLig As Long, i As Long
Application.ScreenUpdating = False
With Worksheets("Feuil1")
    LastLig = .Cells(.Rows.Count, 2).End(xlUp).Row
    For i = LastLig To 2 Step -1
         If .Range("B" & i).Interior.Color = 0 Or .Range("B" & i).Font.Color = 255 Then .Range("B" & i).Delete
    Next i
End With
 End Sub

Cordialement.

 

[Yaniv]

Re : Supression de lignes d une colonne

Merci de votre reponse , toutefois le meme probleme se repercute je n arrive pas a comprendre ou se trove mon erreur !!!
j ai verfier qu il n y avait aucune mise en forme conditionnelle

 

[Papou-net]

Re : Supression de lignes d une colonne

Merci de votre reponse , toutefois le meme probleme se repercute je n arrive pas a comprendre ou se trove mon erreur !!!
j ai verfier qu il n y avait aucune mise en forme conditionnelle

RE

Peut-être qu'en envoyant une copie de ton fichier, sans données confidentielles bien sûr.

A +

Cordialement.

 

[Yaniv]

Re : Supression de lignes d une colonne

Merci de votre aide , je vous ai envoye une partie modifiee de ma bdd(je l ai modifiee car c est confidentiel dsl)

 

[Yaniv]

Re : Supression de lignes d une colonne

je pense qu il y a une erreur un and au lieu du or ds le code de cet exemple (mais le probleme n est pas la car deja modifie)

 

[Papou-net]

Re : Supression de lignes d une colonne

RE

Voilà, c'est beaucoup plus parlant avec un exemple sous les yeux.

Modifie ton code comme ceci :

Sub test2()
Dim LastLig As Long, i As Long
Application.ScreenUpdating = False
With Worksheets("Feuil1")
    LastLig = Range("B" & Application.Rows.Count).End(xlUp).Row
    For i = LastLig To 2 Step -1
         If .Range("B" & i).Interior.ColorIndex = 1 Or .Range("B" & i).Font.Color = 255 Then .Range("B" & i).Delete
    Next i
End With
End Sub

Cordialement.

 

[Papou-net]

Re : Supression de lignes d une colonne

je pense qu il y a une erreur un and au lieu du or ds le code de cet exemple (mais le probleme n est pas la car deja modifie)

Effectivement, il fallait remplacer And par Or, car une seule des conditions est suffisante pour supprimer la cellule.

Autre point : j'ai utilisé ColorIndex au lieu de Color et ai remplacé sa valeur par 1 qui correspond au noir.

Cordialement.

 

[Yaniv]

Re : Supression de lignes d une colonne

Vous l avez teste sur le fichier base de données et ca a marche ??

 

[Papou-net]

Re : Supression de lignes d une colonne

Vous l avez teste sur le fichier base de données et ca a marche ??

Oui, j'ai testé et ça fonctionne parfaitement.

D'ailleurs, tu peux tester en pas-à-pas par appui de la touche F8 après avoir positionné le curseur dans le code de la macro.

A +

Cordialement.

 

[Yaniv]

Re : Supression de lignes d une colonne

Merci beaucoup en tt cas de votre aide , bonne journée