Excel VBA ne prend pas en compte mes criteres de filtrage et aucun message d'erreur

**coco.on.off** · 11/08/2014, 08h55

Bonjour,

J'ai cree un code pour filtrer des donnees et je n'ai aucun message d'erreur. Cependant il ne fait pas son travail car il ne prend pas en compte les criteres que je lui ai donne.
Voici mon code :

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
 
Private Sub CommandButton1_Click()
' Get a new revision number
 
    ActiveSheet.Unprotect
 
    a = Sheets("NEW REVISION").Range("C4")
    b = Sheets("NEW REVISION").Range("E4")
 
    Sheets("COMPLETE LIST").Visible = True
    Sheets("COMPLETE LIST").Select
    ActiveSheet.Unprotect
 
' Refresh complete list
 
    ActiveSheet.Range("C7").AutoFilter Field:=1
    ActiveSheet.Range("D7").AutoFilter Field:=2
    ActiveSheet.Range("E7").AutoFilter Field:=3
    ActiveSheet.Range("F7").AutoFilter Field:=4
    ActiveSheet.Range("G7").AutoFilter Field:=5
    ActiveSheet.Range("H7").AutoFilter Field:=6
 
' Filtering
 
    Sheets("COMPLETE LIST").Select
    Dim LastLig As Long
    Dim Plage As Range
 
    With Worksheets("COMPLETE LIST")
        LastLig = .Cells(.Rows.Count, "C").End(xlUp).Row
        If LastLig >= 8 Then
            Set Plage = .Range("C8:FG" & LastLig)
            ' Suite de ton code concernant Plage (de type range)
            ActiveSheet.Range("C9:FG" & LastLig).Select
            Else
                Set Plage = Nothing
        End If
    End With
 
    Selection.Sort Key1:=ActiveSheet.Range("H9"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
 
    If a <> "" Then
        Selection.AutoFilter Field:=1, Criteria1:=a
        a = ""
    End If
 
    If b <> "" Then
        Selection.AutoFilter Field:=4, Criteria1:=b
        b = ""
    End If
 
    Selection.Sort Key1:=ActiveSheet.Range("H9"), Order1:=xlDescending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
 
End Sub

Le critere A etant du genre "T000" et le critere B etant du genre "AA". je demande a ma macro d'aller chercher ces criteres dans une autre page de travail.

Sauriez vous pourquoi il ne l'ai prend pas en compte ?

Amicalement

**had4789** · 11/08/2014, 09h33

Bonjour,

A mon humble avis le problème vient de là.

Code :

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

ActiveSheet.Unprotect

Juste par curiosité à quoi te servent les lignes

Code :

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

1
2
3
4
5
6
ActiveSheet.Range("C7").AutoFilter Field:=1
    ActiveSheet.Range("D7").AutoFilter Field:=2
    ActiveSheet.Range("E7").AutoFilter Field:=3
    ActiveSheet.Range("F7").AutoFilter Field:=4
    ActiveSheet.Range("G7").AutoFilter Field:=5
    ActiveSheet.Range("H7").AutoFilter Field:=6

**Stanler** · 11/08/2014, 09h33

Bonjour,

Voilà je code que j'ai pour rechercher un critère dans un filtre :

Code :

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

1
2
3
CRITERE= Application.InputBox("Quel est le critère recherché ?", "CRITERE ?", Type:=1)
    Sheets("Feuil1").Select
    ActiveSheet.ListObjects("MonTableauFiltré").Range.AutoFilter Field:=1, Criteria1:=CRITERE

Vous pouvez essayer de l'adapter à votre code ?

Cdlt,

**coco.on.off** · 11/08/2014, 09h44

Les lignes de codes :

Code :

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

ActiveSheet.Range("C7").AutoFilter Field:=1

me servent (comme indiquer en commentaire) a rafraichir ma liste complete.

euh non le probleme ne vient pas de

Code :

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

ActiveSheets.Unprotect

sinon j'aurai des problemes dans toutes les macro que j'utilise. C'est une simple ligne de code pour ne plus proteger la feuille.

Pour le code que tu m'as donne j'ai du mal a le comprendre (2eme personne a m'avoir repondu)

**Stanler** · 11/08/2014, 10h06

Coco.on.off,

Mon code affiche une input box, qui est une boite de dialogue avec une barre de saisie. Je demande à l'utilisateur de la macro de saisir le critère qui sera filtré dans la macro.

Est-il possible pour toi d'adapter mon code à ta macro ?

**coco.on.off** · 11/08/2014, 10h25

J'ai adapte ton code comme ceci :

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
 
Private Sub CommandButton1_Click()
' Get a new revision number
 
    'a = Sheets("NEW REVISION").Range("C4")
    'b = Sheets("NEW REVISION").Range("E4")
 
    Sheets("COMPLETE LIST").Visible = True
    Sheets("COMPLETE LIST").Select
    ActiveSheet.Unprotect
 
' Refresh complete list
 
    ActiveSheet.Range("C7").AutoFilter Field:=1
    ActiveSheet.Range("D7").AutoFilter Field:=2
    ActiveSheet.Range("E7").AutoFilter Field:=3
    ActiveSheet.Range("F7").AutoFilter Field:=4
    ActiveSheet.Range("G7").AutoFilter Field:=5
    ActiveSheet.Range("H7").AutoFilter Field:=6
 
' Filtering
 
    Sheets("COMPLETE LIST").Select
    Dim LastLig As Long
    Dim Plage As Range
 
    With Worksheets("COMPLETE LIST")
        LastLig = .Cells(.Rows.Count, "C").End(xlUp).Row
        If LastLig >= 8 Then
            Set Plage = .Range("C9:FG" & LastLig)
            ' Suite de ton code concernant Plage (de type range)
            ActiveSheet.Range("C9:FG" & LastLig).Select
            Else
                Set Plage = Nothing
        End If
    End With
 
    Selection.Sort Key1:=ActiveSheet.Range("H9"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
 
    'If a <> "" Then
        'Selection.AutoFilter Field:=1, Criteria1:=a
        'a = ""
    'End If
 
    'If b <> "" Then
        'Selection.AutoFilter Field:=4, Criteria1:=b
        'b = ""
    'End If
 
    CRITERIA = Application.InputBox("Sought Engine ?", "CRITERIA ?", Type:=1)
    Sheets("COMPLETE LIST").Select
    ActiveSheet.ListObjects("Plage").Range.AutoFilter Field:=1, Criteria1:=CRITERIA
 
    CRITERIA = Application.InputBox("Sought Document ?", "CRITERIA ?", Type:=1)
    Sheets("COMPLETE LIST").Select
    ActiveSheet.ListObjects("Plage").Range.AutoFilter Field:=4, Criteria1:=CRITERIA
 
    Selection.Sort Key1:=ActiveSheet.Range("H9"), Order1:=xlDescending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
 
End Sub

Quand j'execute mon code en debugage, et que je rentre mon premier critere dans la boite de dialogue, il me repond que mon numero n'est pas valide.
Il me met se message d'erreur pour la ligne 53

Amicalement

**Stanler** · 11/08/2014, 10h44

Essayes avec :

Code :

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

1
2
3
4
5
6
7
CRITERIA = Application.InputBox("Sought Engine ?", "CRITERIA ?", Type:=2)
    Sheets("COMPLETE LIST").Select
    ActiveSheet.ListObjects("Plage").Range.AutoFilter Field:=1, Criteria1:=CRITERIA
 
    CRITERIA = Application.InputBox("Sought Document ?", "CRITERIA ?", Type:=2)
    Sheets("COMPLETE LIST").Select
    ActiveSheet.ListObjects("Plage").Range.AutoFilter Field:=4, Criteria1:=CRITERIA

Si tu as un message d'erreur, essayes avec :

Code :

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

1
2
3
4
5
6
7
CRITERIA = Application.InputBox("Sought Engine ?", "CRITERIA ?")
    Sheets("COMPLETE LIST").Select
    ActiveSheet.ListObjects("Plage").Range.AutoFilter Field:=1, Criteria1:=CRITERIA
 
    CRITERIA = Application.InputBox("Sought Document ?", "CRITERIA ?")
    Sheets("COMPLETE LIST").Select
    ActiveSheet.ListObjects("Plage").Range.AutoFilter Field:=4, Criteria1:=CRITERIA

Si tu as encore un message d'erreur, tu peux essayer avec :

Code :

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

1
2
3
4
5
6
7
CRITERIA = Application.InputBox("Sought Engine ?", "CRITERIA ?", Type:=0)
    Sheets("COMPLETE LIST").Select
    ActiveSheet.ListObjects("Plage").Range.AutoFilter Field:=1, Criteria1:=CRITERIA
 
    CRITERIA = Application.InputBox("Sought Document ?", "CRITERIA ?", Type:=0)
    Sheets("COMPLETE LIST").Select
    ActiveSheet.ListObjects("Plage").Range.AutoFilter Field:=4, Criteria1:=CRITERIA

Dis nous si ça fonctionne.

Excel VBA ne prend pas en compte mes criteres de filtrage et aucun message d'erreur

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager