Lien hypertexte

Bonjour,

je voudrais que chaque valeur

qui se trouve dans les colonne A,B et C

se transforme en un lien hypertexte

lien, qui est situé dans ce classeur

ce lien donnant cible a l'adresse d'une cellule du type :

A(valeur de la cellule contenant le lien)

je sais que l'ont peut faire a la main , est t il possible de le faire sous forme d'une formule incrémentable ?

exemple

valeur de la cellule situé en C15 : 31

adresse de la cellule cible du lien = A+31 = A31

Cordialement

Bonjour,

Voici une possibilité de "lien" via un événement VBA qui fonctionne pour toutes les cellules des colonnes A, B, C dont la valeur est numérique. Cela t'évitera de recopier un grand nombre de fois des formules supplémentaires :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If ActiveCell.Column >= 1 And ActiveCell.Column <= 3 And IsNumeric(ActiveCell.Value) And ActiveCell.Value <> "" Then 'Si colonne A,B,C + valeur numérique
         Application.EnableEvents = False
        Cells(ActiveCell.Value, 1).Activate
        Application.EnableEvents = True
    End If
End Sub

Cordialement,

bonjour,

merci pour le code

c'est génial ! On peut toujours modifier la valeur des cellules ?

Cordialement

Bonjour,

Par exemple, tu peux désactiver cet événement en ajoutant une condition :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If ActiveCell.Column >= 1 And ActiveCell.Column <= 3 And IsNumeric(ActiveCell.Value) And ActiveCell.Value <> "" And Range("F1") = "" Then 'Si colonne A,B,C
         Application.EnableEvents = False
        Cells(ActiveCell.Value, 1).Activate
        Application.EnableEvents = True
    End If
End Sub

Ici, lorsque tu entreras une valeur dans F1, l'événement sera désactivé et tu pourras modifier les cellules des 3 colonnes sans être gêné par l'événement.

Bon dimanche,