Filtre et delete

Version imprimable

Filtre et delete

Bonjour,

Je m'explique, j'ai dans différentes colonnes des cellules avec certaines valeurs. Et je souhaiterais supprimer la ligne correspondant à la cellule qui contient la valeur. J'utilise cette macro mais en vain, ça me supprime quelques valeurs et je dois la refaire pour supprimer encore d'autres ainsi de suite. Pour info des cellules vides existent dans les colonnes.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub supprime_CB()
With Range(Range("DQ2"), Range("DQ65536"))
      .AutoFilter Field:=1, Criteria1:="DRR00"
      .SpecialCells(xlCellTypeVisible).EntireRow.Delete
      .AutoFilter Field:=1, Criteria1:="DAV10"
      .SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
 
 
With Range(Range("DR2"), Range("DR65536"))
      .AutoFilter Field:=1, Criteria1:="DRR00"
      .SpecialCells(xlCellTypeVisible).EntireRow.Delete
      .AutoFilter Field:=1, Criteria1:="DAV10"
      .SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
With Range(Range("DS2"), Range("DS65536"))
      .AutoFilter Field:=1, Criteria1:="DRR00"
      .SpecialCells(xlCellTypeVisible).EntireRow.Delete
      .AutoFilter Field:=1, Criteria1:="DAV10"
      .SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
With Range(Range("DT2"), Range("DT65536"))
      .AutoFilter Field:=1, Criteria1:="DRR00"
      .SpecialCells(xlCellTypeVisible).EntireRow.Delete
      .AutoFilter Field:=1, Criteria1:="DAV10"
      .SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
With Range(Range("DU2"), Range("DU65536"))
      .AutoFilter Field:=1, Criteria1:="DRR00"
      .SpecialCells(xlCellTypeVisible).EntireRow.Delete
      .AutoFilter Field:=1, Criteria1:="DAV10"
      .SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
End Sub

Je comprend pas tout à fait ce que tu veux.

Si tu cherche une valeur dans une cellule dans une plage donnée on peut procéder ainsi:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub DeleteRows()
    Dim valeur As String
    valeur = "la valeur a cherché"
 
    Dim i As Long, j As Long
    i = 1
    While i <= Range("A1").End(xlDown).Row  'on parcourt les ligne de ta plage
        For j = 1 To 9 'on parcourt les colonnes de ta plage
            'Range("A1").End(xlDown) parcourt tes cellules vers le bas en partant de A1 et s'arrête
            'à la dernière cellule non vide, donc place toi dans une colonne sans vides (A1 ou B1 ou etc.)
            Cells(i, j).Select
            If Cells(i, j) = valeur Then
                Rows(i).Delete 'on supprime la ligne
                GoTo PasDeSaut   ' ne pas oublier cette ligne car en supprimant une ligne on a décalé les suivantes vers le haut
                                 ' sans ça tu ne parcourera pas une ligne
                                 ' on sort du parcours des colonnes pour recommencer à la première, continuer n'aurait aucun sens
                                 ' car ce n'est plus la même ligne vu qu'on l'a supprimer, et on va la réanalyser ensuite
            End If
        Next j
        i = i + 1 ' ligne suivante, on atteind cette ligne uniquement si la valeur n'a pas été trouvé dans la ligne
PasDeSaut:
    Wend
End Sub

DeathZarakai

P.S.: Le For Each j'ai essayé sa n'analyse pas certaines cellules suite à un delete
P.S. 2: S'il y a mieux ou plus rapide je suis intéressé des retours
P.S. 3: Si tu as des questions hésite pas j'y répondrais mais ta requête est pas super précise, je rappelle qu'il est préférable de tester une macro sur une copie pour éviter les pertes de données.

03/05/2016, 15h44
Kiouane

Justement j'utilisais le End(xlDown) mais vu que j'ai des cellules vides au milieu de mes colonnes ça ne sert à rien, il faudrait plutôt parcourir toute la colonne.

Pour être plus précis: J'ai des colonnes supposant A, B, et C qui contiennent différentes valeurs. Parmi ces valeurs : il y a quelques unes, par exemple "x", dont je voudrais supprimer toute la ligne.
03/05/2016, 15h53
DeathZarakai

