Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel VBA Supprimer les lignes filtrées - Excel 2000

VBA Supprimer les lignes filtrées - Excel 2000

6 réponses
Avatar
Céline Brien
Bonjour à tous,
Dans la colonne A des noms de projets.
Je voudrais supprimer les lignes de certains projets.
Les codes ci-dessous font le travail, mais le traitement est long !
Avez-vous d'autres suggestions pour supprimer des lignes filtrées ?
Merci de votre aide,
Céline

' Filtrer et supprimer les lignes du projet Abitibi
Selection.AutoFilter Field:=1, Criteria1:="Abitibi", Operator:=xlAnd
For i = Range("A65536").End(xlUp).Row To 2 Step -1
If Rows(i).Hidden = False Then Rows(i).Delete Shift:=xlUp
Next
Signaler un problème avec ce contenu

6 réponses

Supprimer
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
Avatar
ru-th
Salut Céline

[A1].AutoFilter Field:=1, Criteria1:="Abitibi", _ Operator:=xlAnd
Range("a2:a" & Range("a65536").End(xlUp). _
Row).SpecialCells(xlCellTypeVisible).EntireRow.Delete

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Céline Brien" a écrit dans le message de
news:
Bonjour à tous,
Dans la colonne A des noms de projets.
Je voudrais supprimer les lignes de certains projets.
Les codes ci-dessous font le travail, mais le traitement est long !
Avez-vous d'autres suggestions pour supprimer des lignes filtrées ?
Merci de votre aide,
Céline

' Filtrer et supprimer les lignes du projet Abitibi
Selection.AutoFilter Field:=1, Criteria1:="Abitibi", Operator:=xlAnd
For i = Range("A65536").End(xlUp).Row To 2 Step -1
If Rows(i).Hidden = False Then Rows(i).Delete Shift:=xlUp
Next




Avatar
ru-th
Ben
en prenant à partir de A2, cela devrait le faire correctement, enfin
d'après mes tests (qui comprennent un certain degré d'errastisme) ;-))

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"michdenis" a écrit dans le message de news:
#
Bonjour Thierry,

Es-tu sûr que la ligne d'étiquettes des colonnes ne disparaîtront pas avec
les données inutiles ?


;-)


Salutations!


"ru-th" a écrit dans le message de
news:%23xFs$

Salut Céline

[A1].AutoFilter Field:=1, Criteria1:="Abitibi", _ Operator:=xlAnd
Range("a2:a" & Range("a65536").End(xlUp). _
Row).SpecialCells(xlCellTypeVisible).EntireRow.Delete

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Céline Brien" a écrit dans le message de
news:
Bonjour à tous,
Dans la colonne A des noms de projets.
Je voudrais supprimer les lignes de certains projets.
Les codes ci-dessous font le travail, mais le traitement est long !
Avez-vous d'autres suggestions pour supprimer des lignes filtrées ?
Merci de votre aide,
Céline

' Filtrer et supprimer les lignes du projet Abitibi
Selection.AutoFilter Field:=1, Criteria1:="Abitibi", Operator:=xlAnd
For i = Range("A65536").End(xlUp).Row To 2 Step -1
If Rows(i).Hidden = False Then Rows(i).Delete Shift:=xlUp
Next









