Lien hypertexte

Bonjour,

je voudrais insérer un lien hypertexte "Test" dans la forme que je créé à partir de la macro Test.

Pourriez-vous me donner la syntaxe exacte

D'avance merci

Bonne journée

Bonjour,

A ma connaissance, il n'est pas possible de mettre un lien hypertexte sur une forme

En revanche, vous pouvez lui attribuer une sub qui fera le job

Bonjour,

merci pour la réponse.

Je pensais qu'il était possible.

Bonne journée

Bien amicalement

Bonjour,

A tester

Sub test()
    ' test Macro
    Dim forme As Shape

    With ActiveSheet
        ' Ajout d'une forme (ovale)
        Set forme = .Shapes.AddShape(msoShapeOval, 215, 150, 75, 35)
        ' Ajout d'un texte à la forme
        forme.TextFrame2.TextRange.Characters.Text = "Test"
    End With

    ' Mise en forme du texte
    With forme.TextFrame2.TextRange
        .Font.Bold = msoTrue
        .Font.Fill.ForeColor.RGB = RGB(0, 0, 0)
        .Font.Size = 14
    End With

    ' Remplissage et bordure
    forme.Fill.ForeColor.RGB = RGB(204, 193, 218)
    forme.Line.Weight = 1

    ' Ajout d'un lien hypertexte vers l'onglet "Test" sans changer de feuille
    ActiveSheet.Hyperlinks.Add Anchor:=forme, _
        Address:="", _
        SubAddress:="Test!A1", _
        TextToDisplay:="Test"

End Sub

Slts

Bonjour,

génial, cela fonctionne parfaitement

Mille mercis.

Bonne journée

Bien amicalement