Suppression en chaîne de lignes

[koyot3]

Bonjour à tous

Dans une colonne C, j'ai des numéros de productions. Or je voudrais faire un tri par exemple pour ne conserver que les produits ayant un num de prod égal à 72 et 73.

vide = False
x = 1

Do While vide = False
    If IsEmpty(Cells(x, 4).Value) Then
        vide = True
    Else
        If Cells(x, 4).Value <> 72 and Cells(x, 4).Value <> 73  Then
            'Sheets("Import").Rows(x).Delete Shift:=xlUp
        End If
        x = x + 1
    End If
Loop

Le probleme est qu'il m'en supprime une partie masi pas tous ...
Je n'arrive pas à voir d'où vient le probleme...

Merci d'avance pour votre aide !
johan

 

[Pyrof]

Re : Suppression en chaîne de lignes

Bonjour,

Quand tu fais le delete ligne, il ne pas incrémenter x
car le fait de supprimer ta ligne, la suite suivante devient la ligne x et comme tu incremnente x , cette dernière ne sera pas analysée

vide = False
x = 1

Do While vide = False
If IsEmpty(Cells(x, 4).Value) Then
vide = True
Else
If Cells(x, 4).Value <> 72 and Cells(x, 4).Value <> 73 Then
'Sheets("Import").Rows(x).Delete Shift:=xlUp
else
x = x + 1
End If
End If
Loop

 

[Staple1600]

Re : Suppression en chaîne de lignes

Bonjour


Une autre façon de faire

Sub sup_lignes()
Application.ScreenUpdating = False
Selection.EntireRow.Insert
ActiveCell.FormulaR1C1 = "XXXXX"
Selection.AutoFilter Field:=1, Criteria1:="<72", Operator:=xlOr, _
Criteria2:=">73"
Selection.CurrentRegion.EntireRow.Delete
Application.ScreenUpdating = True
End Sub

Pour info:
Dans une colonne C (donc 3)

Cells(x, 4).Value)

 

[koyot3]

Re : Suppression en chaîne de lignes

merci pyrof, ta technique fonctionne !

Pour info:
Dans une colonne C (donc 3)

Cells(x, 4).Value)

Je sais je me suis planté dans le post, mais dans la macro s'était bon