Discussion :

[Platon d'athene]

bonjour tt le monde,

tout d'abord merci au membres de m'avoir aidé a resoudre un problème qui m'a cassé la tête, en fait il s'agit d'un code qui permet de :

- filtrer le lignes d'une feuille selon des critères bien determiné.
- copier les lignes filtées et les coller dans une autre feuille.
- retour à la feuille d'origine, et supression des lignes deja copiée et collée.

et le voilà:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
 
'
' filtrage Macro
'
Set WsCible = Worksheets("Sheet2")
    NextRow = WsCible.Cells(WsCible.Rows.Count, 1).End(xlUp).Row + 1
    With Worksheets("Sheet1")
        Set Plage = .Range("A2:D" & .Range("A" & .Rows.Count).End(xlUp).Row)
        .Range("A1").AutoFilter
        .Range("$A$1:$D$3000").AutoFilter Field:=4, Criteria1:= "critère"        
 
        On Error GoTo Gestion_erreur
        'Copier/Coller de la plage filtrée dans "Sheet2"
        Plage.SpecialCells(xlCellTypeVisible).Copy WsCible.Cells(NextRow, 1)
    End With
    'Suppression de la plage filtrée dans "Sheet1"
    Plage.EntireRow.Delete
    Worksheets("Sheet1").Range("A1").AutoFilter
Gestion_erreur:
    Worksheets("Sheet1").Range("A1").AutoFilter
    Application.ScreenUpdating = True

le code est parfait , mais le problème ici c'est que lorsque l'operation de filtrage ne donne auccun resultat le programme passe à : "gestion_erreur" et c'est tout à fait normal, mon programme est un peu long càd j'utilise ce code plusieures fois afin d'effectuer des filtrages avec de différents critères (des centaines de critères) , en effectuant l'operation de debogage j'ai decouvert que le programme ne supporte pas l'absence de resultat de filtrage plus que deux fois pour un document execl , càd il passe au getion d'erreur qu'une seule fois ; la deuxième , il se plante,,


merci pour votre patience, et j'apprecie bien vos conseils,, help help

[Nako_lito]

rajoute des test conditionnel avant d'effectuer tes filtre et de vouloir en récupérer le resultat.

Si la zone de filtre n'a qu'une valeur ou pas du tout -> on sort
Si le résultat de filtre n'a pas de valeur -> on sort

Dernière chose, tu dis que tu utilise ce code plusieur fois.
Fais en une procédure qui prend en parametre les différents elements que tu utilise dans ton morceau de code (range, feuille par exemple).

Et dans ta procédure générale, tu appele juste ta procédure.
Ca évite de copier coller du code, et si demain tu veux rajouter des opérations pendant tes filtre, tu n'a qu'une méthode a modifier.

[gFZT82]

Bonjour,

Tu peux effectuer un test pour vérifier que le filtre est actif avant de chercher à le désactiver.

Code :

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

1
2
3
Gestion_erreur:
    If Worksheets("Sheet1").AutoFilterMode Then Worksheets("Sheet1").Range("A1").AutoFilter
    Application.ScreenUpdating = True

Cordialement.

[Platon d'athene]

merci les gars ,

nako lito , et comment faire pour connaitre si la zone filtrée contient, ou pas, des lignes ?

gFZT82 merci à toi également, en fait c'est ton code , si tu te rappelle

[gFZT82]

Re,

Je me disais bien que ça avait un air de déjà vu .
Un petit complément d’info sur le test que je t’ai proposé : si tu ne vérifies pas l’état du filtre avant de demander la désactivation, tu risques d’obtenir l’effet inverse, à savoir activer le filtre avant de quitter la procédure. Lorsque tu vas repasser dans ta procédure, Worksheets("Sheet1").Range("A1").AutoFilter va alors désactiver le filtre et le reste de la procédure ne pourra pas se réaliser.
Cela dit, si tu as ce problème, c’est sûrement parce qu’une autre erreur que celle initiée par le filtrage se produit. C’est de ce coté qu’il va falloir que tu grattes.

Cordialement.

[kiki29]

Salut, voir avec qqch comme ceci ?

Code :

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

c = Plage.SpecialCells(xlCellTypeVisible).Count

[Nako_lito]

Salut, voir avec qqch comme ceci ?

Code :

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

c = Plage.SpecialCells(xlCellTypeVisible).Count

Exact, avec un truc dans le genre.

Code :

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

1
2
3
4
5
 
If (Plage.SpecialCells(xlCellTypeVisible).Count <= 1) Then
------------
------------
End If

Un résultat de filtre n'est ni plus ni moins qu'un Range au même titre qu'un autre range, donc tu peux effectuer les même test.