Intersect avec un range étendu au classeur

Salut à tous !

Ça fait un moment que je m'embrouille avec un petit détail qui me semble si simple et facile. Mais pourtant, je n'y arrive pas .. et ce n'est pas faute d'avoir cherché et essayé plein de choses.

En effet, je désire faire un Intersect à un range étendu au classeur (un nom du gestionnaire de nom accessible normalement à tout mon classeur et non pas à une feuille en particulier). Du genre :

If Not Intersect(Range("rangePorteeClasseur"), ActiveCell) Is Nothing Then

Donne : La méthode 'Intersect' de l'objet '_Global' a échoué

Ou encore

If Not Intersect(ThisWorkbook.Names("rangePorteeClasseur").RefersToRange, ActiveCell) Is Nothing Then

Donne : Erreur définie par l'application ou par l'objet

Et bien d'autres choses encore qui ne fonctionnent tous pas ..

À noter que mon code se trouve dans une méthode publique d'un module (module1) qui est appelée par ThisWorbook lorsque l'utilisateur appuie sur TAB. Mais je ne sais pas si l'emplacement du code pose vraiment problème puisque je peux faire référence à un range étendu à une feuille en particulier sans problème. En effet, le code suivant fonctionne :

If Not Intersect(Sheets("Matériau").Range("FieldsWithNewLineOnTab"), ActiveCell) Is Nothing Then

Je suis sûr que la solution est très simple et que je suis juste un boulet ..

Merci d'avance camarades

Je joint le fichier excel en question. Le code concerné se trouve dans le module1.

Bonjour,

effectivement il fait de la résistance. Sans doute dû au fait que le nom a dans sa référence la feuille qui était active lors de sa création.

A défaut :

Intersect(Range(Range("nom").Address), ActiveCell)

pour faire avec la feuille active.

eric

Salut eriic,

On doit donc refaire un range "à la volée" pour ne pas inclure la feuille active lors de la création du range initiale .. Intéressant. Je n'aurai jamais trouvé ! Et en plus, je confirme, ça fonctionne de mon côté.

Merci pour le coup de main rapide. C'est très apprécié