XL 2016 Positionnement dans un fichier

Bandoulier

XLDnaute Junior
Bonjour à tous,

Voilà mon problème.
J'ai un fichier Excel A qui représente un arbre généalogique.
Dans chacune des cellules de l'arbre il y a le nom d'un ancêtre.
Dans un autre fichier Excel B il y a la liste de chaque ancêtre suivi de renseignements sur ce dernier (tout sur la même ligne).
Je voudrais qu'en cliquant sur un ancêtre du fichier A, le fichier B s'ouvre et sélectionne la ligne de l'ancêtre en question.
Merci d'avance si vous pouvez m'aider
Cordialement
 

Victor21

XLDnaute Barbatruc
Bonjour Bandoulier.

Insérer dans chaque cellule de A un lien hypertext pointant vers la ligne correspondante du fichier B.
Une alternative pourrait être de mettre en commentaire des cellules de A les informations de B.
Une autre serait d'utiliser une vraie application de généalogie (il en existe des gratuites, et les payantes ne sont pas très onéreuses).
 

job75

XLDnaute Barbatruc
Bonjour Bandoulier, Patrick,

Utiliser des liens hypertextes est une très bonne méthode.

Le double-clic va bien aussi, voyez cette macro :
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim x$, fichier$, cible As Range
x = Application.Trim(Replace(CStr(Target(1)), vbLf, " ")) 'SUPPRESPACE
If x = "" Then Exit Sub
fichier = ThisWorkbook.Path & "\B.xlsx" 'chemin et nom à adapter
Application.ScreenUpdating = False
Application.DisplayAlerts = False 'si le fichier est ouvert
With Workbooks.Open(fichier).Sheets(1)
    Set cible = .[A:A].Find(x, , xlValues, xlWhole)
    If cible Is Nothing Then .Parent.Close: Exit Sub
End With
Application.Goto cible, True 'cadrage
End Sub
Fichiers joints.

A+
 

Pièces jointes

  • A.xlsm
    21.4 KB · Affichages: 35
  • B.xlsx
    14.1 KB · Affichages: 32

Bandoulier

XLDnaute Junior
Un grand merci Job75.
Avec cette macro je vais me débrouiller.
95% du problème est résolu ... je me charge des 5% restants.

Merci aussi à toi Victor 21
J'avais moi aussi pensé aux liens hypertextes, mais je ne voyais pas comment le focus allait se positionner sur l'ancêtre recherché dans la liste.
Quant à mettre les renseignements en commentaire, je ne préfère pas car ces fichiers sont destinés à des membres de ma famille allergiques à l'informatique (moins il y aura de manips mieux ça sera)
Enfin pour l'appli généalogie, je suis déjà sur Généanet qui est très bien ... pour moi, mais par pour les membres de ma famille (pour les mêmes raisons)
Merci tout de même de t'être penché sur mon problème qui a été résolu par Job75

Cordialement
 

job75

XLDnaute Barbatruc
Bonjour Bandoulier, Patrick,
J'avais moi aussi pensé aux liens hypertextes, mais je ne voyais pas comment le focus allait se positionner sur l'ancêtre recherché dans la liste.
En créant le lien hypertexte il faut cliquer sur "Signet" pour préciser la feuille et la cellule.

Fichiers .xlsx joints.

A+
 

Pièces jointes

  • A.xlsx
    14.6 KB · Affichages: 40
  • B.xlsx
    14.1 KB · Affichages: 31

Discussions similaires

Statistiques des forums

Discussions
312 453
Messages
2 088 551
Membres
103 881
dernier inscrit
malbousquet