Discussion :

[Arthursl]

Bonjour !
Voilà mon problème, jai un tableur qui a une colonne (AF) qui possède 5 chiffres (1 à 5) et différents sur chaque ligne. J'ai besoin seulement du 1 et je voudrai supprimer les autres ligne pour raccourcir ma feuille mais je ne vois pas du tout comment faire...
Avez vous une idée svp !

Merci

[révèr]

Bonjour Arthursl

Code :

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

1
2
3
4
5
 
Private Sub Filtre()
Range("A2").AutoFilter
Range("A2").AutoFilter Field:=32, Criteria1:=1
End Sub

Vérifie bien que 32 est le numéro de la colonne AF. J'ai compté sur mes doigts mais j'en ai peut-être loupé un

Criteria1 peut être une variable, pas forcément une valeur figée.

Cela te filtrera ton tableau et ne t'affichera que les lignes dont les valeurs en AF sont 1.

[Arthursl]

Merci !
Mais mon but est de supprimer les lignes inutiles, je vais avoir besoin de supprimer les filtres souvent donc je voudrai avoir un tableur avec uniquement les 1 c'est possible ?

[révèr]

Tu peux éventuellement Sélectionner ta table complètement filtrée et la coller dans une autre feuille. Ainsi, tu auras toujours ton tableau de base avec tes valeurs de 1 à 5, ainsi que ton tableau filtré. Néanmoins, tu peux toujours manipuler les informations qui se situent dans ta vue filtrée, tout comme tu peux manipuler le tableau complet même s'il est filtré.

[BENNASR]

Bonjour
à tester sur une copie de ton travail ; je supporte aucune responsabilité en cas d'erreur je suis qu'un atodidacte

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 filtreetsupprimer()
Dim F1 As Worksheet
Set F1 = Sheets("Feuil1") ' à adapter si nécessaire
Dim I As Long
 Application.ScreenUpdating = False
 With F1
 .Activate
I = .Cells(Rows.Count, 1).End(xlUp).Row 'suppose que la colonne A est toujours remplie si non à adapter
 .Range("A1:AF" & I).AutoFilter Field:=32, Criteria1:="<>1" 'filtrer différent de 1
 .Range("A2:AF" & I).SpecialCells(xlCellTypeVisible).EntireRow.Delete 'supprimer les lignes visible
 .ShowAllData 'annuler filtre
End With
 Application.ScreenUpdating = True
End Sub

Bonne continuation

[zoltar_x]

En règle générale, quand on supprime une ligne, il faut traiter de bas en haut :

Code :

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

1
2
3
4
 
For i = derniere_ligne To 1 Step -1
       ....
Next i

[Arthursl]

Encore une fois, BENNASR, t'as trouvé la bonne macro (tu m'as aidé pas plus tard qu'hier )

Merci pour vos réponse, si besoin, le code de BENNASR fonctionne à merveille à adapter si besoin !