recherche texte et si $, supprime ligne

[news]

Bonjour,

j'ai un listing avec des valeurs en € et en $.

Afin de supprimer les lignes avec currency en USD,
j'ai besoin d'une macro, qui effectue une recherche d'abord si trouve le texte "Currency".

Si trouvé ce texte et sous l'autre colonne se trouve comme currency USD, alors la ligne est à supprimer.

meric d'avance d'astuces pour résoudre,

news

 

[news]

Re : recherche texte et si $, supprime ligne

Bonjour à tous du forum,

j'ai remis ci-joint le fichier rectifié, comme dans la colonne A il y a les données de date,

j'ai besoin d'une macro, qui effectue une recherche d'abord si dans la colonne B se trouve le texte "Currency".

Si trouvé ce texte et sous la colonne C se trouve comme currency USD, alors la ligne est à supprimer.

Par contre si dans la colonne C se trouve USD, mais dans la colonne B il n'y a pas le texte "Currency", alors la ligne n'est pas supprimée,

news

 

[Pierrot93]

Re : recherche texte et si $, supprime ligne

Bonjour,

fait avec la première donne.... A adapter donc...

Option Explicit
Sub test()
Dim i As Long
For i = Range("A65536").End(xlUp).Row To 3 Step -1
    If Cells(i, 1).Value Like "*Currency*" And Cells(i, 2).Value = "USD" _
        Then Rows(i).Delete
Next i
End Sub

bonne fin d'après midi
@+

 

[news]

Re : recherche texte et si $, supprime ligne

Bonjour à tous du forum,

merci Pierrot93 pour réponse,

je vais essayer d'adapter avec autre colonne,

news

 

[Pierrot93]

Re : recherche texte et si $, supprime ligne

Re,

modifier le 2ème chiffre de la propriété "cells", il correspond au numéro de colonne.. et ce dans les 2 tests

Cells(i, [COLOR="Red"][B]1[/B][/COLOR])