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
Daniel
Bonsoir. Essaie ce code à aménager suivant tes données.
Sub test() Dim Plage As Range, c As Range Set Plage = Range("A1:A50").SpecialCells(xlCellTypeVisible) For Each c In Plage c.EntireRow.Delete Next c End Sub
Cordialement. Daniel "Philippe de PARIS" a écrit dans le message de news:
Bonjour
Ce doit être tout simple, mais je trébuche !
J'ai des données sur les lignes 10 à 50... Comment supprimer par macro les lignes visibles suite à filtrage ?
merci de votre aide
Phil.
Bonsoir.
Essaie ce code à aménager suivant tes données.
Sub test()
Dim Plage As Range, c As Range
Set Plage = Range("A1:A50").SpecialCells(xlCellTypeVisible)
For Each c In Plage
c.EntireRow.Delete
Next c
End Sub
Cordialement.
Daniel
"Philippe de PARIS" <philippe.geainospamsvp@laposte.net> a écrit dans le
message de news: OHn7RSFoFHA.2472@TK2MSFTNGP15.phx.gbl...
Bonjour
Ce doit être tout simple, mais je trébuche !
J'ai des données sur les lignes 10 à 50...
Comment supprimer par macro les lignes visibles suite à filtrage ?
Bonsoir. Essaie ce code à aménager suivant tes données.
Sub test() Dim Plage As Range, c As Range Set Plage = Range("A1:A50").SpecialCells(xlCellTypeVisible) For Each c In Plage c.EntireRow.Delete Next c End Sub
Cordialement. Daniel "Philippe de PARIS" a écrit dans le message de news:
Bonjour
Ce doit être tout simple, mais je trébuche !
J'ai des données sur les lignes 10 à 50... Comment supprimer par macro les lignes visibles suite à filtrage ?
merci de votre aide
Phil.
Philippe de PARIS
MERCI DANIEL
merci de ton aide, ça marche !
Cordialement,
Philippe
"Daniel" a écrit dans le message de news: %
Bonsoir. Essaie ce code à aménager suivant tes données.
Sub test() Dim Plage As Range, c As Range Set Plage = Range("A1:A50").SpecialCells(xlCellTypeVisible) For Each c In Plage c.EntireRow.Delete Next c End Sub
Cordialement. Daniel "Philippe de PARIS" a écrit dans le message de news:
Bonjour
Ce doit être tout simple, mais je trébuche !
J'ai des données sur les lignes 10 à 50... Comment supprimer par macro les lignes visibles suite à filtrage ?
merci de votre aide
Phil.
MERCI DANIEL
merci de ton aide, ça marche !
Cordialement,
Philippe
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23VFGgfFoFHA.3300@TK2MSFTNGP15.phx.gbl...
Bonsoir.
Essaie ce code à aménager suivant tes données.
Sub test()
Dim Plage As Range, c As Range
Set Plage = Range("A1:A50").SpecialCells(xlCellTypeVisible)
For Each c In Plage
c.EntireRow.Delete
Next c
End Sub
Cordialement.
Daniel
"Philippe de PARIS" <philippe.geainospamsvp@laposte.net> a écrit dans le
message de news: OHn7RSFoFHA.2472@TK2MSFTNGP15.phx.gbl...
Bonjour
Ce doit être tout simple, mais je trébuche !
J'ai des données sur les lignes 10 à 50...
Comment supprimer par macro les lignes visibles suite à filtrage ?
Bonsoir. Essaie ce code à aménager suivant tes données.
Sub test() Dim Plage As Range, c As Range Set Plage = Range("A1:A50").SpecialCells(xlCellTypeVisible) For Each c In Plage c.EntireRow.Delete Next c End Sub
Cordialement. Daniel "Philippe de PARIS" a écrit dans le message de news:
Bonjour
Ce doit être tout simple, mais je trébuche !
J'ai des données sur les lignes 10 à 50... Comment supprimer par macro les lignes visibles suite à filtrage ?
merci de votre aide
Phil.
AV
Histoire de... Il n'est pas du tout nécessaire de boucler sur chaque cellule de la plage :