Lien Hypertexte à une place bien déterminée

Il y a deux macros, la macro Worksheet_Change ne sert à rien (oubli). Tu peux la supprimer.

Daniel

Quand je change la valeur de B4, ça me met le message suivant:

Erreur de compilation
Bloc If sans End IF (j'ai ajouté End If dans la macro) c'est bon.

D'ailleurs pourquoi, il y a les deux même dans "Feuil 1"
 

Finalement, au lieu d'ajouter les macros, j'ai copié la feuille.
Ça a l'air d'aller.
 

Sans doute parce que la plage de nombres n'est pas C4:AG4 ?

Daniel

Bonjour,

C'est parfait, impeccable !!!
Merci

Si je copie la macro dans mon fichier , ça ne fonctionne pas ??

Une solution sans hyperlien avec macro. Code à mettre dans le module de la feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim Ligne As Variant
  If Target.Count > 1 Then Exit Sub
  If Intersect(Target, [C4:AG4]) Is Nothing Then Exit Sub
  Ligne = Application.Match(Target, [A:A], 0)
  If IsNumeric(Ligne) Then
    Application.EnableEvents = False
    Application.Goto Range("A" & Ligne), True
    Application.EnableEvents = True
  End If
End Sub

https://www.swisstransfer.com/d/f56cc6b8-e1bd-48e1-89b6-48c7a8d05fb1

Clique sur une des cellules de C4:AG4.

Daniel

C'est dans le fichier du message <2> ?

Bonjour,

Il serait plus profitable d'avoir une explication de ce que vous voulez réaliser.

Ça, d'accord
Voici un fichier explicatif

Explication

Bonjour,

Sélectionne une de ces cellules. Fais un clic droit dessus et choisis "modifier le lien hypertexte". Dans le champ "Tapez la référence de la cellule, indique A5.

Daniel