[VBA Excel] Lien vers une autre cellule et noms

Logiciel & apps Programmation
1

Besoin d’aide please, je bloque sur un truc à la con…

J’ai sur une première page une série de chiffres, genre :
132
145
167
187
198
264
…

Ces chiffres représentent des références vers des cellules d’une autre feuille :
Par exemple, j’ai une cellule sur la feuille 2 qui sera nommée “id132”, une autre “id145”

Ce que je veux faire c’est créer une colonne à côté de la première qui serait un lien vers la cellule en question…

j’ai essayé avec ça :

Range("A3").Select
Range(Selection, Selection.End(xlDown)).Select
areacount = Selection.Rows.Count
For A = 0 To areacount
    newrow = A + 3
    Range("B" & newrow).Select
    linktomap = "id" & Range("A" & newrow).Value
    ActiveCell.FormulaR1C1 = "=HYPERLINK(""linktomap"",""Voir"")"
Next

Le problème c’est qu’Excel ne semble pas vouloir d’une variable dans la fonction HYPERLINK…

Donc si vous avez une solution…

2

Bonjour,
TU utilise un fonctionnalité que je ne connaît pas, mais il y a des problèmes de typage dans ton code :wink:
linktomap = “id” & Range(“A” & newrow).Value
tu ajout un Range à un String?? en fait si tu veut le Range de “id768” quand newrow vaut 768, c’est plutôt
Range(“id” & newrow)
pas de problèem de ce côté désolé :smiley:
mais par contre dans la concaténation il y a un problème :smiley: :
ActiveCell.FormulaR1C1 = “=HYPERLINK(”"" & linktomap & “”",""" & Voir & “”")"

d plus dans l’aide Excel, pour créer un HyperLink, la syntaxe qu’ils donnent est “add”:

Alors comme je ne connaît pas, peut-être que tu utilise une fonction spéciale, mais déjà la correction des erreurs de syntaxes devrait t’aider.

:slight_smile:
edit: oops, en cours de correction.

3

Merci ça marche bcp mieux en passant pas hyperlink.add que par une formule…

Au final ça me donne ça, et ça marche nikel (si ça peut servir à d’autres :wink: )

    Dim linktomap As String
    Dim myCell As Range
    Dim myRng As Range
    
    With ActiveSheet
        Set myRng = .Range("M3", .Cells(.Rows.Count, "M").End(xlUp))
    End With
    
    For Each myCell In myRng.Cells
        linktomap = "id_" & myCell.Value
        ActiveSheet.Hyperlinks.Add Anchor:=myCell.Offset(0, 1), address:="", SubAddress:= _
        linktomap, TextToDisplay:="See"
        
    Next myCell
4

:super:
Et c’est cool de mettre la réponse pour les autres, merci. :slight_smile: