Macro lien dans une liste

Bonjour à tous,

J'ai une question macro (je débute)

Je vous explique déjà le fichier sur lequel je travaille.

C'est une liste (sur une seule feuille) de personne (avec nom/prénom, ...) d'environ 200 lignes sur laquelle je rajoute des lignes tous les jours à la fin de la liste puis que je trie par nom (avec des filtres)

J'aimerais pouvoir me rendre sur le premier nom des A ou G par exemple via un bouton.

Pour le moment j'ai 26 objets en haut de la page avec des liens hypertextes vers les cellules (genre B115 pour aller à G)

Sauf que le problème c'est qu'à chaque ligne rajoutée il me faut modifier tous les liens un par un, ça prend beaucoup trop de temps.

Du coup serait-il possible de faire une macro qui pourrait-il faire cela ? Je vous joins le fichier que j'ai commencé à faire.

J'espère que j'ai bien expliqué mon problème

Merci par avance pour votre aide.

Bonjour

Une autre approche pour régler ton problème de liens:

• Suppression des images de l'alphabet avec les liens
• en D2, une liste de validation de l'alphabet
• en E2, l'adresse du premier nom correspondant avec la formule

="B"&EQUIV(D1&"*";B:B;0)

A la sélection de la lettre, le code suivant (Code de Feuille)

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("D1")) Is Nothing Then
    Range("A1").Select
    ActiveWindow.SmallScroll Down:=Range(Range("E1").Value).Row - 1
    ActiveWindow.SmallScroll ToRight:=Range(Range("E1").Value).Column - 1
    End If
    Range(Range("E1").Value).Select
End Sub

Ceci pour une suggestion qu'il faudra améliorer pour les lettres manquantes, si tu es intéressé(e)

Cordialement

Bonjour,

ci-jointe une autre proposition en remplaçant les liens hypertexte par une macro.

Bonjour Cylannia,

Edit : Bonjour Amadéus , Thev

Voici ma contribution avec conservation des liens hypertext

thev a écrit :

Bonjour,

ci-jointe une autre proposition en remplaçant les liens hypertexte par une macro.

Bonjour THEV

Excellent j'étais encore en train de me demander comment récupérer l"info de la lettre sélectionnée.

Je rectifie mon fichier, car je me suis aperçu qu'il contenait une erreur: