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.
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."
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
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
Partager