Dans le cas de cellules vide dans toutes les colonnes, tu peux ajouter un crampon d'arrêt à la fin du tableau (ex: tu écris "fin") tu utilises la formule :

Code:

Range("A60000").End(xlUp).Row - 1

Cette formulation donnera la ligne où fin est noté (à compter qu'elle est dans la colonne A on est d'accord) d'où le "-1" pour bien avoir le numéro de la dernière ligne.

DeathZarakai.
03/05/2016, 15h56
Kiouane

Peut-tu être plus clair? Sinon est ce que j'ai bien précisé cette fois le but de ma macro?

Tu veux dire je remplace dans le while i?
03/05/2016, 16h08
DeathZarakai

1 pièce(s) jointe(s)

De ce que j'en ai compris tu parcours l'entièreté du tableau et supprimer les lignes où une certaine expression est présente.

Plus explicite bien sur, la formule que je t'ai donné parcours les lignes vers le haut et du coup s'arrêtera sur la première cellule non vide.
D'où la proposition de rajouter une "cellule fin".

Pièce jointe 208637

Ainsi la formule remontera et s'arrêtera sur le "fin" ligne 17 dans mon exemple. C'est une astuce que j'utilise lorsque mon tableau contient des vides.

Une autre solution serait de nommé une case la ligne après la dernière ligne : ex: "FinTab"

Et tu pourras ainsi faire un While i < Range("FinTab").Row

Si je n'ai toujours pas compris ta requête ou me suis mal expliqué je m'en excuse une nouvelle fois.

DeathZarakai.

En effet, quand je te disais que mon tableau contient des cases vides, elles ne sont pas regroupées à la fin mais un peu partout dispersées sur la colonne. Donc tu peux tomber sur une cellule remplie puis une vide puis une autre remplie (c'est une extraction d'un logiciel). Du coup j'ai un peu réfléchi sur une solution plus adéquate à mon problème.

Voilà la solution qui me convient bien que ça prends pas mal de temps. Du coup si quelqu'un connait un moyen plus rapide, je suis preneur.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Sub CB() Do If Cells.Find(What:="DRROO") Is Nothing Then Exit Do Else Cells.Find(What:="DRROO").Activate Selection.EntireRow.Delete End If Loop Do If Cells.Find(What:="DAV10") Is Nothing Then Exit Do Else Cells.Find(What:="DAV10").Activate Selection.EntireRow.Delete End If Loop End Sub

04/05/2016, 09h49
Promethee25
Bonjour,

Déjà, tu vas gagner du temps en remplaçant ce code:
Code:

1 2 Cells.Find(What:="DRROO").Activate Selection.EntireRow.Delete
par celui-là:

Code:

Cells.Find(What:="DRROO").EntireRow.Delete

Tu peux aussi désactiver le rafraîchissement de l'affichage et des calculs le temps de l'exécution (à réactiver à la fin):
Code:

1 2 Application.Calculation = xlCalculationManual Application.ScreenUpdating = False
Si ça ne suffit pas, peux-tu dire si le fichier extrait de ton logiciel est un csv ou un fichier xls/xlsx/xlsm?
Avec un csv, tu pourrais le traiter en mode texte avec des expressions régulières, ça devrait être immédiat (voire 2-3s si très gros fichier de plusieurs dizaines de milliers de lignes).
04/05/2016, 09h55
Kiouane

Merci pour ta réponse, c'est un .xls. Et je voudrais juste préciser que je cherche à le faire juste sur 5 colonnes successives, DQ, DR, DS, DT, DU. Mais j'ai essayé de le restreindre à ces dernières avec la méthode que j'ai posté avant mais en vain.
04/05/2016, 10h08
Promethee25

Rien de plus simple:

Code:

Range("DQ:DU").Find(What:="DRROO").EntireRow.Delete
04/05/2016, 10h22
Kiouane

En effet avec ton application.update, c'est beaucoup plus vite. Merci beaucoup j'ai eu ce que je cherchais.