Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

problème tout bete de filtrage auto en macro

  • Initiateur de la discussion Initiateur de la discussion Old-Lude
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

O

Old-Lude

Guest
bonjour à tous.
avec ce code :

Code:
Sub maj_laq()
Dim refstylelaq As Variant
refstylelaq = Application.ReferenceStyle
Application.ReferenceStyle = xlA1
With Worksheets("PROMERAC")
    If .AutoFilterMode Then Range("G4").AutoFilter
    Range("G4").AutoFilter Field:=7, Criteria1:="1"
End With
Application.ReferenceStyle = refstylelaq
End Sub

je cherche à mettre en place un filtrage automatique pour la colonne 7 avec le critère 1. Tout marche bien sauf un truc : le filtrage se fait sur la ligne 3, et non sur la ligne 4 (ligne 3 et 4 sont des lignes d'entête). je perds donc en visu ma ligne 4 d'entête.
Je commence à perdre doucettement patience, ma santé mentale dépend de vos réponses 😛

Merci à vous.
 
Re : problème tout bete de filtrage auto en macro

Salut,

Je viens de faire le test et chez moi ca fonctionne normalement, le filtre est bien effectué à partir de la ligne 5, la ligne 4 recevant les filtres automatiques.

Je pense qu'un bout de ton fichier permettrait de voir ou se situe le soucis...

@+
 
Re : problème tout bete de filtrage auto en macro

re,

Tiens, essaye comme ceci :
Code:
Sub maj_laq()
Dim refstylelaq As Variant
refstylelaq = Application.ReferenceStyle
Application.ReferenceStyle = xlA1
With Worksheets("Feuil1")
    If .AutoFilterMode = False Then Rows("6:6").AutoFilter
    Range("C6").AutoFilter Field:=3, Criteria1:="1"
End With
Application.ReferenceStyle = refstylelaq
End Sub

@+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
Microsoft 365 Suite de macro
Réponses
0
Affichages
605
N
Réponses
5
Affichages
3 K
Nicocotte125
N
E
Réponses
0
Affichages
2 K
EnnaEnna
E
M
Réponses
4
Affichages
1 K
michel90
M
C
Réponses
6
Affichages
2 K
christophedb
C
R
Réponses
0
Affichages
582
R
S
Réponses
4
Affichages
1 K
sadness78
S
B
  • Question Question
Réponses
11
Affichages
3 K
boule de neige
B
M
Réponses
1
Affichages
2 K
MaximeRoth
M
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…