Bonjour,

Je souhaiterais supprimer des lignes avec une condition.
Les lignes que je dois supprimer appartiennent à un sous ensemble en colonne 1 et les numeros d'articles se trouvent en colonne 2.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
 
I = 6
Y = ActiveCell.Select - 1
 
For I = 6 To Range("B100000").End(xlUp).Row Step 1
 
    If Range("B" & I).Value = 205632 Then
 
        For Y = ActiveCell.Select - 1 To Range("B100000").End(xlUp).Row Step 1
 
         Do While Range("A" & I).Value <> 3
         ActiveCell.EntireRow.Delete
         Loop
 
        Next Y
 
    End If
Next
Je veux lui dire "tant qu'il ne trouve pas d'autre "3" dans la colonne 1, qu'il supprime toutes les lignes à partir de l'article 205632."
Et qu'il continue, et s'il retrouve un 205632 qu'il recommence.

Ca peut paraître simple, mais étant débutant j'ai un peu de mal.

Si quelqu'un peut m'aider