Je voudrais supprimer toutes les lignes, entre les lignes 5 et 100, qui ne
contiennent pas "BB" en 3e et 4e caractères dans la cellule de la colonne A.
J'essaie en vain de m'inspirer d'un code d'Alain Vallon glané dans les
archives mais je galère...
un petit coup de pouce ? ;o)
Je suis bien sûr preneur d'une autre solution...
Merci
Domi
derl = [A65536].End(3).Row
For x = derl To 1 Step -1
If Evaluate("if(Mid(" & "L" & x & ",3,2)<>"BB")") = False Then
Range("A" & x & ":L" & x).Delete Shift:=xlUp
Next
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Domi
J'ai trouvé cette soluce entre temps :
Sub supLgnBB() Dim i As Long Application.ScreenUpdating = False dLgn = [A65536].End(xlUp).Row For i = dLgn To 1 Step -1 If Mid(Cells(i, 1), 3, 2) <> "BB" Then _ Cells(i, 1).EntireRow.Delete Next i End Sub
Domi
"Domi" a écrit dans le message de news:
Rebonjour à tous, Une nouvelle petite question
Je voudrais supprimer toutes les lignes, entre les lignes 5 et 100, qui ne contiennent pas "BB" en 3e et 4e caractères dans la cellule de la colonne A.
J'essaie en vain de m'inspirer d'un code d'Alain Vallon glané dans les archives mais je galère... un petit coup de pouce ? ;o) Je suis bien sûr preneur d'une autre solution... Merci Domi
derl = [A65536].End(3).Row For x = derl To 1 Step -1 If Evaluate("if(Mid(" & "L" & x & ",3,2)<>"BB")") = False Then Range("A" & x & ":L" & x).Delete Shift:=xlUp Next
J'ai trouvé cette soluce entre temps :
Sub supLgnBB()
Dim i As Long
Application.ScreenUpdating = False
dLgn = [A65536].End(xlUp).Row
For i = dLgn To 1 Step -1
If Mid(Cells(i, 1), 3, 2) <> "BB" Then _
Cells(i, 1).EntireRow.Delete
Next i
End Sub
Domi
"Domi" <scrat83@free.fr> a écrit dans le message de
news:ebznS5YcEHA.212@TK2MSFTNGP12.phx.gbl...
Rebonjour à tous,
Une nouvelle petite question
Je voudrais supprimer toutes les lignes, entre les lignes 5 et 100, qui ne
contiennent pas "BB" en 3e et 4e caractères dans la cellule de la colonne
A.
J'essaie en vain de m'inspirer d'un code d'Alain Vallon glané dans les
archives mais je galère...
un petit coup de pouce ? ;o)
Je suis bien sûr preneur d'une autre solution...
Merci
Domi
derl = [A65536].End(3).Row
For x = derl To 1 Step -1
If Evaluate("if(Mid(" & "L" & x & ",3,2)<>"BB")") = False Then
Range("A" & x & ":L" & x).Delete Shift:=xlUp
Next
Sub supLgnBB() Dim i As Long Application.ScreenUpdating = False dLgn = [A65536].End(xlUp).Row For i = dLgn To 1 Step -1 If Mid(Cells(i, 1), 3, 2) <> "BB" Then _ Cells(i, 1).EntireRow.Delete Next i End Sub
Domi
"Domi" a écrit dans le message de news:
Rebonjour à tous, Une nouvelle petite question
Je voudrais supprimer toutes les lignes, entre les lignes 5 et 100, qui ne contiennent pas "BB" en 3e et 4e caractères dans la cellule de la colonne A.
J'essaie en vain de m'inspirer d'un code d'Alain Vallon glané dans les archives mais je galère... un petit coup de pouce ? ;o) Je suis bien sûr preneur d'une autre solution... Merci Domi
derl = [A65536].End(3).Row For x = derl To 1 Step -1 If Evaluate("if(Mid(" & "L" & x & ",3,2)<>"BB")") = False Then Range("A" & x & ":L" & x).Delete Shift:=xlUp Next