Filtre et suppression

Version imprimable

31/01/2020, 08h06
Arthursl

Filtre et suppression

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 :D
31/01/2020, 08h25
révèr
Bonjour Arthursl
Code:

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

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.
31/01/2020, 08h28
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 ?
31/01/2020, 08h30
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é.

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

Code:

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

31/01/2020, 09h38
zoltar_x

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

1 2 3 4 For i = derniere_ligne To 1 Step -1 .... Next i
31/01/2020, 14h16
Arthursl

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

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