XL 2016 lien hypertexte dans un commentaire

[chifounou]

bonsoir,

est-ce possible ?

 

[Lone-wolf]

Bonsoir chifounou

Navré de te décevoir, mais ce n'est pas possible.

 

[chifounou]

Pas grave merci quand même

 

[Lone-wolf]

Re

Par contre avec une forme ça marche, mais il faut la personnaliser.

Sub CreeShape()
  Set s = Sheets(1).Shapes.AddShape(msoShapeRectangle, 10, 10, 180, 20)
  s.Name = "Menu1"
  With s
    .TextFrame.Characters.Text = "https://www.excel-downloads.com/"
    .TextFrame.Characters.Font.Color = vbBlue
    .TextFrame.Characters.Font.Underline = xlUnderlineStyleSingle
    .Fill.ForeColor.RGB = vbYellow
    .Line.ForeColor.RGB = vbRed
  End With
  Sheets(1).Hyperlinks.Add Anchor:=s, Address:="https://www.excel-downloads.com/"
End Sub

 

[chifounou]

Merci, je vais voir ça

 

[Lone-wolf]

Re

Ici avec 2 formes. Mais tu peux en mettre plus.

Option Explicit
Public s As Shape

Sub CreeShape()
    Set s = Sheets(1).Shapes.AddShape(msoShapeRectangle, 10, 10, 280, 20)
    s.Name = "Menu1"
    With s
        .TextFrame.Characters.Text = "https://www.excel-downloads.com/forums/forum-excel.7/"
        .TextFrame.Characters.Font.Color = vbBlue
        .TextFrame.Characters.Font.Underline = xlUnderlineStyleSingle
        .Fill.ForeColor.RGB = vbYellow
        .Line.ForeColor.RGB = vbRed
    End With
    Sheets(1).Hyperlinks.Add Anchor:=s, Address:="https://www.excel-downloads.com/forums/forum-excel.7/"

    Set s = Sheets(1).Shapes.AddShape(msoShapeRectangle, 10, 10, 214, 20)
    s.Name = "Menu2"
    With s
        .Top = s.Top + 23
        .TextFrame.Characters.Text = "https://www.excel-downloads.com/forums/"
        .TextFrame.Characters.Font.Color = vbBlue
        .TextFrame.Characters.Font.Underline = xlUnderlineStyleSingle
        .Fill.ForeColor.RGB = vbYellow
        .Line.ForeColor.RGB = vbRed
    End With
    Sheets(1).Hyperlinks.Add Anchor:=s, Address:="https://www.excel-downloads.com/forums/"

End Sub

 

[DoubleZero]

Bonjour, chifounou , Lone-wlf, le Forum,

Cf. la pièce jointe.

A bientôt

 

[Lone-wolf]

Bonjour DoubleZero , chifounou , le Forum

Bien vu ma chère . Je n'ai pas pensé au texte de remplacement, quoi que jamais utilisé.

 

[DoubleZero]

Re-bonjour,

...Bien vu...

Merci, P'tit Looou, mais je n'ai pas été capable d'insérer, dans le commentaire, un lien vers une cellule de l'onglet actif ou d'un autre.

A bientôt

 

[mapomme]

Bonsoir à toutes et tous,

Une possibilité expliquée dans le fichier joint mais avec l'inconvénient que le commentaire doit être visible.

 

[Lone-wolf]

Bonsoir à tous

Avec un peu de VBA. Sélectionne la cellule, clique sur le commentaire. Pour masquer clique en colonne D.

 

[chifounou]

L'embarras du choix suite à une pluie de réponses....MERCi je vais décortiquer tout celà tranquilement

 

[DoubleZero]

Bonjour, chifounou , Lone-wlf, mapomme , le Forum,

... inconvénient que le commentaire doit être visible.

Une autre version en pièce jointe.

A bientôt

 

[Lone-wolf]

Bonjour DoubleZero et le reste du monde