Avatar
Céline Brien
Bonjour à tous,
Bonjour Thierry,
SUPER ! SUPER ! Je suis effectivement très contente !
J'ai dû changer quelques détails. Mon Excel ne savait que faire avec
[A1] au début de la ligne AutoFilter. Voir Codes modifiés ci-dessous.
Pourrais-tu m'expliquer cette partie de la ligne Range : ("a2:a" &
Range("a65536").End(xlUp).Row) ?
Je pourrais adapter a2 pour a6 si nécessaire ?
Merci beaucoup beaucoup !
Céline
------------------------------------------------------------------------
----------
Codes modifiés
------------------------------------------------
Range("A1").Select
Selection.AutoFilter Field:=1, Criteria1:="Abitibi", Operator:=xlAnd
Range("a2:a" &
Range("a65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible).EntireRow
.Delete
------------------------------------------------------------------------
----------
"ru-th" a écrit dans le message de news:
#xFs$
Salut Céline

[A1].AutoFilter Field:=1, Criteria1:="Abitibi", _ Operator:=xlAnd
Range("a2:a" & Range("a65536").End(xlUp). _
Row).SpecialCells(xlCellTypeVisible).EntireRow.Delete

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Céline Brien" a écrit dans le message
de

news:
Bonjour à tous,
Dans la colonne A des noms de projets.
Je voudrais supprimer les lignes de certains projets.
Les codes ci-dessous font le travail, mais le traitement est long !
Avez-vous d'autres suggestions pour supprimer des lignes filtrées ?
Merci de votre aide,
Céline

' Filtrer et supprimer les lignes du projet Abitibi
Selection.AutoFilter Field:=1, Criteria1:="Abitibi",
Operator:=xlAnd


For i = Range("A65536").End(xlUp).Row To 2 Step -1
If Rows(i).Hidden = False Then Rows(i).Delete Shift:=xlUp
Next








Avatar
Jean-François Aubert
Bonjour Céline,

Thierry étant peut-être occupé à choyer ses succulents broutards,
je me permets de te répondre.

("a2:a" & Range("a65536").End(xlUp).Row)


(plage qui va de A2 à la première ligne renseignée en partant des abysses de la colonne A)


Je pourrais adapter a2 pour a6 si nécessaire ?


oui,
("a6:a" & Range("a65536").End(xlUp).Row)
(plage qui va de A6 à la première ligne renseignée en partant des abysses de la colonne A)

--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Céline Brien" a écrit dans le message de
news:
Bonjour à tous,
Bonjour Thierry,
SUPER ! SUPER ! Je suis effectivement très contente !
J'ai dû changer quelques détails. Mon Excel ne savait que faire avec
[A1] au début de la ligne AutoFilter. Voir Codes modifiés ci-dessous.
Pourrais-tu m'expliquer cette partie de la ligne Range : ("a2:a" &
Range("a65536").End(xlUp).Row) ?
Je pourrais adapter a2 pour a6 si nécessaire ?
Merci beaucoup beaucoup !
Céline
------------------------------------------------------------------------
----------
Codes modifiés
------------------------------------------------
Range("A1").Select
Selection.AutoFilter Field:=1, Criteria1:="Abitibi", Operator:=xlAnd
Range("a2:a" &
Range("a65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible).EntireRow
.Delete
------------------------------------------------------------------------
----------
"ru-th" a écrit dans le message de news:
#xFs$
Salut Céline

[A1].AutoFilter Field:=1, Criteria1:="Abitibi", _ Operator:=xlAnd
Range("a2:a" & Range("a65536").End(xlUp). _
Row).SpecialCells(xlCellTypeVisible).EntireRow.Delete

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Céline Brien" a écrit dans le message
de

news:
Bonjour à tous,
Dans la colonne A des noms de projets.
Je voudrais supprimer les lignes de certains projets.
Les codes ci-dessous font le travail, mais le traitement est long !
Avez-vous d'autres suggestions pour supprimer des lignes filtrées ?
Merci de votre aide,
Céline

' Filtrer et supprimer les lignes du projet Abitibi
Selection.AutoFilter Field:=1, Criteria1:="Abitibi",
Operator:=xlAnd


For i = Range("A65536").End(xlUp).Row To 2 Step -1
If Rows(i).Hidden = False Then Rows(i).Delete Shift:=xlUp
Next











Avatar
Céline Brien
Bonjour à tous,
Bonjour Jean-François,
Merci de ta réponse.
("a2:a" & Range("a65536").End(xlUp).Row)
En somme ces codes sélectionnent les lignes filtrées en partant de A2
jusqu'à la dernière ligne non vide. La dernière ligne non vide est
trouvée en partant de A65536 et en remontant.
C'est vraiment incroyable tout ce que l'on peut faire avec VBA !
Avec le temps, j'ai espoir de sortir des abysses de l'ignorance et vous
retrouver dans la lumière de la connaissance !
Merci encore et bon dimanche,
Céline

"Jean-François Aubert" <à a écrit dans le
message de news: 3f633832$
Bonjour Céline,

Thierry étant peut-être occupé à choyer ses succulents broutards,
je me permets de te répondre.

("a2:a" & Range("a65536").End(xlUp).Row)


(plage qui va de A2 à la première ligne renseignée en partant des
abysses de la colonne A)



Je pourrais adapter a2 pour a6 si nécessaire ?


oui,
("a6:a" & Range("a65536").End(xlUp).Row)
(plage qui va de A6 à la première ligne renseignée en partant des
abysses de la colonne A)


--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Céline Brien" a écrit dans le message
de

news:
Bonjour à tous,
Bonjour Thierry,
SUPER ! SUPER ! Je suis effectivement très contente !
J'ai dû changer quelques détails. Mon Excel ne savait que faire avec
[A1] au début de la ligne AutoFilter. Voir Codes modifiés
ci-dessous.


Pourrais-tu m'expliquer cette partie de la ligne Range : ("a2:a" &
Range("a65536").End(xlUp).Row) ?
Je pourrais adapter a2 pour a6 si nécessaire ?
Merci beaucoup beaucoup !
Céline


----------------------------------------------------------------------
--

----------
Codes modifiés
------------------------------------------------
Range("A1").Select
Selection.AutoFilter Field:=1, Criteria1:="Abitibi", Operator:=xlAnd
Range("a2:a" &

Range("a65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible).EntireRow


.Delete


----------------------------------------------------------------------
--

----------
"ru-th" a écrit dans le message de news:
#xFs$
Salut Céline

[A1].AutoFilter Field:=1, Criteria1:="Abitibi", _ Operator:=xlAnd
Range("a2:a" & Range("a65536").End(xlUp). _
Row).SpecialCells(xlCellTypeVisible).EntireRow.Delete

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Céline Brien" a écrit dans le
message



de
news:
Bonjour à tous,
Dans la colonne A des noms de projets.
Je voudrais supprimer les lignes de certains projets.
Les codes ci-dessous font le travail, mais le traitement est
long !




Avez-vous d'autres suggestions pour supprimer des lignes
filtrées ?




Merci de votre aide,
Céline

' Filtrer et supprimer les lignes du projet Abitibi
Selection.AutoFilter Field:=1, Criteria1:="Abitibi",
Operator:=xlAnd


For i = Range("A65536").End(xlUp).Row To 2 Step -1
If Rows(i).Hidden = False Then Rows(i).Delete Shift:=xlUp
Next















Avatar
Jean-François Aubert
Très heureux si cela a pu t'aider.

--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Céline Brien" a écrit dans le message de
news:
Bonjour à tous,
Bonjour Jean-François,
Merci de ta réponse.
("a2:a" & Range("a65536").End(xlUp).Row)
En somme ces codes sélectionnent les lignes filtrées en partant de A2
jusqu'à la dernière ligne non vide. La dernière ligne non vide est
trouvée en partant de A65536 et en remontant.
C'est vraiment incroyable tout ce que l'on peut faire avec VBA !
Avec le temps, j'ai espoir de sortir des abysses de l'ignorance et vous
retrouver dans la lumière de la connaissance !
Merci encore et bon dimanche,
Céline