Supprimer des lignes sous conditions

[xam2222]

Bonjour a tous!

Apres avoir deambule sur le forum a la recherche d'un peu d'aide j'ai encore du mal a faire ce que je souhaite...

Je m'explique, j'ai un fichier excel 20 colonnes et environ 15000 lignes.
Dans la colonne B j'ai des valeurs qui vont de 1 a 11 (niveau de decomposition dun produit).
L'idee est simple: si B2 < B3 on supprime la ligne 3
En revanche, si B2 > B3 on passe a la suivante et on compare B3 avec B4 et ainsi de suite jusqu'a ce que Bx soit vide.

De plus, je voudrais n'appliquer la macro qu'entre deux lignes jaunes, le critere jaune depend d'un contenu commun en colonne R (cf exemple). Exemple: Ligne 9 = plus haut niveau du groupe et ligne 68 dernier niveau avant le groupe suivant qui va de la ligne 69 a 101 etc.

J'ai vu des choses similaires mais je n'arrive pas a les appliquer proprement.

Merci d'avance pour votre aide!!

Max

 

[Guest]

Re : Supprimer des lignes sous conditions

Bonjour et bienvenue sur le forum,


voici une macro faite sur la base du fichier joint.
Peut-être aurait - il était préférable de nous dire sur quelle condition de la colonne r dépend la couleur de cellule, plutôt que de tester cette dernière.

Sub Nettoyer()
    Dim ligne As Long
    With ThisWorkbook.Sheets("Sheet1")
        For ligne = .Range("A" & .Rows.Count).End(xlUp).Row To 2 Step -1
            If .Cells(ligne, 1) > .Cells(ligne - 1, 1) _
                        And .Cells(ligne, 1).Interior.ColorIndex <> 6 _
                            And .Cells(ligne - 1, 1).Interior.ColorIndex <> 6 Then
                .Cells(ligne, 1).EntireRow.Delete
            End If
        Next
    End With
End Sub

A+