XL 2016 lien hypertexte suivant la valeur aléatoire d'une cellule

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 20 Juillet 2020

• #2

Bonjour Jmarc,
En PJ un essai avec un Worksheet_Change :

Code:

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        Range("A" & Target.Value).Select
    End If
Fin:
End Sub

Quand on tape une valeur en A1 on va à la ligne correspondante.

 

Pièces jointes

• Jmarc.xlsm

  13.3 KB · Affichages: 7

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Juillet 2020

• #3

Bonjour jmarc01, bienvenue sur XLD, sylvanu,

Pour créer le lien hypertexte :

VB:

Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target(1) >= 1 And Target(1) <= Rows.Count Then _
    Hyperlinks.Add Target, "", "'" & Me.Name & "'!A" & Int(Target): Target.Select
End Sub

Edit : la valeur en A1 doit être un nombre, seule la partie entière est utilisée.

A+

 

Dernière édition: 20 Juillet 2020

Vote positif 0 Vote négatif

J

jmarc01

XLDnaute Nouveau

• 20 Juillet 2020

• #4

salut
sylvanu

j ai du mal a l'appliquer voici une partie du dossier pour comprendre.

 

Vote positif 0 Vote négatif

J

jmarc01

XLDnaute Nouveau

• 20 Juillet 2020

• #5

salut
@sylvanu

j ai du mal a l'appliquer voici une partie du dossier pour comprendre.
j ai oublie la pièce jointe dsl

 

Pièces jointes

• Jmarc.xlsm

  113.7 KB · Affichages: 3

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 20 Juillet 2020

• #6

Bonjour Jmarc, Job,
C'était bien expliqué ... mais mal lu.
Là ça marche mieux :

VB:

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        Ligne = 1 + Application.Match([A1], Range("A2:A65000"), 0)
        [B1] = "Ligne " & Ligne
        Range("A" & Ligne).Select
    End If
Fin:
End Sub

J'ai rajouté le N° de ligne. Si inutile supprimez la ligne [B1] = "Ligne " & Ligne

 

Pièces jointes

• Jmarc2.xlsm

  106.9 KB · Affichages: 10

Vote positif 0 Vote négatif

Solution

J

jmarc01

XLDnaute Nouveau

• 20 Juillet 2020

• #7

parfait cela fonctionne parfaitement .
merci beaucoup

 

Vote positif 0 Vote négatif