Le code suivant me permet de supprimer les lignes dont la colonne B contient
les éléments entre guillemets, peut-on alléger ce code ?
For n = Range("B1000").End(xlUp).Row To 1 Step -1
If Range("B" & n).Value Like "ABS" Then Rows(n).Delete
If Range("B" & n).Value Like "PRES" Then Rows(n).Delete
If Range("B" & n).Value Like "RET" Then Rows(n).Delete
If Range("B" & n).Value Like "ELIM" Then Rows(n).Delete
If Range("B" & n).Value Like "FORFAIT" Then Rows(n).Delete
If Range("B" & n).Value Like "SC" Then Rows(n).Delete
If Range("B" & n).Value Like "RESE" Then Rows(n).Delete
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
isabelle
bonjour Jol,
iList = Array("ABS", "PRES", "RET", "ELIM", "FORFAIT", "SC", "RESE") For n = Range("B1000").End(xlUp).Row To 1 Step -1 For i = LBound(iList) To UBound(iList) If Range("B" & n).Value Like iList(i) Then Rows(n).Delete Next Next
-- isabelle
Le 2011-04-19 05:54, Jol a écrit :
Bonjour,
Le code suivant me permet de supprimer les lignes dont la colonne B contient les éléments entre guillemets, peut-on alléger ce code ?
For n = Range("B1000").End(xlUp).Row To 1 Step -1 If Range("B" & n).Value Like "ABS" Then Rows(n).Delete If Range("B" & n).Value Like "PRES" Then Rows(n).Delete If Range("B" & n).Value Like "RET" Then Rows(n).Delete If Range("B" & n).Value Like "ELIM" Then Rows(n).Delete If Range("B" & n).Value Like "FORFAIT" Then Rows(n).Delete If Range("B" & n).Value Like "SC" Then Rows(n).Delete If Range("B" & n).Value Like "RESE" Then Rows(n).Delete
En vous remerciant
bonjour Jol,
iList = Array("ABS", "PRES", "RET", "ELIM", "FORFAIT", "SC", "RESE")
For n = Range("B1000").End(xlUp).Row To 1 Step -1
For i = LBound(iList) To UBound(iList)
If Range("B" & n).Value Like iList(i) Then Rows(n).Delete
Next
Next
--
isabelle
Le 2011-04-19 05:54, Jol a écrit :
Bonjour,
Le code suivant me permet de supprimer les lignes dont la colonne B contient les éléments entre guillemets, peut-on alléger ce code ?
For n = Range("B1000").End(xlUp).Row To 1 Step -1
If Range("B" & n).Value Like "ABS" Then Rows(n).Delete
If Range("B" & n).Value Like "PRES" Then Rows(n).Delete
If Range("B" & n).Value Like "RET" Then Rows(n).Delete
If Range("B" & n).Value Like "ELIM" Then Rows(n).Delete
If Range("B" & n).Value Like "FORFAIT" Then Rows(n).Delete
If Range("B" & n).Value Like "SC" Then Rows(n).Delete
If Range("B" & n).Value Like "RESE" Then Rows(n).Delete
iList = Array("ABS", "PRES", "RET", "ELIM", "FORFAIT", "SC", "RESE") For n = Range("B1000").End(xlUp).Row To 1 Step -1 For i = LBound(iList) To UBound(iList) If Range("B" & n).Value Like iList(i) Then Rows(n).Delete Next Next
-- isabelle
Le 2011-04-19 05:54, Jol a écrit :
Bonjour,
Le code suivant me permet de supprimer les lignes dont la colonne B contient les éléments entre guillemets, peut-on alléger ce code ?
For n = Range("B1000").End(xlUp).Row To 1 Step -1 If Range("B" & n).Value Like "ABS" Then Rows(n).Delete If Range("B" & n).Value Like "PRES" Then Rows(n).Delete If Range("B" & n).Value Like "RET" Then Rows(n).Delete If Range("B" & n).Value Like "ELIM" Then Rows(n).Delete If Range("B" & n).Value Like "FORFAIT" Then Rows(n).Delete If Range("B" & n).Value Like "SC" Then Rows(n).Delete If Range("B" & n).Value Like "RESE" Then Rows(n).Delete
En vous remerciant
MichD
Bonjour,
'---------------------------------------------- Sub Test() Dim DerLig As Long, N As Long With Worksheets("Feuil1") 'Nom Feuille à adapter DerLig = .Range("B1000").End(xlUp).Row For N = DerLig To 1 Step -1 Select Case .Range("B" & N).Value Case "ABS", "PRES", "RET", "ELIM", "FORFAIT", "SC", "RESE" .Rows(N).Delete End Select Next End With End Sub '----------------------------------------------
'----------------------------------------------
Sub Test()
Dim DerLig As Long, N As Long
With Worksheets("Feuil1") 'Nom Feuille à adapter
DerLig = .Range("B1000").End(xlUp).Row
For N = DerLig To 1 Step -1
Select Case .Range("B" & N).Value
Case "ABS", "PRES", "RET", "ELIM", "FORFAIT", "SC", "RESE"
.Rows(N).Delete
End Select
Next
End With
End Sub
'----------------------------------------------
'---------------------------------------------- Sub Test() Dim DerLig As Long, N As Long With Worksheets("Feuil1") 'Nom Feuille à adapter DerLig = .Range("B1000").End(xlUp).Row For N = DerLig To 1 Step -1 Select Case .Range("B" & N).Value Case "ABS", "PRES", "RET", "ELIM", "FORFAIT", "SC", "RESE" .Rows(N).Delete End Select Next End With End Sub '----------------------------------------------
For n = 1000 To 1 Step -1 Select Case UCase(Range("B" & n)) Case "ABS", "PRES", "RET", "ELIM", "FORFAIT", "SC", "RESE" Rows(n).Delete End Select Next
'LSteph
'sinon pour un peu plus rapide:
Sub apure() Dim n As Long Application.ScreenUpdating = False For n = 1000 To 1 Step -1 Select Case UCase(Range("B" & n)) Case "ABS", "PRES", "RET", "ELIM", "FORFAIT", "SC", "RESE" Rows(n).Delete End Select Next Application.ScreenUpdating = True End Sub
Bonjour,
'juste plus court
For n = 1000 To 1 Step -1
Select Case UCase(Range("B" & n))
Case "ABS", "PRES", "RET", "ELIM", "FORFAIT", "SC", "RESE"
Rows(n).Delete
End Select
Next
'LSteph
'sinon pour un peu plus rapide:
Sub apure()
Dim n As Long
Application.ScreenUpdating = False
For n = 1000 To 1 Step -1
Select Case UCase(Range("B" & n))
Case "ABS", "PRES", "RET", "ELIM", "FORFAIT", "SC", "RESE"
Rows(n).Delete
End Select
Next
Application.ScreenUpdating = True
End Sub
For n = 1000 To 1 Step -1 Select Case UCase(Range("B" & n)) Case "ABS", "PRES", "RET", "ELIM", "FORFAIT", "SC", "RESE" Rows(n).Delete End Select Next
'LSteph
'sinon pour un peu plus rapide:
Sub apure() Dim n As Long Application.ScreenUpdating = False For n = 1000 To 1 Step -1 Select Case UCase(Range("B" & n)) Case "ABS", "PRES", "RET", "ELIM", "FORFAIT", "SC", "RESE" Rows(n).Delete End Select Next Application.ScreenUpdating = True End Sub
Jol
Merci à vous deux, comme d'habitude c'est précis et ça fonctionne impec !
"Jol" a écrit dans le message de news:iojm4r$ndd$
Bonjour,
Le code suivant me permet de supprimer les lignes dont la colonne B contient les éléments entre guillemets, peut-on alléger ce code ?
For n = Range("B1000").End(xlUp).Row To 1 Step -1 If Range("B" & n).Value Like "ABS" Then Rows(n).Delete If Range("B" & n).Value Like "PRES" Then Rows(n).Delete If Range("B" & n).Value Like "RET" Then Rows(n).Delete If Range("B" & n).Value Like "ELIM" Then Rows(n).Delete If Range("B" & n).Value Like "FORFAIT" Then Rows(n).Delete If Range("B" & n).Value Like "SC" Then Rows(n).Delete If Range("B" & n).Value Like "RESE" Then Rows(n).Delete
En vous remerciant
Merci à vous deux, comme d'habitude c'est précis et ça fonctionne impec !
"Jol" <angmedia@free.fr> a écrit dans le message de
news:iojm4r$ndd$1@speranza.aioe.org...
Bonjour,
Le code suivant me permet de supprimer les lignes dont la colonne B
contient les éléments entre guillemets, peut-on alléger ce code ?
For n = Range("B1000").End(xlUp).Row To 1 Step -1
If Range("B" & n).Value Like "ABS" Then Rows(n).Delete
If Range("B" & n).Value Like "PRES" Then Rows(n).Delete
If Range("B" & n).Value Like "RET" Then Rows(n).Delete
If Range("B" & n).Value Like "ELIM" Then Rows(n).Delete
If Range("B" & n).Value Like "FORFAIT" Then Rows(n).Delete
If Range("B" & n).Value Like "SC" Then Rows(n).Delete
If Range("B" & n).Value Like "RESE" Then Rows(n).Delete
Merci à vous deux, comme d'habitude c'est précis et ça fonctionne impec !
"Jol" a écrit dans le message de news:iojm4r$ndd$
Bonjour,
Le code suivant me permet de supprimer les lignes dont la colonne B contient les éléments entre guillemets, peut-on alléger ce code ?
For n = Range("B1000").End(xlUp).Row To 1 Step -1 If Range("B" & n).Value Like "ABS" Then Rows(n).Delete If Range("B" & n).Value Like "PRES" Then Rows(n).Delete If Range("B" & n).Value Like "RET" Then Rows(n).Delete If Range("B" & n).Value Like "ELIM" Then Rows(n).Delete If Range("B" & n).Value Like "FORFAIT" Then Rows(n).Delete If Range("B" & n).Value Like "SC" Then Rows(n).Delete If Range("B" & n).Value Like "RESE" Then Rows(n).Delete
En vous remerciant
Jol
Encore "plus mieux", je n'ai que l'embarras du choix, merci à tous
"Jol" a écrit dans le message de news:iok2qs$nbj$
Merci à vous deux, comme d'habitude c'est précis et ça fonctionne impec !
"Jol" a écrit dans le message de news:iojm4r$ndd$
Bonjour,
Le code suivant me permet de supprimer les lignes dont la colonne B contient les éléments entre guillemets, peut-on alléger ce code ?
For n = Range("B1000").End(xlUp).Row To 1 Step -1 If Range("B" & n).Value Like "ABS" Then Rows(n).Delete If Range("B" & n).Value Like "PRES" Then Rows(n).Delete If Range("B" & n).Value Like "RET" Then Rows(n).Delete If Range("B" & n).Value Like "ELIM" Then Rows(n).Delete If Range("B" & n).Value Like "FORFAIT" Then Rows(n).Delete If Range("B" & n).Value Like "SC" Then Rows(n).Delete If Range("B" & n).Value Like "RESE" Then Rows(n).Delete
En vous remerciant
Encore "plus mieux", je n'ai que l'embarras du choix, merci à tous
"Jol" <angmedia@free.fr> a écrit dans le message de
news:iok2qs$nbj$1@speranza.aioe.org...
Merci à vous deux, comme d'habitude c'est précis et ça fonctionne impec !
"Jol" <angmedia@free.fr> a écrit dans le message de
news:iojm4r$ndd$1@speranza.aioe.org...
Bonjour,
Le code suivant me permet de supprimer les lignes dont la colonne B
contient les éléments entre guillemets, peut-on alléger ce code ?
For n = Range("B1000").End(xlUp).Row To 1 Step -1
If Range("B" & n).Value Like "ABS" Then Rows(n).Delete
If Range("B" & n).Value Like "PRES" Then Rows(n).Delete
If Range("B" & n).Value Like "RET" Then Rows(n).Delete
If Range("B" & n).Value Like "ELIM" Then Rows(n).Delete
If Range("B" & n).Value Like "FORFAIT" Then Rows(n).Delete
If Range("B" & n).Value Like "SC" Then Rows(n).Delete
If Range("B" & n).Value Like "RESE" Then Rows(n).Delete
Encore "plus mieux", je n'ai que l'embarras du choix, merci à tous
"Jol" a écrit dans le message de news:iok2qs$nbj$
Merci à vous deux, comme d'habitude c'est précis et ça fonctionne impec !
"Jol" a écrit dans le message de news:iojm4r$ndd$
Bonjour,
Le code suivant me permet de supprimer les lignes dont la colonne B contient les éléments entre guillemets, peut-on alléger ce code ?
For n = Range("B1000").End(xlUp).Row To 1 Step -1 If Range("B" & n).Value Like "ABS" Then Rows(n).Delete If Range("B" & n).Value Like "PRES" Then Rows(n).Delete If Range("B" & n).Value Like "RET" Then Rows(n).Delete If Range("B" & n).Value Like "ELIM" Then Rows(n).Delete If Range("B" & n).Value Like "FORFAIT" Then Rows(n).Delete If Range("B" & n).Value Like "SC" Then Rows(n).Delete If Range("B" & n).Value Like "RESE" Then Rows(n).Delete