Lord Brett Sinclair
XLDnaute Nouveau
Bonjour,
je voudrais réussir à supprimer les lignes d'une sélection particulière mais je n'arrive pas.
voivi mon code
les lignes doivent être supprimées si la cellule A contient:
rien (est vide)
EUR GBP USD ISIN
ne commence pas par deux lettres
je voudrais réussir à supprimer les lignes d'une sélection particulière mais je n'arrive pas.
voivi mon code
Code:
ActiveCell.SpecialCells(xlLastCell).Select
Range(Selection, Cells(1)).Select
For Each Rw1 In Selection.Rows
Ligne = Rw1.Row
With Cells(, 1)
If IsEmpty(.Value) Then .EntireRow.Delete
If Range("a" & Ligne).Value = 0 Then Rows(Ligne).Delete
If InStr(Range("A" & Ligne), "EUR") + InStr(Range("A" & Ligne), "USD") + InStr(Range("A" & Ligne), "GBP") + InStr(Range("A" & Ligne), "ISIN") > 0 Then Rows(Ligne).Delete
If Trim(Range("A" & Ligne)) Like "#*" Then Rows(Ligne).Delete
End With
Next
les lignes doivent être supprimées si la cellule A contient:
rien (est vide)
EUR GBP USD ISIN
ne commence pas par deux lettres
Dernière édition: