XL 2013 Supression de lignes qui ne commencent pas différents critéres

[bobjazz]

Bonsoir le Forum

J'ai une extraction CSV avec x lignes, mon but est de supprimer les lignes qui ne commencent pas par un 2, un 5, un R et garder la première ligne.

J'ai trouvé pour supprimer avec une condition mais près je n'arrive pas à composer.

Merci d'avance

Bobjazz

 

[bobjazz]

Re : Supression de lignes qui ne commencent pas différents critéres

Re

J'ai oublié de dire la référence de la colonne à prendre en compte est A.
J'ai trouvé ce code mais je n'arrive pas à prendre ne compte les 3 critères :

Sub Suplignes()
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If Not Cells(i, 1) Like "*2*" Or Cells(i, 1) Like "5*" Or Cells(i, 1) Like "R*" Then Rows(i).Delete
Next
End Sub

Merci

Bobjazz

 

[thebenoit59]

Re : Supression de lignes qui ne commencent pas différents critéres

Bonsoir Bobjazz.

Ajoute un Not après les OR.
Et pour conserver la première ligne : To 2 Step -1

A tester.

 

[bobjazz]

Re : Supression de lignes qui ne commencent pas différents critéres

Bonsoir thebenoit59

En rajoutant un Not, j'efface tout.

Merci

Bobjazz

 

[thebenoit59]

Re : Supression de lignes qui ne commencent pas différents critéres

En regardant mieux ton code ce n'est pas l'idéal. On pourrait plutôt utiliser la condition suivante :

If Left (Cells (I, 1).value, 1) <> 2 and  left (cells (I, 1).value, 1) <>5 and Left (Cells (I, 1).value, 1) <> "R" Then rows (i).entirerow.delete

 

[bobjazz]

Re : Supression de lignes qui ne commencent pas différents critéres

Merci thebenoit59

En cherchant j'ai trouvé ce code et il fonctionne.
Sub suppression()


Dim z$, i&, k&
k = Cells(3000, 1).Row
For i = k To 2 Step -1
z = Cells(i, 1).Value
If Not (Cells(i, 1) Like ("2*") Or Cells(i, 1) Like ("5*") Or Cells(i, 1) Like ("R*")) Then Rows(i).Delete
Next
ActiveWorkbook.Save
End Sub

Merci

Bobjazz