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
isabelle
bonjour pellet15,
essaie comme ça,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) xs_RangeLow = 2 xs_RangeHi = 9999 Set Target = ActiveCell Cancel = True Dim adresse As String If Not Intersect(Target, Range("C" & xs_RangeLow & ":C" & xs_RangeHi)) Is Nothing Then If Target.Cells.Count = 1 And Target.Value <> "" Then adresse = "http://maps.google.com/maps?q=" & Target.Offset(0, 18) & "&t=h&hl=fr" ' Internet adresse End If ElseIf Not Intersect(Target, Range("U" & xs_RangeLow & ":U" & xs_RangeHi)) Is Nothing Then ActiveCell.Offset(0, 0).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 Sub
isabelle
Bonsoir à tous
J'ai une macro qui bloc, je ne trouve pas l'erreur , quoi faire?
Dans le fichier suisvant quand ont double-Clic sur la donner GPS ( "U" en Bleu) le programe "nRoute" nous montre l'endroit.
Mon Fichier: http://cjoint.com/?bybbDYsFQp
Merci
bonjour pellet15,
essaie comme ça,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
xs_RangeLow = 2
xs_RangeHi = 9999
Set Target = ActiveCell
Cancel = True
Dim adresse As String
If Not Intersect(Target, Range("C" & xs_RangeLow & ":C" & xs_RangeHi)) Is Nothing Then
If Target.Cells.Count = 1 And Target.Value <> "" Then
adresse = "http://maps.google.com/maps?q=" & Target.Offset(0, 18) & "&t=h&hl=fr"
' Internet adresse
End If
ElseIf Not Intersect(Target, Range("U" & xs_RangeLow & ":U" & xs_RangeHi)) Is Nothing Then
ActiveCell.Offset(0, 0).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 Sub
isabelle
Bonsoir à tous
J'ai une macro qui bloc, je ne trouve pas l'erreur ,
quoi faire?
Dans le fichier suisvant quand ont double-Clic sur la donner GPS ( "U"
en Bleu)
le programe "nRoute" nous montre l'endroit.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) xs_RangeLow = 2 xs_RangeHi = 9999 Set Target = ActiveCell Cancel = True Dim adresse As String If Not Intersect(Target, Range("C" & xs_RangeLow & ":C" & xs_RangeHi)) Is Nothing Then If Target.Cells.Count = 1 And Target.Value <> "" Then adresse = "http://maps.google.com/maps?q=" & Target.Offset(0, 18) & "&t=h&hl=fr" ' Internet adresse End If ElseIf Not Intersect(Target, Range("U" & xs_RangeLow & ":U" & xs_RangeHi)) Is Nothing Then ActiveCell.Offset(0, 0).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 Sub
isabelle
Bonsoir à tous
J'ai une macro qui bloc, je ne trouve pas l'erreur , quoi faire?
Dans le fichier suisvant quand ont double-Clic sur la donner GPS ( "U" en Bleu) le programe "nRoute" nous montre l'endroit.
Mon Fichier: http://cjoint.com/?bybbDYsFQp
Merci
pellet15
Bonsoir isabelle
Comme d'abitude tu a la bonne réponse. Gros Merci :-))))))
On 23 jan, 20:10, isabelle wrote:
bonjour pellet15,
essaie comme ça,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) xs_RangeLow = 2 xs_RangeHi = 9999 Set Target = ActiveCell Cancel = True Dim adresse As String If Not Intersect(Target, Range("C" & xs_RangeLow & ":C" & xs_RangeHi)) Is Nothing Then If Target.Cells.Count = 1 And Target.Value <> "" Then adresse = "http://maps.google.com/maps?q=" & Target.Offset(0 , 18) & "&t=h&hl=fr" ' Internet adresse End If ElseIf Not Intersect(Target, Range("U" & xs_RangeLow & ":U" & xs_RangeH i)) Is Nothing Then ActiveCell.Offset(0, 0).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 Sub
isabelle
Bonsoir à tous
J'ai une macro qui bloc, je ne trouve pas l'erreur , quoi faire?
Dans le fichier suisvant quand ont double-Clic sur la donner GPS ( "U" en Bleu) le programe "nRoute" nous montre l'endroit.
Mon Fichier: http://cjoint.com/?bybbDYsFQp
Merci- Masquer le texte des messages précédents -- Afficher le text e des messages précédents -
Bonsoir isabelle
Comme d'abitude tu a la bonne réponse.
Gros Merci :-))))))
On 23 jan, 20:10, isabelle <i@v> wrote:
bonjour pellet15,
essaie comme ça,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
xs_RangeLow = 2
xs_RangeHi = 9999
Set Target = ActiveCell
Cancel = True
Dim adresse As String
If Not Intersect(Target, Range("C" & xs_RangeLow & ":C" & xs_RangeHi)) Is Nothing Then
If Target.Cells.Count = 1 And Target.Value <> "" Then
adresse = "http://maps.google.com/maps?q=" & Target.Offset(0 , 18) & "&t=h&hl=fr"
' Internet adresse
End If
ElseIf Not Intersect(Target, Range("U" & xs_RangeLow & ":U" & xs_RangeH i)) Is Nothing Then
ActiveCell.Offset(0, 0).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 Sub
isabelle
Bonsoir à tous
J'ai une macro qui bloc, je ne trouve pas l'erreur ,
quoi faire?
Dans le fichier suisvant quand ont double-Clic sur la donner GPS ( "U"
en Bleu)
le programe "nRoute" nous montre l'endroit.
Mon Fichier:
http://cjoint.com/?bybbDYsFQp
Merci- Masquer le texte des messages précédents -- Afficher le text e des messages précédents -
Comme d'abitude tu a la bonne réponse. Gros Merci :-))))))
On 23 jan, 20:10, isabelle wrote:
bonjour pellet15,
essaie comme ça,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) xs_RangeLow = 2 xs_RangeHi = 9999 Set Target = ActiveCell Cancel = True Dim adresse As String If Not Intersect(Target, Range("C" & xs_RangeLow & ":C" & xs_RangeHi)) Is Nothing Then If Target.Cells.Count = 1 And Target.Value <> "" Then adresse = "http://maps.google.com/maps?q=" & Target.Offset(0 , 18) & "&t=h&hl=fr" ' Internet adresse End If ElseIf Not Intersect(Target, Range("U" & xs_RangeLow & ":U" & xs_RangeH i)) Is Nothing Then ActiveCell.Offset(0, 0).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 Sub
isabelle
Bonsoir à tous
J'ai une macro qui bloc, je ne trouve pas l'erreur , quoi faire?
Dans le fichier suisvant quand ont double-Clic sur la donner GPS ( "U" en Bleu) le programe "nRoute" nous montre l'endroit.
Mon Fichier: http://cjoint.com/?bybbDYsFQp
Merci- Masquer le texte des messages précédents -- Afficher le text e des messages précédents -
jps
isabelle, ségolène : même combat!!!! mais devinez à laquelle j'adresse une grooooooooooooooosse bise? tiens, au fait, vous avez vu sarko, vous, filmé par 10 chaînes de télé, auprès des gens qui ont dormi cette nuit dans leur voiture à cause de la neige? c'est pourtant dans ces cas que le col roulé aurait été bien vu jps
"pellet15" a écrit dans le message de news:
Bonsoir isabelle
Comme d'abitude tu a la bonne réponse. Gros Merci :-))))))
On 23 jan, 20:10, isabelle wrote:
bonjour pellet15,
essaie comme ça,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) xs_RangeLow = 2 xs_RangeHi = 9999 Set Target = ActiveCell Cancel = True Dim adresse As String If Not Intersect(Target, Range("C" & xs_RangeLow & ":C" & xs_RangeHi)) Is Nothing Then If Target.Cells.Count = 1 And Target.Value <> "" Then adresse = "http://maps.google.com/maps?q=" & Target.Offset(0, 18) & "&t=h&hl=fr" ' Internet adresse End If ElseIf Not Intersect(Target, Range("U" & xs_RangeLow & ":U" & xs_RangeHi)) Is Nothing Then ActiveCell.Offset(0, 0).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 Sub
isabelle
Bonsoir à tous
J'ai une macro qui bloc, je ne trouve pas l'erreur , quoi faire?
Dans le fichier suisvant quand ont double-Clic sur la donner GPS ( "U" en Bleu) le programe "nRoute" nous montre l'endroit.
Mon Fichier: http://cjoint.com/?bybbDYsFQp
Merci- Masquer le texte des messages précédents -- Afficher le texte des messages précédents -
isabelle, ségolène : même combat!!!!
mais devinez à laquelle j'adresse une grooooooooooooooosse bise?
tiens, au fait, vous avez vu sarko, vous, filmé par 10 chaînes de télé,
auprès des gens qui ont dormi cette nuit dans leur voiture à cause de la
neige? c'est pourtant dans ces cas que le col roulé aurait été bien vu
jps
"pellet15" <pellet15@videotron.ca> a écrit dans le message de news:
1169602225.752204.272430@m58g2000cwm.googlegroups.com...
Bonsoir isabelle
Comme d'abitude tu a la bonne réponse.
Gros Merci :-))))))
On 23 jan, 20:10, isabelle <i@v> wrote:
bonjour pellet15,
essaie comme ça,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
xs_RangeLow = 2
xs_RangeHi = 9999
Set Target = ActiveCell
Cancel = True
Dim adresse As String
If Not Intersect(Target, Range("C" & xs_RangeLow & ":C" & xs_RangeHi))
Is Nothing Then
If Target.Cells.Count = 1 And Target.Value <> "" Then
adresse = "http://maps.google.com/maps?q=" & Target.Offset(0, 18)
& "&t=h&hl=fr"
' Internet adresse
End If
ElseIf Not Intersect(Target, Range("U" & xs_RangeLow & ":U" &
xs_RangeHi)) Is Nothing Then
ActiveCell.Offset(0, 0).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 Sub
isabelle
Bonsoir à tous
J'ai une macro qui bloc, je ne trouve pas l'erreur ,
quoi faire?
Dans le fichier suisvant quand ont double-Clic sur la donner GPS ( "U"
en Bleu)
le programe "nRoute" nous montre l'endroit.
Mon Fichier:
http://cjoint.com/?bybbDYsFQp
Merci- Masquer le texte des messages précédents -- Afficher le texte des
messages précédents -
isabelle, ségolène : même combat!!!! mais devinez à laquelle j'adresse une grooooooooooooooosse bise? tiens, au fait, vous avez vu sarko, vous, filmé par 10 chaînes de télé, auprès des gens qui ont dormi cette nuit dans leur voiture à cause de la neige? c'est pourtant dans ces cas que le col roulé aurait été bien vu jps
"pellet15" a écrit dans le message de news:
Bonsoir isabelle
Comme d'abitude tu a la bonne réponse. Gros Merci :-))))))
On 23 jan, 20:10, isabelle wrote:
bonjour pellet15,
essaie comme ça,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) xs_RangeLow = 2 xs_RangeHi = 9999 Set Target = ActiveCell Cancel = True Dim adresse As String If Not Intersect(Target, Range("C" & xs_RangeLow & ":C" & xs_RangeHi)) Is Nothing Then If Target.Cells.Count = 1 And Target.Value <> "" Then adresse = "http://maps.google.com/maps?q=" & Target.Offset(0, 18) & "&t=h&hl=fr" ' Internet adresse End If ElseIf Not Intersect(Target, Range("U" & xs_RangeLow & ":U" & xs_RangeHi)) Is Nothing Then ActiveCell.Offset(0, 0).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 Sub
isabelle
Bonsoir à tous
J'ai une macro qui bloc, je ne trouve pas l'erreur , quoi faire?
Dans le fichier suisvant quand ont double-Clic sur la donner GPS ( "U" en Bleu) le programe "nRoute" nous montre l'endroit.
Mon Fichier: http://cjoint.com/?bybbDYsFQp
Merci- Masquer le texte des messages précédents -- Afficher le texte des messages précédents -
isabelle
c'est chez vous qu'elle est, alors je comprend mieux pourquoi nous n'en avons pas, c'est la première fois que ça nous arrive, ça fait vraiment bizarre de passer un hiver sans neige.
Bisou* isabelle ps/ as tu besoin d'une bonne pelle ?
isabelle, ségolène : même combat!!!! mais devinez à laquelle j'adresse une grooooooooooooooosse bise? tiens, au fait, vous avez vu sarko, vous, filmé par 10 chaînes de télé, auprès des gens qui ont dormi cette nuit dans leur voiture à cause de la neige? c'est pourtant dans ces cas que le col roulé aurait été bien vu jps
"pellet15" a écrit dans le message de news:
Bonsoir isabelle
Comme d'abitude tu a la bonne réponse. Gros Merci :-))))))
On 23 jan, 20:10, isabelle wrote:
bonjour pellet15,
essaie comme ça,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) xs_RangeLow = 2 xs_RangeHi = 9999 Set Target = ActiveCell Cancel = True Dim adresse As String If Not Intersect(Target, Range("C" & xs_RangeLow & ":C" & xs_RangeHi)) Is Nothing Then If Target.Cells.Count = 1 And Target.Value <> "" Then adresse = "http://maps.google.com/maps?q=" & Target.Offset(0, 18) & "&t=h&hl=fr" ' Internet adresse End If ElseIf Not Intersect(Target, Range("U" & xs_RangeLow & ":U" & xs_RangeHi)) Is Nothing Then ActiveCell.Offset(0, 0).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 Sub
isabelle
Bonsoir à tous
J'ai une macro qui bloc, je ne trouve pas l'erreur , quoi faire?
Dans le fichier suisvant quand ont double-Clic sur la donner GPS ( "U" en Bleu) le programe "nRoute" nous montre l'endroit.
Mon Fichier: http://cjoint.com/?bybbDYsFQp
Merci- Masquer le texte des messages précédents -- Afficher le texte des messages précédents -
c'est chez vous qu'elle est, alors je comprend mieux pourquoi nous n'en avons pas,
c'est la première fois que ça nous arrive, ça fait vraiment bizarre de passer un hiver sans neige.
Bisou*
isabelle
ps/ as tu besoin d'une bonne pelle ?
isabelle, ségolène : même combat!!!!
mais devinez à laquelle j'adresse une grooooooooooooooosse bise?
tiens, au fait, vous avez vu sarko, vous, filmé par 10 chaînes de télé,
auprès des gens qui ont dormi cette nuit dans leur voiture à cause de la
neige? c'est pourtant dans ces cas que le col roulé aurait été bien vu
jps
"pellet15" <pellet15@videotron.ca> a écrit dans le message de news:
1169602225.752204.272430@m58g2000cwm.googlegroups.com...
Bonsoir isabelle
Comme d'abitude tu a la bonne réponse.
Gros Merci :-))))))
On 23 jan, 20:10, isabelle <i@v> wrote:
bonjour pellet15,
essaie comme ça,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
xs_RangeLow = 2
xs_RangeHi = 9999
Set Target = ActiveCell
Cancel = True
Dim adresse As String
If Not Intersect(Target, Range("C" & xs_RangeLow & ":C" & xs_RangeHi))
Is Nothing Then
If Target.Cells.Count = 1 And Target.Value <> "" Then
adresse = "http://maps.google.com/maps?q=" & Target.Offset(0, 18)
& "&t=h&hl=fr"
' Internet adresse
End If
ElseIf Not Intersect(Target, Range("U" & xs_RangeLow & ":U" &
xs_RangeHi)) Is Nothing Then
ActiveCell.Offset(0, 0).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 Sub
isabelle
Bonsoir à tous
J'ai une macro qui bloc, je ne trouve pas l'erreur ,
quoi faire?
Dans le fichier suisvant quand ont double-Clic sur la donner GPS ( "U"
en Bleu)
le programe "nRoute" nous montre l'endroit.
Mon Fichier:
http://cjoint.com/?bybbDYsFQp
Merci- Masquer le texte des messages précédents -- Afficher le texte des
messages précédents -
c'est chez vous qu'elle est, alors je comprend mieux pourquoi nous n'en avons pas, c'est la première fois que ça nous arrive, ça fait vraiment bizarre de passer un hiver sans neige.
Bisou* isabelle ps/ as tu besoin d'une bonne pelle ?
isabelle, ségolène : même combat!!!! mais devinez à laquelle j'adresse une grooooooooooooooosse bise? tiens, au fait, vous avez vu sarko, vous, filmé par 10 chaînes de télé, auprès des gens qui ont dormi cette nuit dans leur voiture à cause de la neige? c'est pourtant dans ces cas que le col roulé aurait été bien vu jps
"pellet15" a écrit dans le message de news:
Bonsoir isabelle
Comme d'abitude tu a la bonne réponse. Gros Merci :-))))))
On 23 jan, 20:10, isabelle wrote:
bonjour pellet15,
essaie comme ça,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) xs_RangeLow = 2 xs_RangeHi = 9999 Set Target = ActiveCell Cancel = True Dim adresse As String If Not Intersect(Target, Range("C" & xs_RangeLow & ":C" & xs_RangeHi)) Is Nothing Then If Target.Cells.Count = 1 And Target.Value <> "" Then adresse = "http://maps.google.com/maps?q=" & Target.Offset(0, 18) & "&t=h&hl=fr" ' Internet adresse End If ElseIf Not Intersect(Target, Range("U" & xs_RangeLow & ":U" & xs_RangeHi)) Is Nothing Then ActiveCell.Offset(0, 0).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 Sub
isabelle
Bonsoir à tous
J'ai une macro qui bloc, je ne trouve pas l'erreur , quoi faire?
Dans le fichier suisvant quand ont double-Clic sur la donner GPS ( "U" en Bleu) le programe "nRoute" nous montre l'endroit.
Mon Fichier: http://cjoint.com/?bybbDYsFQp
Merci- Masquer le texte des messages précédents -- Afficher le texte des messages précédents -