Discussion :

[taquatzieu]

Bonjour,
Je travaille sur un tableau dans lequel je veux filtrer des lignes. Lorsque j'utilise le filtre automatique directement dans ma feuille, j'ai bien toutes les lignes correspondant à mon critère. Si j'utilise une macro qui fait le même travail, les lignes correspondantes sont masquées!!
Mon code:

Code :

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

1
2
Selection.AutoFilter Field:=1, Criteria1:="016217"
Selection.AutoFilter Field:=7, Criteria1:="0,00"

Qui peut m'aider sachant que je dois sélectionner une cellule d'une de ces lignes et que l'opération va se faire plusieurs fois avec changement des critères.
Cordialement,

[Pierre Fauconnier]

Bonjour

Si ton critère sur le champ 7 est décimal, tu dois remplacer la virgule par un point.

[taquatzieu]

Bonjour,
Merci¨P. Fauconnier. Le problème ne venait pas de là. J'ai été aidé pour écrire le code ci-dessous et qui fonctionne bien.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
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

Cordialement.