Discussion :

[celinepug]

Bonjour à tous,

J'aimerai appeler une cellule par son nom, par exemple la cellule se nomme "TOTO", et de récupérer par exemple le numéro de sa ligne, j'y arrive avec le code suivant, à la condition que la cellule nommée soit en référence au classeur.

ThisWorkbook.Names("TOTO").RefersToRange.Row

Mais j'ai plusieurs feuilles sous le même modèle, donc plusieurs cellules portant le nom "TOTO" donc faisant référence à sa feuille respective et non plus au classeur, de ce fait le code ci-dessus ne fonctionne plus, j'ai essayé de l'adapter (voir ci-dessous) mais en vain.

ThisWorksheet.Names("TOTO").RefersToRange.Row
ou
ThisWorkbook.worksheets("Exemple").Names("TOTO").RefersToRange.Row

Quelqu'un pourrait-il m'aider à trouver le bon code pour récupérer la ligne de la cellule nommée "TOTO" faisant référence à la feuille nommée "Exemple" ?

Merci à vous

Céline

[Daniel.C]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ligne = ThisWorkbook.Sheets("Exemple").Range("TOTO").Row

ou :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ligne = ThisWorkbook.Names("Exemple!TOTO").RefersToRange.Row

[78chris]

Bonjour

J'allais proposer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

maplage = Worksheets("Feuil4").Range("Nom").Address

mais j'ai vu que Daniel venait juste de poster.

Pour compléter il suffit d'utiliser Range("Nom") dans la plupart des cas quelle que soit la portée au lieu de referstorange

[celinepug]

Merci à tous les deux ça fonctionne très bien j'ai utiliser la version

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.Names("Exemple!TOTO").RefersToRange.Row

Bien heureuse ce soir !!!!

Joyeuses fêtes à tous

[Daniel.C]

Fais juste attention, "RefersToRange" ne fonctionne pas sur des plages non rectangulaires.