Discussion :

[antonysansh]

Bonjour à tous

Dans le cadre de mon travail, je suis amené à faire souvent une même opération qui consiste a supprimer certaines lignes d'une base de données dans le but d'alléger celle-ci. (~3000 lignes pour 70 colonnes)

Je procède toujours de la même façon, je filtre sur les lignes que je veux garder histoire de les visualiser pour ne pas en oublier ou en avoir des superflus.
Ensuite j’enlevé les filtres et re filtre sur les autres lignes pour ensuite les supprimer.

C'est quand même dommage d'avoir les lignes qu'on veut et de devoir refaire une manipulation pour supprimer les autres.
Donc je me suis créé une macro qui va simplement supprimer les lignes masqué.
Voilà le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Supprimer_Lignes_Masquees()
 
    Application.ScreenUpdating = False
 
        Dim plage As Range: Set plage = [A2].CurrentRegion
        Dim i&, j&: j = plage.Cells(plage.Cells.Count).Row
 
        For i = j To 3 Step -1
            If Rows(i).Hidden = True Then Rows(i).Delete
        Next i
 
    Application.ScreenUpdating = True
 
End Sub

Je vous expose maintenant mon problème, certains l'auront sûrement deviné en lisant le code, cette proc est très long à s'exécuter.
Si je pouvais sélectionner toutes les lignes Hidden et ensuite les supprimer d'un seul Delete se serais parfait.

J'espère être clair.
Merci d'avance à tous ceux qui prendront le temps de m'aider

[vinc_bilb]

Bonjour,

Je vous suggère de faire le contraire:
- vous affichez d'abord toutes les lignes que vous voulez supprimer
- vous passer par le Range.SpecialCells.xlCellTypeVisible et vous pouvez tout supprimer une 1 passe rapide
- vous affichez ce qui reste ensuite

Et je vous assure que c'est quasiment instantané
Si cela peut vous aider ....

[gnain]

Si je pouvais sélectionner toutes les lignes Hidden et ensuite les supprimer d'un seul Delete se serais parfait.

sans VBA il y a un outil très puissant qui fait ça va voir ce lien
http://www.extendoffice.com/document...s-columns.html

[antonysansh]

Merci a vous deux pour vos réponses

Bonjour,

Je vous suggère de faire le contraire:
- vous affichez d'abord toutes les lignes que vous voulez supprimer
- vous passer par le Range.SpecialCells.xlCellTypeVisible et vous pouvez tout supprimer une 1 passe rapide
- vous affichez ce qui reste ensuite

Et je vous assure que c'est quasiment instantané
Si cela peut vous aider ....

C'est déjà ce que je fais manuellement et c'est effectivement instantané.
C'est juste qu'une fois choisi les lignes que je veux garder je dois refaire une manipulation et parfois je me trompe

sans VBA il y a un outil très puissant qui fait ça va voir ce lien
http://www.extendoffice.com/document...s-columns.html

Waouh !
C'est puissant ça, je ne connaissais pas du tout !
Un grand ça répond exactement à mon besoin et même pas besoin de VB

Encore merci ! c'est