Discussion :

[Kiouane]

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 :

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

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

[DeathZarakai]

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 :

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

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.

[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.

[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 :

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

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.

[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?

[DeathZarakai]

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".



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.