Supprimer les lignes automatiquement

papou

24/08/2006 à 16:01

Bonjour
Avec quelque chose comme ça :
With Worksheets(3)
For i = 1 To .Range("K65536").End(xlUp).Row
On Error Resume Next
.Cells(i, 11).Find("M", LookIn:=xlValues,
searchorder:=xlByRows).EntireRow.Delete
On Error GoTo 0
Next i
End With

Cordialement
Pascal

"Utilisateur1" a écrit dans le message de news:
44edab99$0$849$

Bonjour a tous

Je cherche une macro pour supprimer automatiquement toutes les lignes
d'un
tableau qui ont la lettre "M" en colonne K

merçi

FL

24/08/2006 à 16:05

Bonjour,
Essaie cela :

Sub supMK()
For Each cel In Range("K1:K" & Range("K65536").End(xlUp).Row)
If cel Like "*" & "M" & "*" Then cel.EntireRow.Delete
Next
End Sub

Cordialement
FL
"Utilisateur1" a écrit dans le message de news:
44edab99$0$849$

Bonjour a tous

Je cherche une macro pour supprimer automatiquement toutes les lignes
d'un
tableau qui ont la lettre "M" en colonne K

merçi

FL

24/08/2006 à 16:22

Essaie aussi cela ..

Sub sup_MK()
For i = 1 To Range("K65536").End(xlUp).Row
If Cells(i, 11).Value Like "*" & "M" & "*" Then Cells(i,
11).EntireRow.Delete: i = i - 1
Next i
End Sub

@+
FL

"FL" a écrit dans le message de news:
44edb20d$0$856$

Bonjour,
Essaie cela :

Sub supMK()
For Each cel In Range("K1:K" & Range("K65536").End(xlUp).Row)
If cel Like "*" & "M" & "*" Then cel.EntireRow.Delete
Next
End Sub

Cordialement
FL
"Utilisateur1" a écrit dans le message de news:
44edab99$0$849$
Bonjour a tous

Je cherche une macro pour supprimer automatiquement toutes les lignes
d'un
tableau qui ont la lettre "M" en colonne K

merçi

Jacky

24/08/2006 à 16:25

Bonjour,

Perso, je commencerais par la dernière (en cas de doublons)
'--------
Sub jj()
Application.ScreenUpdating = False
For i = Range("k65536").End(3).Row To 1 Step -1
If UCase(Range("k" & i)) = "M" Then Range("k" & i).EntireRow.Delete
Next
End Sub
'----------
Salutations
JJ

"Utilisateur1" a écrit dans le message de
news:44edab99$0$849$

Bonjour a tous

Je cherche une macro pour supprimer automatiquement toutes les lignes
d'un

tableau qui ont la lettre "M" en colonne K

merçi

Utilisateur1

24/08/2006 à 16:29

Je m'y colle !
merçi
"FL" a écrit dans le message de news:
44edb633$0$989$

Essaie aussi cela ..

Sub sup_MK()
For i = 1 To Range("K65536").End(xlUp).Row
If Cells(i, 11).Value Like "*" & "M" & "*" Then Cells(i,
11).EntireRow.Delete: i = i - 1
Next i
End Sub

@+
FL

"FL" a écrit dans le message de news:
44edb20d$0$856$
Bonjour,
Essaie cela :

Sub supMK()
For Each cel In Range("K1:K" & Range("K65536").End(xlUp).Row)
If cel Like "*" & "M" & "*" Then cel.EntireRow.Delete
Next
End Sub

Cordialement
FL
"Utilisateur1" a écrit dans le message de news:
44edab99$0$849$
Bonjour a tous

Je cherche une macro pour supprimer automatiquement toutes les lignes
d'un
tableau qui ont la lettre "M" en colonne K

merçi

Utilisateur1

24/08/2006 à 16:41

merci a vous 2
ca Marche!
"Jacky" a écrit dans le message de news:
#

Bonjour,

Perso, je commencerais par la dernière (en cas de doublons)
'--------
Sub jj()
Application.ScreenUpdating = False
For i = Range("k65536").End(3).Row To 1 Step -1
If UCase(Range("k" & i)) = "M" Then Range("k" & i).EntireRow.Delete
Next
End Sub
'----------
Salutations
JJ

"Utilisateur1" a écrit dans le message de
news:44edab99$0$849$
Bonjour a tous

Je cherche une macro pour supprimer automatiquement toutes les lignes
d'un

tableau qui ont la lettre "M" en colonne K

merçi

Jacquouille

24/08/2006 à 16:47

Foi de Saint Jacques
Judicieuse remarque.
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/

Jacquouille.

"Jacky" a écrit dans le message de news:
%

Bonjour,

Perso, je commencerais par la dernière (en cas de doublons)
'--------
Sub jj()
Application.ScreenUpdating = False
For i = Range("k65536").End(3).Row To 1 Step -1
If UCase(Range("k" & i)) = "M" Then Range("k" & i).EntireRow.Delete
Next
End Sub
'----------
Salutations
JJ

"Utilisateur1" a écrit dans le message de
news:44edab99$0$849$
Bonjour a tous

Je cherche une macro pour supprimer automatiquement toutes les lignes
d'un

tableau qui ont la lettre "M" en colonne K

merçi

FL

24/08/2006 à 17:11

Attention !
ça ne supprime que les lignes où la cellule en colonne K est strictement =
"M"
N'est-il pas ?

Dans le cas où on veut supprimer les lignes où la cellule en colonne K
contient "M"

Sub sup_MK()
For i = 1 To Range("K65536").End(xlUp).Row
If Cells(i, 11).Value Like "*" & "M" & "*" Then Cells(i,
11).EntireRow.Delete: i = i - 1
Next i
End Sub

Cordialement
FL

"Jacky" a écrit dans le message de news:
%

Bonjour,

Perso, je commencerais par la dernière (en cas de doublons)
'--------
Sub jj()
Application.ScreenUpdating = False
For i = Range("k65536").End(3).Row To 1 Step -1
If UCase(Range("k" & i)) = "M" Then Range("k" & i).EntireRow.Delete
Next
End Sub
'----------
Salutations
JJ

"Utilisateur1" a écrit dans le message de
news:44edab99$0$849$
Bonjour a tous

Je cherche une macro pour supprimer automatiquement toutes les lignes
d'un

tableau qui ont la lettre "M" en colonne K

merçi

Jacky

24/08/2006 à 18:16

Ben voyons, entre "Jacques"
C'est normal.
;o)))
JJ

"Jacquouille" a écrit dans le message de
news:

Foi de Saint Jacques
Judicieuse remarque.
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
http://frederic.sigonneau.free.fr/

AV

25/08/2006 à 08:12

Dans leur immense majorité, les filtres sont plus rapides que les boucles...
Donc Filtrage de la colonne K > Edition > Atteindre > Cellules visibles >
Supprimer lignes...

AV

Supprimer les lignes automatiquement

10 réponses

Veuillez sélectionner un problème