XL 2019 Bouton lien dynamique

[Freedal]

Bonjour à tous
J'ai créé un lien hypertexte dynamique qui renvoie vers la dernière valeur d'une colonne : =LIEN_HYPERTEXTE("#'"&C2&"'!"&ADRESSE(EQUIV(RECHERCHE(9^9;C:C);C:C);3;1);"Dernière valeur")
Je souhaiterai plutôt un bouton avec cette fonction mais je sais pas faire.
Merci de votre aide.

 

[sylvanu]

Bonjour Freedal,
En PJ avec une petite macro.

 

[Freedal]

Merci Sylvanu,
ça fonctionne trés bien mais la macro reprend le nom de la feuille et si on renomme la feuille, ça ne fonctionne plus.
Sur cette feuille il y a une macro qui renomme la feuille en référence à la cellule C2.

 

[sylvanu]

Comment le deviner ?
Mettez en référence la feuille active :

ActiveSheet.Cells(Dernier, 3).Select

 

[Freedal]

Désolé sylvanu, je connais pas le VBA, j'ai essayé mais ça ne fonctionne plus.

 

[sylvanu]

Oups! désolé j'ai vu du VBA dans la feuille, donc je ne me suis pas posé de question.
En PJ ça marche quelque soit le nom de la feuille.

 

[Freedal]

Merci Sylvanu,
ça fonctionne trés bien.
La macro renvoie bien sur le derniére valeur de la colonne qui s'affiche en milieu de page,
pour pousser le probléme, crois tu qu'il serait possible que la derniére valeur s'affiche en bas de page pour avoir une vue sur les valeurs antérieures et ne pas voir les cellules vides ?

 

[sylvanu]

Ca dépend de votre ecran et de votre zoom. Quand A1 est en haut,qu'elle est la dernière cellule du bas visible sur votre ecran .

 

[Freedal]

La ligne 52

 

[sylvanu]

Bonsoir,
Pour modifier le décalage : Appuyer sur ALT + F11, cliquez sur Modules, et modifiez la valeur de Décalage. Puis fermer cette fenêtre.

Sub AtteindreFin()
    Decalage = 23 ' ou 26 si menus réduits.
    Dernier = ActiveSheet.Range("C4:C10000").End(xlDown).Row
    ActiveSheet.Cells(Dernier - Decalage, 3).Select
End Sub

Vous pouvez encore gagner quelques lignes si vous ne connaissez pas cette astuce.
Faire double clic sur Accueil et le menu se réduit. Vous gagnez 6 lignes.

 

[Freedal]

Merci Sylvanu ,
ça fonctionne à merveille et grâce à toi j'ai pu apprendre des choses concrètes et avancer.
Trés sympa de ta part, toujours un peu frustrant de ne remercier que par un simple merci une personne qui vous aide.
Je ne viens pas ici souvent mais je vais faire un don .
Bonne soirée.