Discussion :

[ketipo]

Bonjour à tous,

Je suis débutant sur VBA, et je pense que la solution est simple.

En fait, j'ai une feuille de données comme cela :
CODE|REG|DEP|QTE
2103|40|35|20
2104|52|27|36
2105|68|40|19
...

Avec des dizaines de milliers de lignes.

Je souhaite ne garder que les lignes dont le code est, par exemple, "2104" et "2119".

J'ai trouvé le code ci-dessous sur un autre site :

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
Sub selection()
 
Dim i As Integer
With ThisWorkbook.Sheets("Feuil1")
'Le nom de la feuille
            For i = .Range("A" & .Rows.Count).End(xlUp).Row To 2 Step -1
'Colonne A
'Rows.count permet de retourner le nombre de ligne de la plage range
                    If .Range("A" & i).Value = "2104" Or .Range("A" & i).Value = "2119" Then
                                   .Rows(i).Delete
                    End If
            Next i
End With
 
End Sub

Ce code supprime donc les 2 lignes, grâce à ".Rows(i).Delete".
Je voulais savoir s'il existait une fonction qui garderait les lignes, au lieu de les supprimer.

Merci d'avance !

[gFZT82]

Bonjour,

Avec cette modification

Code :

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

 If .Range("A" & i).Value <> "2104" And .Range("A" & i).Value <> "2119" Then

Cordialement.

[nibledispo]

bonjour,

tu mets <> à la place de = pour les dux églité.
en plus, plutôt que de supprimer les lignes restantes il est peut être préférable dans un premier temps de les masquer

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

Sub selection()
 
Dim i As Integer
With ThisWorkbook.Sheets("Feuil1")
'Le nom de la feuille
            For i = .Range("A" & .Rows.Count).End(xlUp).Row To 2 Step -1
'Colonne A
'Rows.count permet de retourner le nombre de ligne de la plage range
                    If .Range("A" & i).Value <> "2104" and .Range("A" & i).Value <> "2119" Then
                       .Rows(i).delete     ' or .Rows(i).hidden = true                    
                    End If
            Next i
End With

Cordialement,

edit : nos messages se sont croisés

[ketipo]

C'est parfait ! C'était tout simple en fait ^^

Merci beaucoup ! Et merci pour le conseil de masquer les lignes au lieu de les supprimer.

Cordialement.