PB Macro pour retirer un filtre sur une colonne donnée

chris6999

XLDnaute Impliqué
Bonsoir le FORUM

J'ai une petite question sur une une macro simple de type filtre sur une colonne lorsque je saisie des valeurs en A4 et B4.

Il s'agit d'afficher uniquement les lignes contenant mon critère ou une partie de mon critère.
Range("A7:B2000").AutoFilter Field:=1, Criteria1:="=*" & Target.Value & "*"
Et cela fonctionne ma fois très bien.

Par contre dans le code quand je supprime la valeur dans A4 ou B4 je souhaiterais pouvoir retirer ce filtre.

J'ai utilisé l'enregistreur de macro :
If Target.Value = "" Then
Range("$A$7:$B$2000").AutoFilter Field:=1
End If

Mais cela ne fonctionne pas car les lignes où les cellules sont vides restent masquées.
D'ailleurs on peut voir que l'icone filtre est toujours présent sur la barre d'étiquettes.

Quelqu'un saurait-il comment faire pour contourner ce problème.

Merci d'avance cordialement
 

Pièces jointes

  • test filtre.xls
    166 KB · Affichages: 22
  • test filtre.xls
    166 KB · Affichages: 23

job75

XLDnaute Barbatruc
Re : PB Macro pour retirer un filtre sur une colonne donnée

Bonsoir chris6999,

Je suis très étonné car avec la macro du bouton vous semblez avoir compris :confused:

Remplacez :

Code:
If Target.Value = "" Then
Range("$A$7:$B$2000").AutoFilter Field:=1
End If
par :

Code:
If Target = "" Then Range("$A$7:$B$2000").AutoFilter: Exit Sub
Bonne fin de soirée.
 

chris6999

XLDnaute Impliqué
Re : PB Macro pour retirer un filtre sur une colonne donnée

Bonsoir chris6999,

Je suis très étonné car avec la macro du bouton vous semblez avoir compris :confused:

Remplacez :

Code:
If Target.Value = "" Then
Range("$A$7:$B$2000").AutoFilter Field:=1
End If
par :

Code:
If Target = "" Then Range("$A$7:$B$2000").AutoFilter: Exit Sub
Bonne fin de soirée.

Bonsoir et merci pour cette proposition mais avec ce code on supprime tous les filtres de la feuille.
Je me suis sans doute mal exprimée car ce que je souhaite c'est juste supprimer le filtre en cours de la colonne.
En effet mes filtres de colonne A et B se superposent.

L'enregistreur ne me donne pas la solution pour ôter correctement le filtre textuel (de type contient). Seules les valeurs "non vides" remontent.

C'est juste incompréhensible.

Si vous avez une autre idée n'hésitez pas.

Merci encore

Cordialement
 

ERIC S

XLDnaute Barbatruc
Re : PB Macro pour retirer un filtre sur une colonne donnée

Bonjour
tu as une ligne de code mal placée je pense. elle s'exécute tout le temps, même si target.value=""

Essaie

Code:
            If Target.Value = "" Then
            Range("$A$7:$B$2000").AutoFilter Field:=1
            Else
            Range("A7:B2000").AutoFilter Field:=1, Criteria1:="=*" & Target.Value & "*"
            End If
 

chris6999

XLDnaute Impliqué
Re : PB Macro pour retirer un filtre sur une colonne donnée

Bonjour
tu as une ligne de code mal placée je pense. elle s'exécute tout le temps, même si target.value=""

Essaie

Code:
            If Target.Value = "" Then
            Range("$A$7:$B$2000").AutoFilter Field:=1
            Else
            Range("A7:B2000").AutoFilter Field:=1, Criteria1:="=*" & Target.Value & "*"
            End If


Merveilleux!!!!!!
Tu as trouvé la solution à mon problème.
Je ne sais comment te remercier.

Bonne soirée
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof