problème tout bete de filtrage auto en macro

[Old-Lude]

bonjour à tous.
avec ce 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.

 

[porcinet82]

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...

@+

 

[Old-Lude]

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

voilà m'sieur 🙂

 

[porcinet82]

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

re,

Tiens, essaye comme ceci :

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

@+

 

[Old-Lude]

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

Un grand merci, m'sieur 🙂
[résolu]