Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
pellet15
La Macro suivant me permet de le faire avec double clic. comment la modifier pour l'exécuter avec un bouton avec la donné en "D2".
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True Dim adresse As String If Not Intersect(Target, Range("D2")) Is Nothing Then If Target.Cells.Count = 1 And Target.Value <> "" Then adresse = "http://maps.google.com/maps?q=" & Target.Offset & "&t=h&hl=fr" Internet adresse End If End If End Sub
Sub Internet(adresse As String) Dim IE As Object Set IE = CreateObject("internetexplorer.application") IE.Visible = True: IE.Top = 0: IE.Left = 0 IE.Navigate adresse End Sub
La Macro suivant me permet de le faire avec double clic.
comment la modifier pour l'exécuter avec un bouton avec la donné en
"D2".
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
Cancel = True
Dim adresse As String
If Not Intersect(Target, Range("D2")) Is Nothing Then
If Target.Cells.Count = 1 And Target.Value <> "" Then
adresse = "http://maps.google.com/maps?q=" & Target.Offset &
"&t=h&hl=fr"
Internet adresse
End If
End If
End Sub
Sub Internet(adresse As String)
Dim IE As Object
Set IE = CreateObject("internetexplorer.application")
IE.Visible = True: IE.Top = 0: IE.Left = 0
IE.Navigate adresse
End Sub
La Macro suivant me permet de le faire avec double clic. comment la modifier pour l'exécuter avec un bouton avec la donné en "D2".
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True Dim adresse As String If Not Intersect(Target, Range("D2")) Is Nothing Then If Target.Cells.Count = 1 And Target.Value <> "" Then adresse = "http://maps.google.com/maps?q=" & Target.Offset & "&t=h&hl=fr" Internet adresse End If End If End Sub
Sub Internet(adresse As String) Dim IE As Object Set IE = CreateObject("internetexplorer.application") IE.Visible = True: IE.Top = 0: IE.Left = 0 IE.Navigate adresse End Sub
Modeste
Bonsour® pellet15 avec ferveur ;o))) vous nous disiez :
affecter la macro ci-dessous à un bouton quelconque Sub BoutonX_click() Dim adresse As String adresse = "http://maps.google.com/maps?q=" & [D2] & "&t=h&hl=fr" Internet adresse End Sub
nb: pour une meilleure portabilité et afin d'eviter de faire reference au nom de la feuille, il serait préférable de nommer la cellule D2
-- ;o))) @+
Les news à la source !!! news://news.microsoft.com/microsoft.public.fr.excel et répondez OUI
n'oubliez pas les FAQ :http://www.excelabo.net http://dj.joss.free.fr/faq.htm http://www.faqoe.com http://faqword.free.fr
Bonsour® pellet15 avec ferveur ;o))) vous nous disiez :
affecter la macro ci-dessous à un bouton quelconque
Sub BoutonX_click()
Dim adresse As String
adresse = "http://maps.google.com/maps?q=" & [D2] & "&t=h&hl=fr"
Internet adresse
End Sub
nb:
pour une meilleure portabilité et afin d'eviter de faire reference au nom de
la feuille, il serait préférable de nommer la cellule D2
--
;o)))
@+
Les news à la source !!!
news://news.microsoft.com/microsoft.public.fr.excel
et répondez OUI
n'oubliez pas les FAQ :http://www.excelabo.net
http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
Bonsour® pellet15 avec ferveur ;o))) vous nous disiez :
affecter la macro ci-dessous à un bouton quelconque Sub BoutonX_click() Dim adresse As String adresse = "http://maps.google.com/maps?q=" & [D2] & "&t=h&hl=fr" Internet adresse End Sub
nb: pour une meilleure portabilité et afin d'eviter de faire reference au nom de la feuille, il serait préférable de nommer la cellule D2
-- ;o))) @+
Les news à la source !!! news://news.microsoft.com/microsoft.public.fr.excel et répondez OUI
n'oubliez pas les FAQ :http://www.excelabo.net http://dj.joss.free.fr/faq.htm http://www.faqoe.com http://faqword.free.fr
Daniel
Bonsoir Modeste
Très bien cela fonctionne .
Merci
"Modeste" a écrit dans le message de news:
Bonsour® pellet15 avec ferveur ;o))) vous nous disiez :
affecter la macro ci-dessous à un bouton quelconque Sub BoutonX_click() Dim adresse As String adresse = "http://maps.google.com/maps?q=" & [D2] & "&t=h&hl=fr" Internet adresse End Sub
nb: pour une meilleure portabilité et afin d'eviter de faire reference au nom de la feuille, il serait préférable de nommer la cellule D2
-- ;o))) @+
Les news à la source !!! news://news.microsoft.com/microsoft.public.fr.excel et répondez OUI
n'oubliez pas les FAQ :http://www.excelabo.net http://dj.joss.free.fr/faq.htm http://www.faqoe.com http://faqword.free.fr
Bonsoir Modeste
Très bien cela fonctionne .
Merci
"Modeste" <nomail@nomail.net> a écrit dans le message de news:
OwtvkwIAGHA.344@TK2MSFTNGP11.phx.gbl...
Bonsour® pellet15 avec ferveur ;o))) vous nous disiez :
affecter la macro ci-dessous à un bouton quelconque
Sub BoutonX_click()
Dim adresse As String
adresse = "http://maps.google.com/maps?q=" & [D2] & "&t=h&hl=fr"
Internet adresse
End Sub
nb:
pour une meilleure portabilité et afin d'eviter de faire reference au nom
de la feuille, il serait préférable de nommer la cellule D2
--
;o)))
@+
Les news à la source !!!
news://news.microsoft.com/microsoft.public.fr.excel
et répondez OUI
n'oubliez pas les FAQ :http://www.excelabo.net
http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
Bonsour® pellet15 avec ferveur ;o))) vous nous disiez :
affecter la macro ci-dessous à un bouton quelconque Sub BoutonX_click() Dim adresse As String adresse = "http://maps.google.com/maps?q=" & [D2] & "&t=h&hl=fr" Internet adresse End Sub
nb: pour une meilleure portabilité et afin d'eviter de faire reference au nom de la feuille, il serait préférable de nommer la cellule D2
-- ;o))) @+
Les news à la source !!! news://news.microsoft.com/microsoft.public.fr.excel et répondez OUI
n'oubliez pas les FAQ :http://www.excelabo.net http://dj.joss.free.fr/faq.htm http://www.faqoe.com http://faqword.free.fr
