Microsoft 365 suppression de plusieurs lignes dans des tableaux tres grands

[cecilette]

Bonjour,

un de mes tableurs contenant plusieurs tableaux sur des onglets différents me pose un souci

chaque tableau contient plus de 17000 lignes, je dois filtrer les données et supprimer certaines de ces données.

par exemple : dans le 1er tableau qui contient 17352, j'ai trié la donnée à supprimer ça représente 13587 lignes

je voudrais savoir s'il existe un moyen de sélectionner ces données en un clic pour les supprimer sans devoir sélectionner manuellement les lignes car ça prend un temps infini.

d'avance, je vous remercie pour l'aide que vous m'apporterez.
C.

 

[chris]

Bonjour
Si c'est un tableau structuré il suffit de cliquer sur le titre d'une colonne, puis clic droit sur une des lignes et supprimer (ligne entière ou ligne de tableau)
Sinon cliquer sur une cellule de la ligne située sous le titre, CRTL Shift Bas, et clic droit supprimer ligne

 

[chris]

RE

Bonjour cecilette

ce que me donne ChatGpt comme solutions !

Attention CTRL A va aussi sélectionner et donc supprimer la ligne de titre (elle fait partie des lignes visibles...)

 

[cecilette]

Merci à tous pour votre aide
Il me reste plus qu'à tester tout ça 😃

 

[Nain porte quoi]

@ChTi160 juste une question, à quoi ça sert de s'adresser à un forum (d'humains) pour avoir des réponses d'IA (Idiotie Avérée) ?
Si encore vous les testiez (et là vous vous seriez aperçu d'une "hallucination", une de plus) et la corrigiez pourquoi pas, mais si c'est juste pour faire un copier/coller, autant dire "allez donc poser la question à une idiotie avérée" et fermez tous les forums humains

Ca me ramène quelques années en arrière où la réponse favorites de ceux qui voulaient juste répondre pour répondre était "google est ton amis" sans aucune utilité

La réponse de @chris est quand même plus censé que celles du "chat qui pète" (merci humain Chis 😉)

 

[ChTi160]

Bonjour ,
Effectivement , c'est n'importe quoi ! Lol
J'ai réparé !
Bonne journée
Jean marie

 

[job75]

Bonjour le forum,

C'est classique : si la plage des lignes à supprimer est constituée d'un grand nombre (plusieurs milliers) de lignes disjointes leur suppression peut prendre beaucoup de temps.

Pour y remédier il faut utiliser une colonne auxiliaire avec une formule de filtrage suivie d'un tri sur les valeurs pour regrouper.

Il y a pas mal d'exemples sur ce forum.

A+

 

[fanch55]

Bonjour à tous,
En supposant qu'on travaille avec des tables structurées, un exemple ci joint
Nota: s'il y a plus d'une table ou d'autres données sur la feuille, seules les lignes de la table concernée sont supprimées

Spoiler: Code pour les curieux

Option Explicit
Sub Filter_Delete()
Dim Lignes As Variant, L As Long
Application.ScreenUpdating = False

    With [Tableau1[#Data]]
        .Parent.Activate
       ' on garde en  colonne 1 les éléments finissants par 5
        .AutoFilter Field:=1, Criteria1:="=*5"
        On Error Resume Next
       ' on récupère les adresses des lignes filtrées
        Lignes = Split(.SpecialCells(xlCellTypeVisible).Address, ",")
        If Err = 0 Then ' si le filtre affiche des lignes, on va les supprimer
            ' on enlève les filtres
             .AutoFilter Field:=1
            ' les adresses ayant de fortes chances de représenter des plages non jointives
            ' on va les détruires 1 par 1 en commençant par la fin
             For L = UBound(Lignes) To 0 Step -1
                 Range(Lignes(L)).Delete
             Next
        End If
    End With
End Sub
Sub Restore()
    With [Tableau1[#Data]]
        .AutoFilter Field:=1
        .Delete
        .Resize([Tableau13[#Data]].Rows.Count).Value = [Tableau13[#Data]].Value
    End With
End Sub