Renvoi dynamique vers une autre cellule

[Peanut]

Bonjour,

dans une feuille j'ai une colonne qui référence des cellules d'une autre feuille :

Feuil1:
x abc 1 5 68
y def 2 55 9
z abc 54 66 4
 
Feuil2:
abc blabla
def blabla2
ghi blabla3

J'aimerais que quand on clique par exemple sur def dans la Feuil1, le curseur se positionne tout seul sur la cellule def dans la Feuil2, c'est possible ?

Merci.

[David2304]

Bonjour,

Je vois que 2 solutions :
- Tu connais la position de tes cellules et alors tu utilises des liens hypertextes
- Sinon il faut passer par vba avec Worksheet_SelectionChange

[Peanut]

Non, justement je ne connais pas la position des cellules.
Je vais faire une recherche sur Worksheet_SelectionChange alors, merci.

[David2304]

Tu peux essayer le code ci dessous

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If Target.Value = "" Then
Else
Worksheets("Feuil2").Activate
    For Each cel In Worksheets("Feuil2").Range("A1:Z100")
        If cel.Value = Target.Value Then
        Worksheets("Feuil2").Range(cel.Address).Select
        Exit Sub
        End If
    Next
End If
 
End Sub

On peut surement le perfectionner mais il fonctionne

[Peanut]

Ca fonctionne, merci beaucoup !

[Peanut]

Question subsidiaire :
je voudrais que ce script ne soit dispo que sur la colonne B:B
mais je n'arrive pas à trouver la syntaxe permettant de dire "si la cellule sélectionnée fait partie de telle colonne" ???

Ah si :

If Not Intersect(Target, Range("B:B")) Is Nothing Then