Discussion :

[TyphSK]

Bonjour,

Je reposte un message parce que ... Attention roman !
J'ai crée des boutons sur excel en VBA.

J'ai donc, dans Microsoft Excel Objet, par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub CommandButton92_Click()
Melun.Show False
 
     With CommandButton92
        If .BackColor = RGB(255, 255, 255) Then .BackColor = RGB(255, 255, 255) Else .BackColor = RGB(255, 255, 255)
    End With
End Sub

Puis dans une feuille, quelque chose d'écrit avec un lien vers internet. J'aimerais que quand je clique sur ce lien, ça ouvre une page internet.

En gros, quand je clique sur un bouton que j'ai crée dans Excel, j'aimerais que dans le texte qui s'ouvre, il y ait un lien cliquable vers internet.
J'espère être claire ...
Avez-vous une idée du code qu'il faut s'il vous plait ?

Belle journée.

[Transitoire]

Bonsoir,
pourriez vous SVP me dire à quoi sert la ligne de code ci-dessous?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If .BackColor = RGB(255, 255, 255) Then .BackColor = RGB(255, 255, 255) Else .BackColor = RGB(255, 255, 255)

Cordialement

RAJOUT: En ce qui concerne le lien hyper texte, il y a une discussion qui traite de ce sujet. Je pense que vous trouverez votre bonheur.
https://www.developpez.net/forums/d1.../#post10518710

[Theze]

Bonjour,

Ce qui revient à faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub CommandButton92_Click()
 
    Dim Lien As String
 
    CommandButton92.BackColor = RGB(255, 255, 255)
 
    Lien = "https://www.developpez.net/forums/d1901168/logiciels/microsoft-office/excel/macros-vba-excel/bouton-ouvre-texte-lien-lequel-on-cliquer/"
 
    'lien en B2
    ActiveSheet.Hyperlinks.Add Cells(2, 2), Lien, , , "TyphSK"
 
End Sub

[TyphSK]

Bonjour,

Merci pour votre réponse.
Je pense m'être mal exprimé.

Quand je suis sur Excel, il y a un bouton cliquable. Quand on clique dessus, une fenêtre s'ouvre avec un texte et un lien. J'aimerais que ça soit ce lien qui soit cliquable.

En gros, quand je suis en VBA, dans Microsoft Excel Objets, j'ai le code écrit dans mon premier message. Cela renvoie à une feuille intitulé "Melun" dans l'exemple de mon premier message. Et c'est dans cette feuille qu'il y a un texte ainsi qu'un lien vers internet mais lien non cliquable.

J'espère être plus claire ...

Merci encore !

[Theze]

Re,

Je résume ce que j'ai compris de ta demande.
Tu as un bouton ActiveX sur une feuille de calcul Excel, en cliquant dessus, tu lances un formulaire (UserForm) nommé Melun et sur cette Form, se trouve un contrôle (probablement un Label) qui contient un texte et c'est ce texte que tu voudrais cliquable pour afficher une page internet !
Ce que je te propose c'est de poser deux Label sur ta Form l'un sur l'autre dont celui de dessous est bien plus grand que celui de dessus. Celui de dessus est le Label cliquable qui contient le texte. Code à mettre dans le module de la Form. Au survol du Label cliquable le curseur se transforme en main, il est possible de trouver ce curseur en .ico ou .cur sur le Net (il doit être mis dans le dossier du classeur) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
Private Declare Function ShellExecute _
                Lib "shell32.dll" _
                Alias "ShellExecuteA" ( _
                ByVal hwnd As Long, _
                ByVal lpOperation As String, _
                ByVal lpFile As String, _
                ByVal lpParameters As String, _
                ByVal lpDirectory As String, _
                ByVal nShowCmd As Long) As Long
 
Private Sub LblFond_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 
    'remet le Label qui contient le lien normal (non souligné et en noir)
    LblLien.ForeColor = &H80000012
    LblLien.Font.Underline = False
 
End Sub
 
Private Sub LblLien_Click()
 
    'adapter l'adresse du lien
    ShellExecute 0, "open", "https://www.developpez.net/forums/f664/logiciels/microsoft-office/excel/macros-vba-excel/", "", "", 1
 
End Sub
 
Private Sub LblLien_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 
    'souligne et colore en bleu
    LblLien.Font.Underline = True
    LblLien.ForeColor = &H8000000D
 
End Sub
 
Private Sub UserForm_Initialize()
 
    'charge l'icône en forme de main qu'il est facile de se procurer sur internet (.ico ou .cur)
    LblLien.MousePointer = fmMousePointerCustom
    LblLien.MouseIcon = LoadPicture(ThisWorkbook.Path & "\" & "main.ico")
 
End Sub

[Transitoire]

Bonsoir,
Joli @Theze , J'utilise souvent les Labels même comme boutons pour la couleur de fond qui n'existe pas sur Mac office2011, mais j'avais pas pensé à ça.
Riche Idée
Peut-être même peut on avec le click du grand Label déclencher le Lien ?
Cordialement