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

bobjazz

XLDnaute Impliqué

• 20 Avril 2016

• #2

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

 

Vote positif 0 Vote négatif

T

thebenoit59

XLDnaute Accro

• 20 Avril 2016

• #3

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.

 

Vote positif 0 Vote négatif

bobjazz

XLDnaute Impliqué

• 20 Avril 2016

• #4

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

Bonsoir thebenoit59

En rajoutant un Not, j'efface tout.

Merci

Bobjazz

 

Vote positif 0 Vote négatif

T

thebenoit59

XLDnaute Accro

• 20 Avril 2016

• #5

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 :

Code:

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

 

Vote positif 0 Vote négatif

bobjazz

XLDnaute Impliqué

• 20 Avril 2016

• #6

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

 

Vote positif 0 Vote négatif