Liens dynamique entre cellule

Bonjour à tous,

Je suis novice en Excel (Macro), mais je le pratique tous les jours...

J'écris des process dans un fichiers Excel.

Je vous explique :

Ma colonne "A" qui contient des numéros de références. (1000,1001,1002...etc.)

Ma colonne "B" Contient des action possible dans mon process, c'est essentiellement du texte.

Ma colonne "C", elle fait appel (sous la forme '=A12') à une des référence dans la colonne "A" en fonction de l'action prise sur la ligne dans la colonne "B".

J'aimerais, (si possible bienfur) lorsque la colonne "C" est remplie, mettre en place un lien hypertexte pointant vers la cellule en colonne "A" avec le bon numéro...

Pour le moment je fais des "clic droit, Hyperliens, et je rentre le numéro de la cellule concerné..." Problème est que si il y a la moindre modif (et il y en a...) je suis mort...

Je joint un fichier dans lequel il y a un bou de scénario...

J'espère que vous allez pouvoir m'aider.

Merci,

Sam

Bonsoir et bienvenue,

Sans formule ni lien

double clic sur la cellule colonne "C"

dans le VBE de la feuille

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Lg%
    If Not Application.Intersect(Target, Range("c3:c" & [a65536].End(xlUp).Row + 3)) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        If Target = "" Then Exit Sub
        Lg = Application.Match(Target, Columns(1), 0)
        Cells(Lg, "a").Activate
    End If
End Sub

Amicalement

Claude

Bonsoir Claude,

C'est magnifique !!!!! Extrat ! TOP ! Mon chef va être content !

Merci beaucoup pour ton aide.

A bientôt, et super le site !

Aicalement,

Sam

re,

Ajoute cette ligne au cas ou le N° n'existerait pas ou mal écrit

On Error Resume Next

ce qui donne

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Lg%
    If Not Application.Intersect(Target, Range("c3:c" & [a65536].End(xlUp).Row + 3)) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        If Target = "" Then Exit Sub
        On Error Resume Next
        Lg = Application.Match(Target, Columns(1), 0)
        Cells(Lg, "a").Activate
    End If
End Sub

Pour solder le poste, c'est ici