[XL-2007] Problème de nom suite à pose filtre [Résolu]

[Lucky062]

Bonjour à tous,

Voilà, j'ai un problème de reconnaissance de nom sur une feuille ; je "tourne" depuis hier et ne trouve pas !

Je crée un nom sur une plage aprés application d'un filtre : ici "1*".

Code :

1
2
3
4
5
6
7
8
 DerniereLigne = Sheets("Semestre 1").Range("A65536").End(xlUp).Row
    Sheets("Semestre 1").Activate
    Selection.AutoFilter
    ActiveSheet.Range("$A$2:$GH$" & DerniereLigne).AutoFilter Field:=1, Criteria1:="=1*", _
        Operator:=xlAnd
 
    ActiveWorkbook.Names.Add Name:="Activites_Courantes", _
        RefersTo:="=Semestre 1!" & Sheets("Semestre 1").AutoFilter.Range.SpecialCells(xlCellTypeVisible).Address

Je vois le nom dans la boîte de dialogue "Gestionnaire de noms".

Le problème est que dés que j'essaye de l'utiliser par

Code :

   Application.Goto Reference:="Activites_Courantes"

je me fais jeter par "Erreur 1004" !!

Auriez vous une idée, s'il vous plait ?
Merci d'avance.

[ZebreLoup]

Tu as essayé :

Code :

Application.Goto Reference:=Range("Activites_Courantes")

?

[Lucky062]

Bonjour ZebreLoup,

Merci de ton aide !
Je viens d'essayer et cela ne marche pas !
J'ai toujours Erreur 1004 "La méthode 'Range' de l'objet '_Global' a échoué".

[ZebreLoup]

Tu dis que tu vois bien le nom dans la boite de dialogue "Gestionnaire de noms", mais il correspond bien à une zone existante ?

Essaie de mettre

Code :

Range("Activites_Courantes")

dans les espions en mode debug pour voir ce qu'il te retourne

[Lucky062]

Voilà : le nom est visible dans la boîte de gestion et donne ceci :

Code :

=Semestre '1'!$A$2:$GH$2;'Semestre 1'!$A$5:$GH$14

résultat du filtre.

Dés que je lance la procedure par F8, j'ai le même message d'erreur dans la zone espion mais ce qui m'intrigue c'est qu'il me renvoie le type Integer !?

[ZebreLoup]

Integer, c'est parce que c'est une erreur, c'est le numéro de l'erreur qui est un Integer.

Ton range devrait être plutôt :

Code :

='Semestre 1'!$A$2:$GH$2;'Semestre 1'!$A$5:$GH$14

(Position des ')

C'est une erreur de copier-coller de ta part ? Ton Excel est en anglais ou en français ?

[Lucky062]

ZebreLoup, je crois que tu as mis le doigt dessus !

Mon EXL est en français.

Quand je nomme la plage en dur, pas de problème, EXL me met bien les " ' ". Mais à voir, dés que cela passe par VBA, en utilisant cette synthaxe

Code :

1
2
ActiveWorkbook.Names.Add Name:="Activites_Courantes", _
        RefersTo:="=Semestre 1!" & Sheets("Semestre 1").AutoFilter.Range.SpecialCells(xlCellTypeVisible).Address

il ne les met plus !?!

'Comprends plus ! Sniff

[ZebreLoup]

En essayant comme ça :

Code :

1
2
ActiveWorkbook.Names.Add Name:="Activites_Courantes", _
        RefersTo:=Sheets("Semestre 1").AutoFilter.Range.SpecialCells(xlCellTypeVisible).Address

ou

Code :

1
2
ActiveWorkbook.Names.Add Name:="Activites_Courantes", _
        RefersTo:=Sheets("Semestre 1").AutoFilter.Range.SpecialCells(xlCellTypeVisible).AddressLocal

[Lucky062]

Ca marche pon !

Il met :

Code :

="$A$2:$GH$2;$A$5:$GH$14"

comme référence mais fait abstraction de la feuille.

Toujour Erreur 1004.
Sorry !

[ZebreLoup]

Bon cette fois, j'ai testé, ça marche :

Code :

1
2
ActiveWorkbook.Names.Add Name:="Activites_Courantes", _
        RefersTo:=Sheets("Semestre 1").AutoFilter.Range.SpecialCells(xlCellTypeVisible)

[Lucky062]

ZebreLoup un GRAND MERCI !!
Je te dois une fière chandelle cela fonctionne !
Je vais pouvoir avancer un pas de plus dans mon application !

Merci encore !