Discussion :

[lightstring4]

Bonjour,
je me suis battu avec des heures avec un code VBA identique sur 2 feuilles mais qui se comporte différemment.
J'ai créé des cellules de recherche en haut d'une liste afin que par un évènement Worksheet_Change(ByVal Target As Range), je récupère le contenu de la cellule où j'ai tapé du texte, puis j'active le filtre automatique sur la colonne concernée.
J'ai aussi fait en sorte d'annuler le filtre sur une colonne quand la case de recherche est vidée. Et là, j'ai un problème énorme !La suppression du filtre sur une colonne laisse le filtre auto visible (flèches) mais on n'a plus accès au menu déroulant en cliquant sur les flèches ... et la recherche devient inactive.
Avez-vous une idée du problème ? Que puis-je fournir pour aider ?
Merci

[NEC14]

Bonjour,

Avec un petit fichier joint, c'est plus facile. Avoir un oeil sur le code est plus aisé pour vous aider.
Merci par avance

[lightstring4]

Ma feuille concernée a pour codename "ListeBT" que j'utilise dans une fonction personnalisée de protection ou déprotection de la page.
C'est le dernier ElseIF qui désactive le filtre !

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
Private Sub Worksheet_Change(ByVal Target As Range)
 
    Dim msg, txt, contenu As String
'DEBUT
    Application.ScreenUpdating = False
'si modif d'un autre champ que ceux de recherche
    On Error Resume Next
    If Target.Row <> 7 Or Target.Column > 6 Then
        Exit Sub
'Sinon si champ de recherche non vide
    ElseIf Target <> "" Then
        Call Deproteger(ListeBT)
        Range("TitreListeBT").Select
        txt = "*" & Target.Value & "*"
        Select Case Target.Name.Name     'recherche dans la liste sur colonnes
            Case "rechbt1": Selection.AutoFilter Field:=1, Criteria1:=txt, Operator:=xlAnd
            Case "rechbt2": Selection.AutoFilter Field:=2, Criteria1:=txt, Operator:=xlAnd
            Case "rechbt3": Selection.AutoFilter Field:=3, Criteria1:=txt, Operator:=xlAnd
            Case "rechbt4": Selection.AutoFilter Field:=4, Criteria1:=txt, Operator:=xlAnd
            Case "rechbt5": Selection.AutoFilter Field:=5, Criteria1:=txt, Operator:=xlAnd
            Case "rechbt6": txt = Mid(Target.Value, 1, 2) & "/" & Mid(Target.Value, 4, 2) & "/" & Mid(Target.Value, 9, 2)
                Selection.AutoFilter Field:=6, Criteria1:=txt, Operator:=xlAnd  'traitement spécial pour date !!
        End Select
        Target.Select
'Sinon si champ de recherche vide
    ElseIf Target = "" Then
        Call Deproteger(ListeBT)
        Range("TitreListeBT").Select
        Select Case Target.Name.Name
            Case "rechbt1": Selection.AutoFilter Field:=1
            Case "rechbt2": Selection.AutoFilter Field:=2
            Case "rechbt3": Selection.AutoFilter Field:=3
            Case "rechbt4": Selection.AutoFilter Field:=4
            Case "rechbt5": Selection.AutoFilter Field:=5
            Case "rechbt6": Selection.AutoFilter Field:=6
        End Select
        Target.Select
    End If
'FIN
    Application.ScreenUpdating = True
    Call Proteger(ListeBT)
End Sub

[NEC14]

Peut-être que dans Format - Protection - Faut-il cocher la case qui autorise l'utilisation des filtres automatiques.
Ce n'est juste qu'une idée

[lightstring4]

L'option "Utiliser le filtre automatique" est bien activée à la protection.

Code :

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

1
2
3
4
5
6
Sub Proteger(sht As Worksheet)
    sht.Protect Password:="aielc", DrawingObjects:=True, Contents:=True, Scenarios:=True _
    , AllowFormattingCells:=False, AllowFormattingColumns:=False, _
    AllowFormattingRows:=False, AllowSorting:=False, AllowFiltering:=True, UserInterfaceOnly:=True
    ActiveWindow.Zoom = 85
End Sub

C'est vraiment la première fois que je rencontre ce problème. Le plus étonnant est qu'un autre fichier Excel utilisant exactement le même code avec une colonnes en moins dans la liste fonctionne parfaitement.

[NEC14]

J'ai cette macro qui fonctionne. Apparament vous avez fait à-peu-près la même chose

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
Sub Macro1()
'
' Macro1 Macro
'
 
'
   ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False, AllowFiltering:=True
End Sub

à part cette différence :

Code :

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

1
2
 
sht.Protect Password:="aielc",