nommer plage resultat du filtre automatique

[hich24]

bonjour , mon problème est le suivant :
j’utilise se code

Sub NommerZoneFiltree()
ActiveWorkbook.Names.Add Name:="NomPlage_01", _
RefersTo:="=Feuil1!" & _
Feuil1.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Address
End Sub

pour renomme la zone d'un filtre automatique , mais chaque fois la reference ressemble a ça
=feuil1!$A$2:$D$2;feuil1!$A$7:$D$7
alors que je veut seulement le résultat sans entêtes c'est a dire
feuil1!$A$7:$D$7

merci d'avance pour tout

 

[Dranreb]

Re : nommer plage resultat du filtre automatique

Bonjour.

Ça donne quoi en faisant :

Feuil1.AutoFilter.Range.SpecialCells(xlCellTypeVis ible).Name = "NomPlage_01"

Ben ça donne sans doute la même chose. Il faut croire que c'est la référence normale d'une plage multizone.
Mais peut être devriez vous exclure la ligne d'entêtes:

With Feuil1.AutoFilter.Range: .Rows(2).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).Name = "NomPlage_01": End With