recherche texte et si $, supprime ligne

news · 6 Août 2010

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 · 6 Août 2010

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 · 6 Août 2010

Re : recherche texte et si $, supprime ligne

Bonjour,

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

Code:

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 · 6 Août 2010

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 · 6 Août 2010

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

Code:

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

recherche texte et si $, supprime ligne

news

XLDnaute Impliqué

news

XLDnaute Impliqué

Pièces jointes

Pierrot93

XLDnaute Barbatruc

news

XLDnaute Impliqué

Pierrot93

XLDnaute Barbatruc

Discussions similaires