Reperer elements dans une colonne

[romainchu78]

Bonjour a tout le forum,
J'ai une colonne de donnees. je souhaiterais balayer la colonne et suprimer toutes les lignes ne commencant pas par "FNXS"...
par exemple, "FUIES" sera supprime. "FNXSTTTT" ne sera pas suprimmer car il commence par "FNXS".
merci par avance.

 

[Catrice]

Re : Reperer elements dans une colonne

Bonjour,

Essaye ceci :

Sub test()
'Remplacer A1 par la 1ere cellule de la colonne concernée
For Each X In Range([A1], [A1].End(xlDown))
If Not X.Value Like "FNXS*" Then X.EntireRow.Delete
Next
End Sub

Si la colonne concernée est la colonne A
Sinon remplacer par B1, C1, D1 ou ....

 

[romainchu78]

Re : Reperer elements dans une colonne

jai essaye cela ne marche pas.
la macro tourne mais rien n'est supprime.

 

[Catrice]

Re : Reperer elements dans une colonne

Re,

Chez moi ça fonctionne parfaitement.
Peux tu donner un petit fichier avec des données pour que je teste ?

 

[romainchu78]

Re : Reperer elements dans une colonne

ok voici la pice jointe

 

[Caillou]

Re : Reperer elements dans une colonne

Bonjour à tous,

Tu peux essayer ceci :
Sub Command_SupprLignes()
For i = 1 To Range("A1").End(xlDown).Row
If Left(Cells(i, "A"), 4) <> "FNXS" Then
Cells(i, "A").EntireRow.Delete
If i <= Range("A1").End(xlDown).Row Then i = i - 1
End If
Next
End Sub

Par contre pour Catrice, sa procédure est surement plus concentionnelle que la mienne, mais elle ne fonctionne pas dans le cas où plusieurs lignes consécutives sont à supprimer.

Jean-Pierre

 

[romainchu78]

Re : Reperer elements dans une colonne

ca marche.
merci

 

[Catrice]

Re : Reperer elements dans une colonne

re,

Caillou a raison, une version plus fiable ci-joint.

 

[romainchu78]

Re : Reperer elements dans une colonne

nikel cest optimise.
merci a vous

 

[Pierrot93]

Re : Reperer elements dans une colonne

Bonsoir Romain, Catrice, Caillou

une autre solution un peu moins longue :

Sub test()
Dim l As Integer, maplage As Range
Set maplage = Range("A1:A" & Range("A65536").End(xlUp).Row)
For i = maplage.Rows.Count To 1 Step -1
    If Not maplage(i, 1).Value Like "FNXS*" Then maplage(i, 1).EntireRow.Delete
Next i
End Sub

bonne soirée
@+

 

[Catrice]

Re : Reperer elements dans une colonne

Re,

Une boucle For .. Next est définitivement ce qu'il y a de mieux.
Encore plus short :

Sub Test2()
For i = [A65536].End(xlUp).Row To 1 Step -1
If Not Cells(i, 1) Like "FNXS*" Then Cells(i, 1).EntireRow.Delete
Next
End Sub