lignes masquées à l'execution d'une macro

Version imprimable

08/12/2010, 11h23
taquatzieu

lignes masquées à l'execution d'une macro
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!!:cry:
Mon code:
Code:

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,
08/12/2010, 16h08
Pierre Fauconnier

Bonjour

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

résolu

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:

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.