XL 2010 Excel macro suppression de ligne ne commençant pas par 2 critères

[chris6999]

Bonjour le FORUM

Comment rédiger un code pour supprimer toutes les lignes ne commençant pas par X ou Y
Je pensais que ma macro ci-après suffirait mais il ne reste que les X.
Qu'est-ce qui cloche d'après vous?

Sub TEST()
Dim i As Integer
For i = Range("A65536").End(xlUp).Row To 1 Step -1
If Not Range("A" & i) Like "X*" Or Range("A" & i) Like "Y*" Then Rows(i).Delete
Next i
End Sub

Bien cordialement

 

[vgendron]

Hello
peut etre avec ce code

Sub TEST()
Dim i As Integer
For i = Range("A65536").End(xlUp).Row To 1 Step -1
    If (Range("A" & i) Like "X*") Or (Range("A" & i) Like "Y*") Then Rows(i).Delete 'si ca commence par X ou Y on supprime
Next i
End Sub

 

[vgendron]

et pour ne garder que les lignes commencant par X OU Y

Sub TEST()
Dim i As Integer
For i = Range("A65536").End(xlUp).Row To 1 Step -1
    If Not (Range("A" & i) Like "X*") And Not (Range("A" & i) Like "Y*") Then Rows(i).Delete
Next i
End Sub

X ou Y
l'opposé donne: Non(X) ET Non(Y)

 

[chris6999]

Bonjour et merci vgendron.
C'est u n peu lent mais cela fonctionne nickel
Bonne journée

 

[vgendron]

Hello
peut etre en ajoutant une instruction en début de code, et son contraire en fin de code

Sub TEST()
application.screenupdating=false
Dim i As Integer
For i = Range("A65536").End(xlUp).Row To 1 Step -1
   If Not (Range("A" & i) Like "X*") And Not (Range("A" & i) Like "Y*") Then Rows(i).Delete
Next i
End Sub
application.screenupdating=true

 

[vgendron]

ou alors
tu ecris un autre code qui
1) filtre les lignes: ne contenant pas de X ou Y
2) supprime les lignes visibles
3) enlève le filtre

avec l'enregistreur de macro, tu devrais pouvoir t'en sortir