Lien Hypertexte à une place bien déterminée
Résolu
danielc0 Messages postés 2196 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai 31 hypertextes de : C4 à AG4
À chaque fois que je clic sur l'une de ces cellules ou il y a un hypertexte je souterais que la cellule concernée se positionne toujours en A5. et pas en bas de la feuille
Est-ce possible ?
Voir exemple joint :
Windows / Chrome 142.0.0.0
9 réponses
-
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
-
Ça, d'accord
Voici un fichier explicatif -
Bonjour,
Il serait plus profitable d'avoir une explication de ce que vous voulez réaliser.
-
C'est dans le fichier du message <2> ?
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
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 Subhttps://www.swisstransfer.com/d/f56cc6b8-e1bd-48e1-89b6-48c7a8d05fb1
Clique sur une des cellules de C4:AG4.
Daniel
-
Bonjour,
C'est parfait, impeccable !!!
MerciSi je copie la macro dans mon fichier , ça ne fonctionne pas ??
-
Sans doute parce que la plage de nombres n'est pas C4:AG4 ?
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.
-
Il y a deux macros, la macro Worksheet_Change ne sert à rien (oubli). Tu peux la supprimer.
Daniel
