M
magoo
Guest
Comment écrire en vba dans une cellule un lien hypertext qui déclenche une macro ?
Dans mon appli, j'ai des calculs en vba qui affiche dans une feuille des numéros de téléphone. Parallèlement j'ai une macro qui déclenche un numéroteur téléphonique. Je souhaiterais dirrectement cliquer sur mes numéros sous forme de lien hypertext pour déclencher mon numéroteur.
Sub CreationHyperlienTéléphonique()
MaMacro = Telephone_Click ' Nom de ma macro
TxtAffiché = Range("A1") ' A1 correspond au numéro de téléphone
Feuil7.Hyperlinks.Add Anchor:=Range("g7"), Address:=submonLien, TextToDisplay:=TxtAffiché
End Sub
Merci de votre aide
Magoo
Dans mon appli, j'ai des calculs en vba qui affiche dans une feuille des numéros de téléphone. Parallèlement j'ai une macro qui déclenche un numéroteur téléphonique. Je souhaiterais dirrectement cliquer sur mes numéros sous forme de lien hypertext pour déclencher mon numéroteur.
Sub CreationHyperlienTéléphonique()
MaMacro = Telephone_Click ' Nom de ma macro
TxtAffiché = Range("A1") ' A1 correspond au numéro de téléphone
Feuil7.Hyperlinks.Add Anchor:=Range("g7"), Address:=submonLien, TextToDisplay:=TxtAffiché
End Sub
Merci de votre aide
Magoo