Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Trouver un adresse Classeur+Feuille en partant d'une cellule

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

mécano41

XLDnaute Accro
Bonjour à tous,

(je remets le sujet ici car je l'avais posé dans un autre sujet et il semble s'être enterré)

Je suis dans le code une application où je demande l'adresse du début d'une plage, située dans un autre classeur ouvert, en cliquant dans la cellule choisie au moyen d'un Inputbox. J'obtiens donc un Range "DébutTableauàImporter"

Je souhaite avoir le nom (nomclasseur + nomfeuille) en vue d'activer cette feuille.

Comment fait-on pour extraire cela du range "DébutTableauàImporter" (en dehors d'une analyse du texte)?

Mes essais :

- DébutTableauàImporter.Address me donne : $B$5 (c'est la cellule sélectionnée)
- DébutTableauàImporter.Parent.Name me donne : Données (c'est le nom de la feuille)
- DébutTableauàImporter.Address(, , , True) me donne : [classeur3]Données!$B$5 (c'est donc l'adresse complète)
- Range(DébutTableauàImporter.Address(, , , True)) me donne : 1 (c'est la valeur dans la cellule)
- Range(DébutTableauàImporter.Address(, , , True)).Worksheet.Name me donne : Données (c'est le nom de la feuille)

Merci d'avance.

Cordialement
 
Trier par date Trier par votes
Re : Trouver un adresse Classeur+Feuille en partant d'une cellule

Bonjour,

Avant de planter VBA, essaye les différentes variantes de la fonction CELLULE dans une feuille de ton classeur, notamment : =cellule("filename";A1) qui renvoie le chemin complet du classeur (y compris onglet) dès l'instant que ledit classeur a déjà été sauvegardé.
 
Vote positif 0 Vote négatif
Re : Trouver un adresse Classeur+Feuille en partant d'une cellule

Bonjour Mecano

pas sur d'avoir tout compris, mais regarde le code ci dessous :

Code: 
Sub test()
Dim c As Range, f As String, w As String
Set c = Range("A1")
'te donnes le nom de la feuille
f = c.Parent.Name
'te donne le nom du classeur
w = Sheets(f).Parent.Name
'ou
w = c.Parent.Parent.Name
With Workbooks(w)
    .Sheets(f).Activate
End With
End Sub

bon après midi
@+

Edition : manquait un bout du code
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Trouver un adresse Classeur+Feuille en partant d'une cellule

Bonjour,

Merci à tous les deux.

J'ai fait cela :

With Workbooks(DébutTableauàImporter.Parent.Parent.Name)
.Sheets(DébutTableauàImporter.Parent.Name).Activate
End With

et tout fonctiooooonne! : )

Cordialement

L'éditeur refuse de me corriger Activate, il garde l'espace!
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

R
  • Question Question
XL 2021 Recherche formule pour compléter une cellule a partir des données d'une autre feuille du classeur (16/03/2026)
2
Réponses
18
Affichages
551
laurent950
  • Question Question
XL 2016 ajouter, une nouvelle feuille avec le contenu d'une cellule
Réponses
7
Affichages
352
job75
M
  • Question Question
Microsoft 365 Chercher dernière valeur d'une ligne mais avec une particularité
Réponses
4
Affichages
338
Marie.
M
  • Question Question
Microsoft 365 Excel VBA: manipuler des fichiers partagés via Teams / Sharepoint
Réponses
2
Affichages
129
Eric 888
J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
510
job75
  • Résolu(e)
Microsoft 365 référence feuille en fonction du nom d'une cellule
Réponses
4
Affichages
431
tristan05
S
  • Question Question
XL 2013 enregistrer une feuille excel converti en pdf dans un répertoire selon la valeur d'une cellule
Réponses
5
Affichages
684
Phil69970
D
  • Résolu(e)
Microsoft 365 Graphique avec plage de données glissante en partant d'une date
Réponses
5
Affichages
1 K
Dégé59
D
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
645
safranien
S
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
873
piga25
B
  • Question Question
XL 2016 Ramener une plage de données en fonction d'une cellule
Réponses
11
Affichages
719
JHA
J
P
  • Question Question
XL 2021 Ajout/adaptation de code VBA sur feuille qui en contient déjà
Réponses
3
Affichages
427
Pierreavecunp
P
  • Question Question
XL 2021 VBA Ajout d'une valeur en heure dans une cellule
2
Réponses
21
Affichages
1 K
TooFatBoy
  • Résolu(e)
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
848
Lu76Fer
S
  • Résolu(e)
XL 2013 Questions déjà traitée ici mais... (Insérer cellule dans nom de PDF)
Réponses
10
Affichages
521
StéphaneDeLà
S
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
1 K
jeff1494
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
1 K
Nel'
N
Z
  • Question Question
Microsoft 365 Rendre visible un onglet en fonction du contenu d'une cellule
Réponses
2
Affichages
287
zorol
Z
D
  • Résolu(e)
XL 2021 Créer feuilles automatiquement dans un classeur a partir d'une liste et lien hypertexte
Réponses
6
Affichages
851
Phil69970
  • Résolu(e)
XL 2013 comment déterminer si un string correspond à l’adresse d'une cellule ou d'une plage
Réponses
4
Affichages
615
dysorthographie
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…