Forums XLPages

Excel & VBA Forum principal [résolu] lignes masquées après filtres

lignes masquées après filtres
#1
taquatzieu
Débutant XLPages

Inscription: 16/09/2010

Messages: 4

Système d'exploitation:
PC
Version Excel utilisée:
excel2003
Posté le : 08-12-2010 12h01

Range("A2").Select
   
    Selection.AutoFilter Field:=1, Criteria1:="000015"
    Selection.AutoFilter Field:=3, Criteria1:="0,00"

Bonjour,
Dans le tableau joint, en utilisant le filtre automatique j'obtiens bien les lignes correspondants aux critères. Par contre si j'utilise une macro pour le faire automatiquement, les lignes correspondants aux critères sont masquées.

Comment faire pour que les lignes restent apparentes?
Merci.


Pièce jointe:
xls Classeur2.xls   [ Taille: 28.50 Ko - Téléchargements: 381 ]
Hors Ligne
 Rapport   Haut 

Re: lignes masquées après filtres
#2
Mth
Accro XLPages

Inscription: 23/05/2008
De La Varenne Saint-Hilaire

Messages: 356

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 08-12-2010 13h21
Bonjour taquatzieu , le forum,

Un petit essai avec ce code:
Sub filtreperso()
'Définit une variable Derlig
Dim Derlig As Long
'Bloque l'Affichage écran
Application.ScreenUpdating = False
'Travaille sur la Feuil1
With Sheets("Feuil1")
    'Réinitialise le filtre
   If .AutoFilterMode And .FilterMode Then .ShowAllData
    'Calcul de la dedrnière ligne de la feuille, sur la base de la colonne A
    Derlig = .Cells(Rows.Count, 1).End(xlUp).Row
    'Si moins de 3 lignes on sort
    If Derlig <= 2 Then Exit Sub
    'Mise en place des filtres
    .Range("$A$1:$F$" & Derlig).AutoFilter Field:=1, Criteria1:="000015"
    .Range("$A$1:$F$" & Derlig).AutoFilter Field:=3, Criteria1:="0.00"
End With
'Rétablit l'affichage écran
Application.ScreenUpdating = True
End Sub
 

en espérant que cela puisse t'aider.

Bonne journée,

Mth

Pièce jointe:
zip Classeur2(1).zip   [ Taille: 10.69 Ko - Téléchargements: 382 ]
Hors Ligne
 Rapport   Haut 

Re: lignes masquées après filtres
#3
taquatzieu
Débutant XLPages

Inscription: 16/09/2010

Messages: 4

Système d'exploitation:
PC
Version Excel utilisée:
excel2003
Posté le : 08-12-2010 15h17
Bonjour,
Merci cela fonctionne bien. Je vais tenter maintenant de l'exploiter dans mon fichier qui est beaucoup plus volumineux que mon exemple.
Encore merci.
Hors Ligne
 Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes