Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel double clic pour deux procédure

double clic pour deux procédure

2 réponses
Avatar
pellet15
Bonjour
Les macros suivante me permet de voir (en double clis sur une cellule
en "h15 =E0 h500")
avec maps.google.(les cellules contiennent des donn=E9s Longitude
Latitude.)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
Cancel =3D True
Dim adresse As String
If Not Intersect(Target, Range("h15:h500")) Is Nothing Then
If Target.Cells.Count =3D 1 And Target.Value <> "" Then
adresse =3D "http://maps.google.com/maps?q=3D" & Target.Offset(, 3)
& "&t=3Dh&hl=3Dfr"
Internet adresse
End If
End If
End Sub
Sub Internet(adresse As String)
Dim IE As Object
Set IE =3D CreateObject("internetexplorer.application")
IE.Visible =3D True: IE.Top =3D 0: IE.Left =3D 0
IE.Navigate adresse
End Sub

Je voudrai faire ex=E9cuter la proc=E9dure suivante en double clic su
"i15:i500".
comment l'int=E8gr=E9 dans la premi=E8re macro???

MyAppID =3D Shell("C:\Program Files\Garmin\nRoute\nRoute.exe", 1)
SendKeys "{ESC}", True
SendKeys "{ESC}", True
SendKeys "{F4}", True
SendKeys "{home}", True
SendKeys "^g", True
SendKeys "^v", True
SendKeys "{enter}", True
Set Pressp =3D Nothing
Application.ScreenUpdating =3D True


Merci
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
Daniel
Bonsoir.
Si j'ai bien compris le sens de ta question :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Not Intersect(Target, Range("h15:h500")) Is Nothing Then
'*** première procédure
ElseIf Not Intersect(Target, Range("h15:h500")) Is Nothing Then
'*** seconde procédure
End If
End Sub

Cordialement.
Daniel
"pellet15" a écrit dans le message de news:

Bonjour
Les macros suivante me permet de voir (en double clis sur une cellule
en "h15 à h500")
avec maps.google.(les cellules contiennent des donnés Longitude
Latitude.)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
Cancel = True
Dim adresse As String
If Not Intersect(Target, Range("h15:h500")) Is Nothing Then
If Target.Cells.Count = 1 And Target.Value <> "" Then
adresse = "http://maps.google.com/maps?q=" & Target.Offset(, 3)
& "&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

Je voudrai faire exécuter la procédure suivante en double clic su
"i15:i500".
comment l'intègré dans la première macro???

MyAppID = Shell("C:Program FilesGarminnRoutenRoute.exe", 1)
SendKeys "{ESC}", True
SendKeys "{ESC}", True
SendKeys "{F4}", True
SendKeys "{home}", True
SendKeys "^g", True
SendKeys "^v", True
SendKeys "{enter}", True
Set Pressp = Nothing
Application.ScreenUpdating = True


Merci
Avatar
pellet15
Bonsoir Daniel

J'ai bricoler cette macros mais seulement lorsque je double clic sur
colonne h que
maps.google s'exécute mais je voudrai aussi que lorsque je double clic
sur la colonne i
s'exécuter le programe de Garmin.
Ou est mon erreur??

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
Cancel = True
Dim adresse As String
If Not Intersect(Target, Range("h15:h500")) Is Nothing Then
If Target.Cells.Count = 1 And Target.Value <> "" Then
adresse = "http://maps.google.com/maps?q=" & Target.Offset(, 3)
& "&t=h&hl=fr"
Internet adresse
ElseIf Not Intersect(Target, Range("i15:i500")) Is Nothing Then
ActiveCell.Offset(0, 3).Copy
MyAppID = Shell("C:Program FilesGarminnRoutenRoute.exe", 1)
SendKeys "{ESC}", True
SendKeys "{ESC}", True
SendKeys "{F4}", True
SendKeys "{home}", True
SendKeys "^g", True
SendKeys "^v", True
SendKeys "{enter}", True
Set Pressp = Nothing
Application.ScreenUpdating = True
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

Merci