bonjour !
J'ai une liste dans une feuille avec 4 colonnes A B C D. Je
voudrais qu'une macro puisse "scanner" cette liste en=20
v=E9rifiant les valeurs des colonnes C et D de telle fa=E7on =E0=20
ce que, si ces colonnes contiennent en m=EAme temps sur la=20
m=EAme ligne la valeur 0 , ladite ligne soit supprim=E9e=20
comment dois-je faire ?
merci d'avance de vos r=E9ponses
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
ChrisV
Bonjour Gaston,
Sub supL() Dim r As Long Application.ScreenUpdating = False On Error Resume Next For r = Range("A:D").Find("*", [A1], , , xlByRows, xlPrevious).Row To 1 Step -1 If Cells(r, 3) = 0 And Cells(r, 4) = 0 Then _ Rows(r).Delete Next r End Sub
ChrisV
"gaston" a écrit dans le message de news:14f3201c41985$c925d0e0$ bonjour ! J'ai une liste dans une feuille avec 4 colonnes A B C D. Je voudrais qu'une macro puisse "scanner" cette liste en vérifiant les valeurs des colonnes C et D de telle façon à ce que, si ces colonnes contiennent en même temps sur la même ligne la valeur 0 , ladite ligne soit supprimée comment dois-je faire ? merci d'avance de vos réponses
Bonjour Gaston,
Sub supL()
Dim r As Long
Application.ScreenUpdating = False
On Error Resume Next
For r = Range("A:D").Find("*", [A1], , , xlByRows, xlPrevious).Row To 1
Step -1
If Cells(r, 3) = 0 And Cells(r, 4) = 0 Then _
Rows(r).Delete
Next r
End Sub
ChrisV
"gaston" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:14f3201c41985$c925d0e0$a601280a@phx.gbl...
bonjour !
J'ai une liste dans une feuille avec 4 colonnes A B C D. Je
voudrais qu'une macro puisse "scanner" cette liste en
vérifiant les valeurs des colonnes C et D de telle façon à
ce que, si ces colonnes contiennent en même temps sur la
même ligne la valeur 0 , ladite ligne soit supprimée
comment dois-je faire ?
merci d'avance de vos réponses
Sub supL() Dim r As Long Application.ScreenUpdating = False On Error Resume Next For r = Range("A:D").Find("*", [A1], , , xlByRows, xlPrevious).Row To 1 Step -1 If Cells(r, 3) = 0 And Cells(r, 4) = 0 Then _ Rows(r).Delete Next r End Sub
ChrisV
"gaston" a écrit dans le message de news:14f3201c41985$c925d0e0$ bonjour ! J'ai une liste dans une feuille avec 4 colonnes A B C D. Je voudrais qu'une macro puisse "scanner" cette liste en vérifiant les valeurs des colonnes C et D de telle façon à ce que, si ces colonnes contiennent en même temps sur la même ligne la valeur 0 , ladite ligne soit supprimée comment dois-je faire ? merci d'avance de vos réponses
ChrisV
Hum... un peu "dangereux" si des données sont présentes dans les colonnes E:IV sur les lignes à supprimer en A:D... Il faudra préférer:
Sub supL() Dim r As Long Application.ScreenUpdating = False On Error Resume Next For r = Range("A:D").Find("*", [A1], , , xlByRows, xlPrevious).Row To 1 Step -1 If Cells(r, 3) = 0 And Cells(r, 4) = 0 Then _ Range("A" & r & ":D" & r).Delete shift:=xlUp Next r End Sub
ChrisV
"ChrisV" a écrit dans le message de news:OD%23e%
Bonjour Gaston,
Sub supL() Dim r As Long Application.ScreenUpdating = False On Error Resume Next For r = Range("A:D").Find("*", [A1], , , xlByRows, xlPrevious).Row To 1
Step -1 If Cells(r, 3) = 0 And Cells(r, 4) = 0 Then _ Rows(r).Delete Next r End Sub
ChrisV
"gaston" a écrit dans le message de news:14f3201c41985$c925d0e0$ bonjour ! J'ai une liste dans une feuille avec 4 colonnes A B C D. Je voudrais qu'une macro puisse "scanner" cette liste en vérifiant les valeurs des colonnes C et D de telle façon à ce que, si ces colonnes contiennent en même temps sur la même ligne la valeur 0 , ladite ligne soit supprimée comment dois-je faire ? merci d'avance de vos réponses
Hum...
un peu "dangereux" si des données sont présentes dans les colonnes E:IV sur
les lignes à supprimer en A:D...
Il faudra préférer:
Sub supL()
Dim r As Long
Application.ScreenUpdating = False
On Error Resume Next
For r = Range("A:D").Find("*", [A1], , , xlByRows, xlPrevious).Row To 1
Step -1
If Cells(r, 3) = 0 And Cells(r, 4) = 0 Then _
Range("A" & r & ":D" & r).Delete shift:=xlUp
Next r
End Sub
ChrisV
"ChrisV" <chrisve@wanadoo.fr> a écrit dans le message de
news:OD%23e%23fYGEHA.3568@tk2msftngp13.phx.gbl...
Bonjour Gaston,
Sub supL()
Dim r As Long
Application.ScreenUpdating = False
On Error Resume Next
For r = Range("A:D").Find("*", [A1], , , xlByRows, xlPrevious).Row To
1
Step -1
If Cells(r, 3) = 0 And Cells(r, 4) = 0 Then _
Rows(r).Delete
Next r
End Sub
ChrisV
"gaston" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:14f3201c41985$c925d0e0$a601280a@phx.gbl...
bonjour !
J'ai une liste dans une feuille avec 4 colonnes A B C D. Je
voudrais qu'une macro puisse "scanner" cette liste en
vérifiant les valeurs des colonnes C et D de telle façon à
ce que, si ces colonnes contiennent en même temps sur la
même ligne la valeur 0 , ladite ligne soit supprimée
comment dois-je faire ?
merci d'avance de vos réponses
Hum... un peu "dangereux" si des données sont présentes dans les colonnes E:IV sur les lignes à supprimer en A:D... Il faudra préférer:
Sub supL() Dim r As Long Application.ScreenUpdating = False On Error Resume Next For r = Range("A:D").Find("*", [A1], , , xlByRows, xlPrevious).Row To 1 Step -1 If Cells(r, 3) = 0 And Cells(r, 4) = 0 Then _ Range("A" & r & ":D" & r).Delete shift:=xlUp Next r End Sub
ChrisV
"ChrisV" a écrit dans le message de news:OD%23e%
Bonjour Gaston,
Sub supL() Dim r As Long Application.ScreenUpdating = False On Error Resume Next For r = Range("A:D").Find("*", [A1], , , xlByRows, xlPrevious).Row To 1
Step -1 If Cells(r, 3) = 0 And Cells(r, 4) = 0 Then _ Rows(r).Delete Next r End Sub
ChrisV
"gaston" a écrit dans le message de news:14f3201c41985$c925d0e0$ bonjour ! J'ai une liste dans une feuille avec 4 colonnes A B C D. Je voudrais qu'une macro puisse "scanner" cette liste en vérifiant les valeurs des colonnes C et D de telle façon à ce que, si ces colonnes contiennent en même temps sur la même ligne la valeur 0 , ladite ligne soit supprimée comment dois-je faire ? merci d'avance de vos réponses
gaston
Merci pour tes réponses rapides : j'apprécie beaucoup !
maintenant je vais quand même essayer de comprendre tout ça, au lieu de recopier bêtement ;-)
-----Message d'origine----- Bonjour Gaston,
Sub supL() Dim r As Long Application.ScreenUpdating = False On Error Resume Next For r = Range("A:D").Find("*", [A1], , , xlByRows, xlPrevious).Row To 1
Step -1 If Cells(r, 3) = 0 And Cells(r, 4) = 0 Then _ Rows(r).Delete Next r End Sub
ChrisV
"gaston" a écrit dans le message de
news:14f3201c41985$c925d0e0$ bonjour ! J'ai une liste dans une feuille avec 4 colonnes A B C D. Je
voudrais qu'une macro puisse "scanner" cette liste en vérifiant les valeurs des colonnes C et D de telle façon à ce que, si ces colonnes contiennent en même temps sur la même ligne la valeur 0 , ladite ligne soit supprimée comment dois-je faire ? merci d'avance de vos réponses
.
Merci pour tes réponses rapides : j'apprécie beaucoup !
maintenant je vais quand même essayer de comprendre tout
ça, au lieu de recopier bêtement ;-)
-----Message d'origine-----
Bonjour Gaston,
Sub supL()
Dim r As Long
Application.ScreenUpdating = False
On Error Resume Next
For r = Range("A:D").Find("*", [A1], , , xlByRows,
xlPrevious).Row To 1
Step -1
If Cells(r, 3) = 0 And Cells(r, 4) = 0 Then _
Rows(r).Delete
Next r
End Sub
ChrisV
"gaston" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:14f3201c41985$c925d0e0$a601280a@phx.gbl...
bonjour !
J'ai une liste dans une feuille avec 4 colonnes A B C D.
Je
voudrais qu'une macro puisse "scanner" cette liste en
vérifiant les valeurs des colonnes C et D de telle façon à
ce que, si ces colonnes contiennent en même temps sur la
même ligne la valeur 0 , ladite ligne soit supprimée
comment dois-je faire ?
merci d'avance de vos réponses
Merci pour tes réponses rapides : j'apprécie beaucoup !
maintenant je vais quand même essayer de comprendre tout ça, au lieu de recopier bêtement ;-)
-----Message d'origine----- Bonjour Gaston,
Sub supL() Dim r As Long Application.ScreenUpdating = False On Error Resume Next For r = Range("A:D").Find("*", [A1], , , xlByRows, xlPrevious).Row To 1
Step -1 If Cells(r, 3) = 0 And Cells(r, 4) = 0 Then _ Rows(r).Delete Next r End Sub
ChrisV
"gaston" a écrit dans le message de
news:14f3201c41985$c925d0e0$ bonjour ! J'ai une liste dans une feuille avec 4 colonnes A B C D. Je
voudrais qu'une macro puisse "scanner" cette liste en vérifiant les valeurs des colonnes C et D de telle façon à ce que, si ces colonnes contiennent en même temps sur la même ligne la valeur 0 , ladite ligne soit supprimée comment dois-je faire ? merci d'avance de vos réponses
.
gaston
j'ai essayé la macro, mais il y a un petit souci: elle bloque sur Step erreur de compilation Sub ou Function non définie et je ne trouve pas d'aide suffisamment explicative...
-----Message d'origine----- Hum... un peu "dangereux" si des données sont présentes dans les colonnes E:IV sur
les lignes à supprimer en A:D... Il faudra préférer:
Sub supL() Dim r As Long Application.ScreenUpdating = False On Error Resume Next For r = Range("A:D").Find("*", [A1], , , xlByRows, xlPrevious).Row To 1
Step -1 If Cells(r, 3) = 0 And Cells(r, 4) = 0 Then _ Range("A" & r & ":D" & r).Delete shift:=xlUp Next r End Sub
ChrisV
j'ai essayé la macro, mais il y a un petit souci:
elle bloque sur Step erreur de compilation Sub ou
Function non définie
et je ne trouve pas d'aide suffisamment explicative...
-----Message d'origine-----
Hum...
un peu "dangereux" si des données sont présentes dans les
colonnes E:IV sur
les lignes à supprimer en A:D...
Il faudra préférer:
Sub supL()
Dim r As Long
Application.ScreenUpdating = False
On Error Resume Next
For r = Range("A:D").Find("*", [A1], , , xlByRows,
xlPrevious).Row To 1
Step -1
If Cells(r, 3) = 0 And Cells(r, 4) = 0 Then _
Range("A" & r & ":D" & r).Delete shift:=xlUp
Next r
End Sub
j'ai essayé la macro, mais il y a un petit souci: elle bloque sur Step erreur de compilation Sub ou Function non définie et je ne trouve pas d'aide suffisamment explicative...
-----Message d'origine----- Hum... un peu "dangereux" si des données sont présentes dans les colonnes E:IV sur
les lignes à supprimer en A:D... Il faudra préférer:
Sub supL() Dim r As Long Application.ScreenUpdating = False On Error Resume Next For r = Range("A:D").Find("*", [A1], , , xlByRows, xlPrevious).Row To 1
Step -1 If Cells(r, 3) = 0 And Cells(r, 4) = 0 Then _ Range("A" & r & ":D" & r).Delete shift:=xlUp Next r End Sub
ChrisV
ChrisV
Re,
Et comme ça ?
Sub supL() Dim r As Long Application.ScreenUpdating = False On Error Resume Next For r = Range("A:D").Find("*", [A1], , , xlByRows, _ xlPrevious).Row To 1 Step -1 If Cells(r, 3) = 0 And Cells(r, 4) = 0 Then _ Range("A" & r & ":D" & r).Delete shift:=xlUp Next r End Sub
ChrisV
"gaston" a écrit dans le message de news:1342b01c4198f$95ee59e0$ j'ai essayé la macro, mais il y a un petit souci: elle bloque sur Step erreur de compilation Sub ou Function non définie et je ne trouve pas d'aide suffisamment explicative...
-----Message d'origine----- Hum... un peu "dangereux" si des données sont présentes dans les colonnes E:IV sur
les lignes à supprimer en A:D... Il faudra préférer:
Sub supL() Dim r As Long Application.ScreenUpdating = False On Error Resume Next For r = Range("A:D").Find("*", [A1], , , xlByRows, xlPrevious).Row To 1
Step -1 If Cells(r, 3) = 0 And Cells(r, 4) = 0 Then _ Range("A" & r & ":D" & r).Delete shift:=xlUp Next r End Sub
ChrisV
Re,
Et comme ça ?
Sub supL()
Dim r As Long
Application.ScreenUpdating = False
On Error Resume Next
For r = Range("A:D").Find("*", [A1], , , xlByRows, _
xlPrevious).Row To 1 Step -1
If Cells(r, 3) = 0 And Cells(r, 4) = 0 Then _
Range("A" & r & ":D" & r).Delete shift:=xlUp
Next r
End Sub
ChrisV
"gaston" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:1342b01c4198f$95ee59e0$a001280a@phx.gbl...
j'ai essayé la macro, mais il y a un petit souci:
elle bloque sur Step erreur de compilation Sub ou
Function non définie
et je ne trouve pas d'aide suffisamment explicative...
-----Message d'origine-----
Hum...
un peu "dangereux" si des données sont présentes dans les
colonnes E:IV sur
les lignes à supprimer en A:D...
Il faudra préférer:
Sub supL()
Dim r As Long
Application.ScreenUpdating = False
On Error Resume Next
For r = Range("A:D").Find("*", [A1], , , xlByRows,
xlPrevious).Row To 1
Step -1
If Cells(r, 3) = 0 And Cells(r, 4) = 0 Then _
Range("A" & r & ":D" & r).Delete shift:=xlUp
Next r
End Sub
Sub supL() Dim r As Long Application.ScreenUpdating = False On Error Resume Next For r = Range("A:D").Find("*", [A1], , , xlByRows, _ xlPrevious).Row To 1 Step -1 If Cells(r, 3) = 0 And Cells(r, 4) = 0 Then _ Range("A" & r & ":D" & r).Delete shift:=xlUp Next r End Sub
ChrisV
"gaston" a écrit dans le message de news:1342b01c4198f$95ee59e0$ j'ai essayé la macro, mais il y a un petit souci: elle bloque sur Step erreur de compilation Sub ou Function non définie et je ne trouve pas d'aide suffisamment explicative...
-----Message d'origine----- Hum... un peu "dangereux" si des données sont présentes dans les colonnes E:IV sur
les lignes à supprimer en A:D... Il faudra préférer:
Sub supL() Dim r As Long Application.ScreenUpdating = False On Error Resume Next For r = Range("A:D").Find("*", [A1], , , xlByRows, xlPrevious).Row To 1
Step -1 If Cells(r, 3) = 0 And Cells(r, 4) = 0 Then _ Range("A" & r & ":D" & r).Delete shift:=xlUp Next r End Sub
ChrisV
heu...? je viens d'essayer mais je vois pas bien ce que ça fait...en tous cas, pas ce que je voudrais: voici un extrait de ma liste A B C D 1 06/03/04 BALLIHAUT -130,6 2 03/04/04 BALLIHAUT -130,6 3 16/01/04 DESPERBEN 0 4 12/02/04 DESPERBEN 0 5 27/03/04 LABARERE 200 0 6 31/03/04 LABARERE -200 etc donc dans cet exemple il faudrait que les lignes 3 et 4 soient supprimees (carrément les lignes, pas seulement les cellules)
heu...? je viens d'essayer mais je vois pas bien ce que ça
fait...en tous cas, pas ce que je voudrais:
voici un extrait de ma liste
A B C D
1 06/03/04 BALLIHAUT -130,6
2 03/04/04 BALLIHAUT -130,6
3 16/01/04 DESPERBEN 0
4 12/02/04 DESPERBEN 0
5 27/03/04 LABARERE 200 0
6 31/03/04 LABARERE -200
etc
donc dans cet exemple il faudrait que les lignes 3 et 4
soient supprimees (carrément les lignes, pas seulement les
cellules)
heu...? je viens d'essayer mais je vois pas bien ce que ça fait...en tous cas, pas ce que je voudrais: voici un extrait de ma liste A B C D 1 06/03/04 BALLIHAUT -130,6 2 03/04/04 BALLIHAUT -130,6 3 16/01/04 DESPERBEN 0 4 12/02/04 DESPERBEN 0 5 27/03/04 LABARERE 200 0 6 31/03/04 LABARERE -200 etc donc dans cet exemple il faudrait que les lignes 3 et 4 soient supprimees (carrément les lignes, pas seulement les cellules)
gaston
en fait je n'avais pas essayé la toute première solution et c'est celle qui convient le mieux ! merci de ton aide précieuse et excuse moi de t'avoir fait perdre du temps
en fait je n'avais pas essayé la toute première solution
et c'est celle qui convient le mieux !
merci de ton aide précieuse et excuse moi de t'avoir fait
perdre du temps
en fait je n'avais pas essayé la toute première solution et c'est celle qui convient le mieux ! merci de ton aide précieuse et excuse moi de t'avoir fait perdre du temps
ChrisV
Non problemo Gaston... ;-)
ChrisV
"gaston" a écrit dans le message de news:14fb101c4199c$54f65980$ en fait je n'avais pas essayé la toute première solution et c'est celle qui convient le mieux ! merci de ton aide précieuse et excuse moi de t'avoir fait perdre du temps
Non problemo Gaston... ;-)
ChrisV
"gaston" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:14fb101c4199c$54f65980$a601280a@phx.gbl...
en fait je n'avais pas essayé la toute première solution
et c'est celle qui convient le mieux !
merci de ton aide précieuse et excuse moi de t'avoir fait
perdre du temps
"gaston" a écrit dans le message de news:14fb101c4199c$54f65980$ en fait je n'avais pas essayé la toute première solution et c'est celle qui convient le mieux ! merci de ton aide précieuse et excuse moi de t'avoir fait perdre du temps
ChrisV
Bonjour
Pas sûr d'avoir bien saisi, mais si la condition est: "supprimer les lignes du tableau dont le contenu de la colonne C est égal à 0:
Sub supL0() Dim r As Long Application.ScreenUpdating = False On Error Resume Next For r = Range("A:D").Find("*", [A1], , , xlByRows, _ xlPrevious).Row To 1 Step -1 If Cells(r, 3) = 0 Then _ Rows(r).Delete Next r End Sub
ChrisV
a écrit dans le message de news:17b7001c41999$601053f0$ heu...? je viens d'essayer mais je vois pas bien ce que ça fait...en tous cas, pas ce que je voudrais: voici un extrait de ma liste A B C D 1 06/03/04 BALLIHAUT -130,6 2 03/04/04 BALLIHAUT -130,6 3 16/01/04 DESPERBEN 0 4 12/02/04 DESPERBEN 0 5 27/03/04 LABARERE 200 0 6 31/03/04 LABARERE -200 etc donc dans cet exemple il faudrait que les lignes 3 et 4 soient supprimees (carrément les lignes, pas seulement les cellules)
Bonjour
Pas sûr d'avoir bien saisi, mais si la condition est: "supprimer les lignes
du tableau dont le contenu de la colonne C est égal à 0:
Sub supL0()
Dim r As Long
Application.ScreenUpdating = False
On Error Resume Next
For r = Range("A:D").Find("*", [A1], , , xlByRows, _
xlPrevious).Row To 1 Step -1
If Cells(r, 3) = 0 Then _
Rows(r).Delete
Next r
End Sub
ChrisV
<anonymous@discussions.microsoft.com> a écrit dans le message de
news:17b7001c41999$601053f0$a301280a@phx.gbl...
heu...? je viens d'essayer mais je vois pas bien ce que ça
fait...en tous cas, pas ce que je voudrais:
voici un extrait de ma liste
A B C D
1 06/03/04 BALLIHAUT -130,6
2 03/04/04 BALLIHAUT -130,6
3 16/01/04 DESPERBEN 0
4 12/02/04 DESPERBEN 0
5 27/03/04 LABARERE 200 0
6 31/03/04 LABARERE -200
etc
donc dans cet exemple il faudrait que les lignes 3 et 4
soient supprimees (carrément les lignes, pas seulement les
cellules)
Pas sûr d'avoir bien saisi, mais si la condition est: "supprimer les lignes du tableau dont le contenu de la colonne C est égal à 0:
Sub supL0() Dim r As Long Application.ScreenUpdating = False On Error Resume Next For r = Range("A:D").Find("*", [A1], , , xlByRows, _ xlPrevious).Row To 1 Step -1 If Cells(r, 3) = 0 Then _ Rows(r).Delete Next r End Sub
ChrisV
a écrit dans le message de news:17b7001c41999$601053f0$ heu...? je viens d'essayer mais je vois pas bien ce que ça fait...en tous cas, pas ce que je voudrais: voici un extrait de ma liste A B C D 1 06/03/04 BALLIHAUT -130,6 2 03/04/04 BALLIHAUT -130,6 3 16/01/04 DESPERBEN 0 4 12/02/04 DESPERBEN 0 5 27/03/04 LABARERE 200 0 6 31/03/04 LABARERE -200 etc donc dans cet exemple il faudrait que les lignes 3 et 4 soient supprimees (carrément les lignes, pas seulement les cellules)
gee-dee-
Bonsoir, Sub Macro1() Range("C2").Select 'Selection.AutoFilter Selection.AutoFilter Field:=3, Criteria1:="0" Selection.AutoFilter Field:=4, Criteria1:="0" Set tbl = ActiveCell.CurrentRegion tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, tbl.Columns.Count).Select Selection.Rows.Delete Selection.AutoFilter End Sub
Non ???
j'ai aidé, G&D geedee.... ;-)))
"gaston" a écrit dans le message de news:14f3201c41985$c925d0e0$ bonjour ! J'ai une liste dans une feuille avec 4 colonnes A B C D. Je voudrais qu'une macro puisse "scanner" cette liste en vérifiant les valeurs des colonnes C et D de telle façon à ce que, si ces colonnes contiennent en même temps sur la même ligne la valeur 0 , ladite ligne soit supprimée comment dois-je faire ? merci d'avance de vos réponses
Bonsoir,
Sub Macro1()
Range("C2").Select
'Selection.AutoFilter
Selection.AutoFilter Field:=3, Criteria1:="0"
Selection.AutoFilter Field:=4, Criteria1:="0"
Set tbl = ActiveCell.CurrentRegion
tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, tbl.Columns.Count).Select
Selection.Rows.Delete
Selection.AutoFilter
End Sub
Non ???
j'ai aidé, G&D geedee....
;-)))
"gaston" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:14f3201c41985$c925d0e0$a601280a@phx.gbl...
bonjour !
J'ai une liste dans une feuille avec 4 colonnes A B C D. Je
voudrais qu'une macro puisse "scanner" cette liste en
vérifiant les valeurs des colonnes C et D de telle façon à
ce que, si ces colonnes contiennent en même temps sur la
même ligne la valeur 0 , ladite ligne soit supprimée
comment dois-je faire ?
merci d'avance de vos réponses
Bonsoir, Sub Macro1() Range("C2").Select 'Selection.AutoFilter Selection.AutoFilter Field:=3, Criteria1:="0" Selection.AutoFilter Field:=4, Criteria1:="0" Set tbl = ActiveCell.CurrentRegion tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, tbl.Columns.Count).Select Selection.Rows.Delete Selection.AutoFilter End Sub
Non ???
j'ai aidé, G&D geedee.... ;-)))
"gaston" a écrit dans le message de news:14f3201c41985$c925d0e0$ bonjour ! J'ai une liste dans une feuille avec 4 colonnes A B C D. Je voudrais qu'une macro puisse "scanner" cette liste en vérifiant les valeurs des colonnes C et D de telle façon à ce que, si ces colonnes contiennent en même temps sur la même ligne la valeur 0 , ladite ligne soit supprimée comment dois-je faire ? merci d'avance de vos réponses