Discussion :

[Olive2011]

Bonjour,

je ne programme pas du tout en VBA, mais en faisant des recherches, j'ai compris que la solution à mon problème passait par VBA. J'en appelle donc à vos compétences!

Mon fichier est structuré comme suit:
- j'ai un fichier Excel (voir fichier joint) qui continent deux feuilles "Liste Innos" et "Détail Innos"
- dans la feuille "Liste Innos", j'ai une liste d'innovations qui sont numérotées (dans mon fichier de 1 à 6, mais je vais en avoir de plus en plus chaque jour)
- dans la feuille "Détail Innos", j'ai, sur ces mêmes innovations, des informations plus détaillées: pour une même innovation, je peux avoir plusieurs lignes
- dans chaque feuille, la 1e colonne est le numéro de l'innovation

Ce que je voudrais arriver à faire:
- si je clique sur l'innovation N°1 dans la"Liste Innos", je voudrais basculer automatiquement sur le 1e enregistrement de l'innovation N°1 dans "Détail Innos"
- et inversement, si je clique sur l'une des lignes de l'innovation N°1 dans "Détail Innos", je voudrais basculer automatiquement sur l'innovation N°1 dans "Liste Innos"

Merci de votre aide.
Fichier Innos.xlsx

[Menhir]

Ca peut se faire sans VBA en utilisant la fonction LIEN_HYPERTEXTE().
Lire ça : https://support.microsoft.com/fr-fr/...7-7de9b76f577f

L'adresse peut être construite en utilisant une fonction EQUIV() pour déterminer le numéro de ligne.

[Olive2011]

Bonjour,

avec un lien hypertexte, on lie une cellule précise => si le fichier est trié par un utilisateur, ça ne fonctionne plus.
Est-ce bien ça? J'ai bien compris le principe de cette fonction?
Si c'est bien ça, alors je ne peux pas utiliser cette fonction.
Une autre idée?

Merci bcp pour votre aide.

[Menhir]

avec un lien hypertexte, on lie une cellule précise => si le fichier est trié par un utilisateur, ça ne fonctionne plus.

C'est pourquoi j'ai conseillé de construire l'adresse en utilisant une fonction EQUIV().
Dans LIEN_HYPERTEXTE, l'adresse est constitué d'une simple chaine de caractère. On peut donc la construire en utilisant des fonctions de recherche comme EQUIV.

[BENNASR]

bonjour
à tester (double clic)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.EnableEvents = False
Dim F1 As Worksheet
Dim f2 As Worksheet
Set F1 = Sheets("Liste innos")
Set f2 = Sheets("Détail innos")
If Not Application.Intersect(Target, F1.Range("A2:A" & F1.Cells(Rows.Count, 1).End(xlUp).Row)) Is Nothing Then
On Error Resume Next
With ActiveCell
Set C = f2.Range("A2:A2" & f2.Cells(Rows.Count, 1).End(xlUp).Row).Find(ActiveCell.Value, LookIn:=xlValues, lookat:=xlWhole)
  If Not C Is Nothing Then
  f2.Select
  f2.Cells(C.Row, "A").Select
  End If
End With
End If
Application.EnableEvents = True
End Sub

idem pour feuille 2

[Olive2011]

Hello,

ça fonctionne parfaitement! C'est exactement ce dont j'avais besoin!!!!
Merci 1000 fois pour le coup de main, ça va me simplifier la vie

Olive