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 pocédure a finir

pocédure a finir

9 réponses
Avatar
Daniel
Bonsoir à Tous

J'ai besoin de trouver avec mon GPS les donné d'un autre format de GPS et
l'introduire dans mon GPS pour l'ocaliser l'endroit.

1: J'ai une liste du format suisvant 45.291256 -73.4109039
( dans deux cellules )

et mon GPS lit le format suivant
N45 23.473 W73 30.844
(dans une cellule )

La procédure:
J'aurait aimer aller sur la première cellule (45.291256 ) et exécuter une
macro ( avec CTRL-g ).
et la macro traduirais le format des deux cellule en une cellule et ouvre le
programme GPS
et ouvre une fenêtre avec la combimaison de Ctrl-g puis colle le nouveau
format et
fait la touche Entré.
fin.

J'ai commencer mais je suis blocquer !!!!! ??????

Sub Traduire_CamionTest()
MyAppID = Shell("C:\Program Files\Garmin\nRoute\nRoute.exe", 1)
SendKeys "{ESC}", True ' Envoie la combinaison escape pour fermé une
fenêtre non désirer
SendKeys "{ESC}", True ' Envoie la combinaison escape pour fermé une
fenêtre non désirer
Application.ScreenUpdating = False
Application.Wait (Now + TimeValue("00:00:02"))
SendKeys "^g", True ' Envoie la combinaison CTRL+g ouvre une fenêtre

'?????????????????????????????????????
End Sub


Merci pour votre aide
Signaler un problème avec ce contenu

9 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
Bonjour à tous
étape 1 :
Je peut copiet une formule dans la collone a coté de mes donnée
GPS
avec =CONCATENER(C5;D5;)
mais comment faire pour pour insérer un "N" au début
et a la place du - un "w"

étape 2:
Je peut faire copie (CTRL-C) et basculer sur le programme GPS
( Alt-Tab)
puis ouvrire une fenêtre avec CTRL-G ,
pour finir collé (CTRL-V).


"Daniel" a écrit dans le message de news:
%
Bonsoir à Tous

J'ai besoin de trouver avec mon GPS les donné d'un autre format de GPS et
l'introduire dans mon GPS pour l'ocaliser l'endroit.

1: J'ai une liste du format suisvant 45.291256 -73.4109039
( dans deux cellules )

et mon GPS lit le format suivant
N45 23.473 W73 30.844
(dans une cellule )

La procédure:
J'aurait aimer aller sur la première cellule (45.291256 ) et exécuter une
macro ( avec CTRL-g ).
et la macro traduirais le format des deux cellule en une cellule et ouvre
le programme GPS
et ouvre une fenêtre avec la combimaison de Ctrl-g puis colle le nouveau
format et
fait la touche Entré.
fin.

J'ai commencer mais je suis blocquer !!!!! ??????

Sub Traduire_CamionTest()
MyAppID = Shell("C:Program FilesGarminnRoutenRoute.exe", 1)
SendKeys "{ESC}", True ' Envoie la combinaison escape pour fermé une
fenêtre non désirer
SendKeys "{ESC}", True ' Envoie la combinaison escape pour fermé une
fenêtre non désirer
Application.ScreenUpdating = False
Application.Wait (Now + TimeValue("00:00:02"))
SendKeys "^g", True ' Envoie la combinaison CTRL+g ouvre une fenêtre

'?????????????????????????????????????
End Sub


Merci pour votre aide




Avatar
MPi
Salut,

Pour l'étape 1
="N" & A1 & " " & SUBSTITUE(B1;"-";"W")

Michel

"Daniel" a écrit dans le message de
news:%23%
Bonjour à tous
étape 1 :
Je peut copiet une formule dans la collone a coté de mes
donnée

GPS
avec =CONCATENER(C5;D5;)
mais comment faire pour pour insérer un "N" au début
et a la place du - un "w"

étape 2:
Je peut faire copie (CTRL-C) et basculer sur le programme GPS
( Alt-Tab)
puis ouvrire une fenêtre avec CTRL-G ,
pour finir collé (CTRL-V).


"Daniel" a écrit dans le message de news:
%
Bonsoir à Tous

J'ai besoin de trouver avec mon GPS les donné d'un autre format de GPS
et


l'introduire dans mon GPS pour l'ocaliser l'endroit.

1: J'ai une liste du format suisvant 45.291256 -73.4109039
( dans deux cellules )

et mon GPS lit le format suivant
N45 23.473 W73 30.844
(dans une cellule )

La procédure:
J'aurait aimer aller sur la première cellule (45.291256 ) et exécuter
une


macro ( avec CTRL-g ).
et la macro traduirais le format des deux cellule en une cellule et
ouvre


le programme GPS
et ouvre une fenêtre avec la combimaison de Ctrl-g puis colle le
nouveau


format et
fait la touche Entré.
fin.

J'ai commencer mais je suis blocquer !!!!! ??????

Sub Traduire_CamionTest()
MyAppID = Shell("C:Program FilesGarminnRoutenRoute.exe", 1)
SendKeys "{ESC}", True ' Envoie la combinaison escape pour fermé une
fenêtre non désirer
SendKeys "{ESC}", True ' Envoie la combinaison escape pour fermé une
fenêtre non désirer
Application.ScreenUpdating = False
Application.Wait (Now + TimeValue("00:00:02"))
SendKeys "^g", True ' Envoie la combinaison CTRL+g ouvre une fenêtre

'?????????????????????????????????????
End Sub


Merci pour votre aide








Avatar
Daniel
Bonjour MPi
Merci pour l'aide
j'ai utiliser ta formule mais il manque des petites choses;
voici la formule et le résulta puis ce que je doit obtenir (deux point et
couper 2 chiffre)
="N" & H17 & " " & SUBSTITUE(I17;"-";"W")
N45.2911758 W73.4116364 réponce obtenue
N45 29.117 W73 41.163 réponce désirer
Voici ma liste
il faut faire attention car parfois ci le chiffre fini par zéro ou 2 zéro
,il sont coupé.
comme dans la liste suivante la deuxième et troisième ect.

45.2760315 -73.4209137
45.2759399 -73.420845
45.275898 -73.4208069
45.275856 -73.4207687
45.2757797 -73.4206696
45.275753 -73.4206314
45.2751007 -73.4197617
45.2750397 -73.4197235
45.2728043 -73.4205017


merci encore :-)
"MPi" a écrit dans le message de news:
621Oe.7949$
Salut,

Pour l'étape 1
="N" & A1 & " " & SUBSTITUE(B1;"-";"W")

Michel

"Daniel" a écrit dans le message de
news:%23%
Bonjour à tous
étape 1 :
Je peut copiet une formule dans la collone a coté de mes
donnée

GPS
avec =CONCATENER(C5;D5;)
mais comment faire pour pour insérer un "N" au début
et a la place du - un "w"

étape 2:
Je peut faire copie (CTRL-C) et basculer sur le programme GPS
( Alt-Tab)
puis ouvrire une fenêtre avec CTRL-G ,
pour finir collé (CTRL-V).


"Daniel" a écrit dans le message de news:
%
Bonsoir à Tous

J'ai besoin de trouver avec mon GPS les donné d'un autre format de GPS
et


l'introduire dans mon GPS pour l'ocaliser l'endroit.

1: J'ai une liste du format suisvant 45.291256 -73.4109039
( dans deux cellules )

et mon GPS lit le format suivant
N45 23.473 W73 30.844
(dans une cellule )

La procédure:
J'aurait aimer aller sur la première cellule (45.291256 ) et exécuter
une


macro ( avec CTRL-g ).
et la macro traduirais le format des deux cellule en une cellule et
ouvre


le programme GPS
et ouvre une fenêtre avec la combimaison de Ctrl-g puis colle le
nouveau


format et
fait la touche Entré.
fin.

J'ai commencer mais je suis blocquer !!!!! ??????

Sub Traduire_CamionTest()
MyAppID = Shell("C:Program FilesGarminnRoutenRoute.exe", 1)
SendKeys "{ESC}", True ' Envoie la combinaison escape pour fermé une
fenêtre non désirer
SendKeys "{ESC}", True ' Envoie la combinaison escape pour fermé une
fenêtre non désirer
Application.ScreenUpdating = False
Application.Wait (Now + TimeValue("00:00:02"))
SendKeys "^g", True ' Envoie la combinaison CTRL+g ouvre une fenêtre

'?????????????????????????????????????
End Sub


Merci pour votre aide












Avatar
MPi
Salut,

Et comme ceci ?
="N" & GAUCHE(H17;2) & " " & STXT(H17;4;2) & "." & STXT(H17;6;3) &
GAUCHE(SUBSTITUE(I17;"-";"W");4) & " " & STXT(I17;6;2) & "." &
STXT(I17;8;3)

Michel

"Daniel" a écrit dans le message de
news:
Bonjour MPi
Merci pour l'aide
j'ai utiliser ta formule mais il manque des petites choses;
voici la formule et le résulta puis ce que je doit obtenir (deux point et
couper 2 chiffre)
="N" & H17 & " " & SUBSTITUE(I17;"-";"W")
N45.2911758 W73.4116364 réponce obtenue
N45 29.117 W73 41.163 réponce désirer
Voici ma liste
il faut faire attention car parfois ci le chiffre fini par zéro ou 2 zéro
,il sont coupé.
comme dans la liste suivante la deuxième et troisième ect.

45.2760315 -73.4209137
45.2759399 -73.420845
45.275898 -73.4208069
45.275856 -73.4207687
45.2757797 -73.4206696
45.275753 -73.4206314
45.2751007 -73.4197617
45.2750397 -73.4197235
45.2728043 -73.4205017


merci encore :-)
"MPi" a écrit dans le message de news:
621Oe.7949$
Salut,

Pour l'étape 1
="N" & A1 & " " & SUBSTITUE(B1;"-";"W")

Michel

"Daniel" a écrit dans le message de
news:%23%
Bonjour à tous
étape 1 :
Je peut copiet une formule dans la collone a coté de mes
donnée

GPS
avec =CONCATENER(C5;D5;)
mais comment faire pour pour insérer un "N" au début
et a la place du - un "w"

étape 2:
Je peut faire copie (CTRL-C) et basculer sur le programme
GPS



( Alt-Tab)
puis ouvrire une fenêtre avec CTRL-G ,
pour finir collé (CTRL-V).


"Daniel" a écrit dans le message de news:
%
Bonsoir à Tous

J'ai besoin de trouver avec mon GPS les donné d'un autre format de
GPS




et
l'introduire dans mon GPS pour l'ocaliser l'endroit.

1: J'ai une liste du format suisvant 45.291256 -73.4109039
( dans deux cellules )

et mon GPS lit le format suivant
N45 23.473 W73 30.844
(dans une cellule )

La procédure:
J'aurait aimer aller sur la première cellule (45.291256 ) et exécuter
une


macro ( avec CTRL-g ).
et la macro traduirais le format des deux cellule en une cellule et
ouvre


le programme GPS
et ouvre une fenêtre avec la combimaison de Ctrl-g puis colle le
nouveau


format et
fait la touche Entré.
fin.

J'ai commencer mais je suis blocquer !!!!! ??????

Sub Traduire_CamionTest()
MyAppID = Shell("C:Program FilesGarminnRoutenRoute.exe", 1)
SendKeys "{ESC}", True ' Envoie la combinaison escape pour fermé
une




fenêtre non désirer
SendKeys "{ESC}", True ' Envoie la combinaison escape pour fermé
une




fenêtre non désirer
Application.ScreenUpdating = False
Application.Wait (Now + TimeValue("00:00:02"))
SendKeys "^g", True ' Envoie la combinaison CTRL+g ouvre une
fenêtre





'?????????????????????????????????????
End Sub


Merci pour votre aide
















Avatar
Daniel
Bonsoir MPi

Très bien pour la première partie.
="N" & GAUCHE(H23;2) & " " & STXT(H23;4;2) & "." & STXT(H23;6;3)
&GAUCHE(SUBSTITUE(I23;"-";" W");4) & " " & STXT(I23;5;2) & "."
&STXT(I23;7;3)
Cela me donne le bon format super.
Je voudrait incorporer cela dans mon VBA .
le problème est que a la place de "H23" que cela soit la cellule active et a
la place "I23,
la cellule a droite de la cellule active.
Cette formule je l'insèrerais a droite au début de l'exécution du VBA et
a la fin après la suprimerait après l'avoir copier.

Merci

"MPi" a écrit dans le message de news:
F75Oe.1234$
Salut,

Et comme ceci ?
="N" & GAUCHE(H17;2) & " " & STXT(H17;4;2) & "." & STXT(H17;6;3) &
GAUCHE(SUBSTITUE(I17;"-";"W");4) & " " & STXT(I17;6;2) & "." &
STXT(I17;8;3)

Michel

"Daniel" a écrit dans le message de
news:
Bonjour MPi
Merci pour l'aide
j'ai utiliser ta formule mais il manque des petites choses;
voici la formule et le résulta puis ce que je doit obtenir (deux point et
couper 2 chiffre)
="N" & H17 & " " & SUBSTITUE(I17;"-";"W")
N45.2911758 W73.4116364 réponce obtenue
N45 29.117 W73 41.163 réponce désirer
Voici ma liste
il faut faire attention car parfois ci le chiffre fini par zéro ou 2 zéro
,il sont coupé.
comme dans la liste suivante la deuxième et troisième ect.

45.2760315 -73.4209137
45.2759399 -73.420845
45.275898 -73.4208069
45.275856 -73.4207687
45.2757797 -73.4206696
45.275753 -73.4206314
45.2751007 -73.4197617
45.2750397 -73.4197235
45.2728043 -73.4205017


merci encore :-)
"MPi" a écrit dans le message de news:
621Oe.7949$
Salut,

Pour l'étape 1
="N" & A1 & " " & SUBSTITUE(B1;"-";"W")

Michel

"Daniel" a écrit dans le message de
news:%23%
Bonjour à tous
étape 1 :
Je peut copiet une formule dans la collone a coté de mes
donnée

GPS
avec =CONCATENER(C5;D5;)
mais comment faire pour pour insérer un "N" au début
et a la place du - un "w"

étape 2:
Je peut faire copie (CTRL-C) et basculer sur le programme
GPS



( Alt-Tab)
puis ouvrire une fenêtre avec CTRL-G ,
pour finir collé (CTRL-V).


"Daniel" a écrit dans le message de news:
%
Bonsoir à Tous

J'ai besoin de trouver avec mon GPS les donné d'un autre format de
GPS




et
l'introduire dans mon GPS pour l'ocaliser l'endroit.

1: J'ai une liste du format suisvant 45.291256 -73.4109039
( dans deux cellules )

et mon GPS lit le format suivant
N45 23.473 W73 30.844
(dans une cellule )

La procédure:
J'aurait aimer aller sur la première cellule (45.291256 ) et
exécuter
une


macro ( avec CTRL-g ).
et la macro traduirais le format des deux cellule en une cellule et
ouvre


le programme GPS
et ouvre une fenêtre avec la combimaison de Ctrl-g puis colle le
nouveau


format et
fait la touche Entré.
fin.

J'ai commencer mais je suis blocquer !!!!! ??????

Sub Traduire_CamionTest()
MyAppID = Shell("C:Program FilesGarminnRoutenRoute.exe", 1)
SendKeys "{ESC}", True ' Envoie la combinaison escape pour fermé
une




fenêtre non désirer
SendKeys "{ESC}", True ' Envoie la combinaison escape pour fermé
une




fenêtre non désirer
Application.ScreenUpdating = False
Application.Wait (Now + TimeValue("00:00:02"))
SendKeys "^g", True ' Envoie la combinaison CTRL+g ouvre une
fenêtre





'?????????????????????????????????????
End Sub


Merci pour votre aide




















Avatar
MPi
Bon matin...

Ce n'est pas très clair
Je voudrait incorporer cela dans mon VBA .
le problème est que a la place de "H23" que cela soit la cellule active et
a

la place "I23,
la cellule a droite de la cellule active.
Si tes données sont toujours en H et en I et que tu veuilles mettre le texte

modifié en J, il s'agit de changer les 23 par une variable
ex:
Dim Ligne
Ligne = activecell.row
Range("J" & Ligne).Formulalocal = "La Formule Que Tu As"
Dans cette formule, tu changes tous les 23 par
" & Ligne & "
guillemets inclus

Finalement, si les données ne sont pas toujours en H et I, mais pourraient
être en C et D, ou F et G, il faudra définir les colonnes des valeurs.
C'est-à-dire que si l'utilisateur démarre la macro en étant sur C4, le
programme doit s'assurer que les données sont bien en C4 et D4 et que le
résultat devra être en E4, ce qui n'est pas évident à faire...


Cette formule je l'insèrerais a droite au début de l'exécution du VBA et
a la fin après la suprimerait après l'avoir copier.
Pas beaucoup plus clair..., ou bien je ne suis pas encore réveillé...¦¬)

Pour avoir la même formule qui se répète sur plusieurs lignes, il faut
changer le Range de départ
Range("J1:J" & LigneFinale).Formulalocal = "......"
et plutôt que d'utiliser la variable Ligne qui est la ligne courante, mettre
la ligne de départ (ici, ce srerait 1) et la ligne finale que tu peux
définir de différentes façons.
Donc, si tu sais que les formules copiées iront de la ligne 2 à 25,
LigneFinale = 25 et tu remplaces les "23" de la formule par des "2", sans
les guillemets que tu affectes au Range("J2:J" & LigneFinale).Formulalocal .

Michel

"Daniel" a écrit dans le message de
news:%
Bonsoir MPi

Très bien pour la première partie.
="N" & GAUCHE(H23;2) & " " & STXT(H23;4;2) & "." & STXT(H23;6;3)
&GAUCHE(SUBSTITUE(I23;"-";" W");4) & " " & STXT(I23;5;2) & "."
&STXT(I23;7;3)
Cela me donne le bon format super.
Je voudrait incorporer cela dans mon VBA .
le problème est que a la place de "H23" que cela soit la cellule active et
a

la place "I23,
la cellule a droite de la cellule active.
Cette formule je l'insèrerais a droite au début de l'exécution du VBA et
a la fin après la suprimerait après l'avoir copier.

Merci

"MPi" a écrit dans le message de news:
F75Oe.1234$
Salut,

Et comme ceci ?
="N" & GAUCHE(H17;2) & " " & STXT(H17;4;2) & "." & STXT(H17;6;3) &
GAUCHE(SUBSTITUE(I17;"-";"W");4) & " " & STXT(I17;6;2) & "." &
STXT(I17;8;3)

Michel

"Daniel" a écrit dans le message de
news:
Bonjour MPi
Merci pour l'aide
j'ai utiliser ta formule mais il manque des petites choses;
voici la formule et le résulta puis ce que je doit obtenir (deux point
et



couper 2 chiffre)
="N" & H17 & " " & SUBSTITUE(I17;"-";"W")
N45.2911758 W73.4116364 réponce obtenue
N45 29.117 W73 41.163 réponce désirer
Voici ma liste
il faut faire attention car parfois ci le chiffre fini par zéro ou 2
zéro



,il sont coupé.
comme dans la liste suivante la deuxième et troisième ect.

45.2760315 -73.4209137
45.2759399 -73.420845
45.275898 -73.4208069
45.275856 -73.4207687
45.2757797 -73.4206696
45.275753 -73.4206314
45.2751007 -73.4197617
45.2750397 -73.4197235
45.2728043 -73.4205017


merci encore :-)
"MPi" a écrit dans le message de news:
621Oe.7949$
Salut,

Pour l'étape 1
="N" & A1 & " " & SUBSTITUE(B1;"-";"W")

Michel

"Daniel" a écrit dans le message de
news:%23%
Bonjour à tous
étape 1 :
Je peut copiet une formule dans la collone a coté de
mes





donnée
GPS
avec =CONCATENER(C5;D5;)
mais comment faire pour pour insérer un "N" au début
et a la place du - un "w"

étape 2:
Je peut faire copie (CTRL-C) et basculer sur le
programme





GPS
( Alt-Tab)
puis ouvrire une fenêtre avec CTRL-G ,
pour finir collé (CTRL-V).


"Daniel" a écrit dans le message de news:
%
Bonsoir à Tous

J'ai besoin de trouver avec mon GPS les donné d'un autre format de
GPS




et
l'introduire dans mon GPS pour l'ocaliser l'endroit.

1: J'ai une liste du format suisvant 45.291256 -73.4109039
( dans deux cellules )

et mon GPS lit le format suivant
N45 23.473 W73 30.844
(dans une cellule )

La procédure:
J'aurait aimer aller sur la première cellule (45.291256 ) et
exécuter
une


macro ( avec CTRL-g ).
et la macro traduirais le format des deux cellule en une cellule
et






ouvre
le programme GPS
et ouvre une fenêtre avec la combimaison de Ctrl-g puis colle le
nouveau


format et
fait la touche Entré.
fin.

J'ai commencer mais je suis blocquer !!!!! ??????

Sub Traduire_CamionTest()
MyAppID = Shell("C:Program FilesGarminnRoutenRoute.exe", 1)
SendKeys "{ESC}", True ' Envoie la combinaison escape pour
fermé






une
fenêtre non désirer
SendKeys "{ESC}", True ' Envoie la combinaison escape pour
fermé






une
fenêtre non désirer
Application.ScreenUpdating = False
Application.Wait (Now + TimeValue("00:00:02"))
SendKeys "^g", True ' Envoie la combinaison CTRL+g ouvre une
fenêtre





'?????????????????????????????????????
End Sub


Merci pour votre aide
























Avatar
Daniel
Bonsoir MPi

Pour faire un peu de lumière je m'explique.
Le but est de traduire les donnés avec la formule que tu ma donné,
pour l'introduire dans le programme GPS.
Il n'es pas nésessaire d'ajouter des donnés au fichier,
mais durant l'exécution de la macro ont peut utiliser la colonne K
et suprimer après utilisation.
J'ai attacher un exemple de la macro, mais la 6ième ligne du module est a
corriger ???
http://cjoint.com/?ixdT18VCGT
Merci Beaucoup.

"MPi" a écrit dans le message de news:
8JgOe.30705$
Bon matin...

Ce n'est pas très clair
Je voudrait incorporer cela dans mon VBA .
le problème est que a la place de "H23" que cela soit la cellule active
et
a

la place "I23,
la cellule a droite de la cellule active.
Si tes données sont toujours en H et en I et que tu veuilles mettre le

texte
modifié en J, il s'agit de changer les 23 par une variable
ex:
Dim Ligne
Ligne = activecell.row
Range("J" & Ligne).Formulalocal = "La Formule Que Tu As"
Dans cette formule, tu changes tous les 23 par
" & Ligne & "
guillemets inclus

Finalement, si les données ne sont pas toujours en H et I, mais pourraient
être en C et D, ou F et G, il faudra définir les colonnes des valeurs.
C'est-à-dire que si l'utilisateur démarre la macro en étant sur C4, le
programme doit s'assurer que les données sont bien en C4 et D4 et que le
résultat devra être en E4, ce qui n'est pas évident à faire...


Cette formule je l'insèrerais a droite au début de l'exécution du VBA et
a la fin après la suprimerait après l'avoir copier.
Pas beaucoup plus clair..., ou bien je ne suis pas encore réveillé...¦¬)

Pour avoir la même formule qui se répète sur plusieurs lignes, il faut
changer le Range de départ
Range("J1:J" & LigneFinale).Formulalocal = "......"
et plutôt que d'utiliser la variable Ligne qui est la ligne courante,
mettre
la ligne de départ (ici, ce srerait 1) et la ligne finale que tu peux
définir de différentes façons.
Donc, si tu sais que les formules copiées iront de la ligne 2 à 25,
LigneFinale = 25 et tu remplaces les "23" de la formule par des "2", sans
les guillemets que tu affectes au Range("J2:J" & LigneFinale).Formulalocal
.

Michel

"Daniel" a écrit dans le message de
news:%
Bonsoir MPi

Très bien pour la première partie.
="N" & GAUCHE(H23;2) & " " & STXT(H23;4;2) & "." & STXT(H23;6;3)
&GAUCHE(SUBSTITUE(I23;"-";" W");4) & " " & STXT(I23;5;2) & "."
&STXT(I23;7;3)
Cela me donne le bon format super.
Je voudrait incorporer cela dans mon VBA .
le problème est que a la place de "H23" que cela soit la cellule active
et
a

la place "I23,
la cellule a droite de la cellule active.
Cette formule je l'insèrerais a droite au début de l'exécution du VBA et
a la fin après la suprimerait après l'avoir copier.

Merci

"MPi" a écrit dans le message de news:
F75Oe.1234$
Salut,

Et comme ceci ?
="N" & GAUCHE(H17;2) & " " & STXT(H17;4;2) & "." & STXT(H17;6;3) &
GAUCHE(SUBSTITUE(I17;"-";"W");4) & " " & STXT(I17;6;2) & "." &
STXT(I17;8;3)

Michel

"Daniel" a écrit dans le message de
news:
Bonjour MPi
Merci pour l'aide
j'ai utiliser ta formule mais il manque des petites choses;
voici la formule et le résulta puis ce que je doit obtenir (deux point
et



couper 2 chiffre)
="N" & H17 & " " & SUBSTITUE(I17;"-";"W")
N45.2911758 W73.4116364 réponce obtenue
N45 29.117 W73 41.163 réponce désirer
Voici ma liste
il faut faire attention car parfois ci le chiffre fini par zéro ou 2
zéro



,il sont coupé.
comme dans la liste suivante la deuxième et troisième ect.

45.2760315 -73.4209137
45.2759399 -73.420845
45.275898 -73.4208069
45.275856 -73.4207687
45.2757797 -73.4206696
45.275753 -73.4206314
45.2751007 -73.4197617
45.2750397 -73.4197235
45.2728043 -73.4205017


merci encore :-)
"MPi" a écrit dans le message de news:
621Oe.7949$
Salut,

Pour l'étape 1
="N" & A1 & " " & SUBSTITUE(B1;"-";"W")

Michel

"Daniel" a écrit dans le message de
news:%23%
Bonjour à tous
étape 1 :
Je peut copiet une formule dans la collone a coté de
mes





donnée
GPS
avec =CONCATENER(C5;D5;)
mais comment faire pour pour insérer un "N" au début
et a la place du - un "w"

étape 2:
Je peut faire copie (CTRL-C) et basculer sur le
programme





GPS
( Alt-Tab)
puis ouvrire une fenêtre avec CTRL-G ,
pour finir collé (CTRL-V).


"Daniel" a écrit dans le message de news:
%
Bonsoir à Tous

J'ai besoin de trouver avec mon GPS les donné d'un autre format
de
GPS




et
l'introduire dans mon GPS pour l'ocaliser l'endroit.

1: J'ai une liste du format suisvant 45.291256 -73.4109039
( dans deux cellules )

et mon GPS lit le format suivant
N45 23.473 W73 30.844
(dans une cellule )

La procédure:
J'aurait aimer aller sur la première cellule (45.291256 ) et
exécuter
une


macro ( avec CTRL-g ).
et la macro traduirais le format des deux cellule en une cellule
et






ouvre
le programme GPS
et ouvre une fenêtre avec la combimaison de Ctrl-g puis colle le
nouveau


format et
fait la touche Entré.
fin.

J'ai commencer mais je suis blocquer !!!!! ??????

Sub Traduire_CamionTest()
MyAppID = Shell("C:Program FilesGarminnRoutenRoute.exe",
1)
SendKeys "{ESC}", True ' Envoie la combinaison escape pour
fermé






une
fenêtre non désirer
SendKeys "{ESC}", True ' Envoie la combinaison escape pour
fermé






une
fenêtre non désirer
Application.ScreenUpdating = False
Application.Wait (Now + TimeValue("00:00:02"))
SendKeys "^g", True ' Envoie la combinaison CTRL+g ouvre une
fenêtre





'?????????????????????????????????????
End Sub


Merci pour votre aide




























Avatar
MPi
Salut,

Avec cette formule dans ton code, tu devrais avoir le bon résultat dans la
colonne J
Il faut doubler toutes les apostrophes pour que ça puisse fonctionner.....ça
en fait quelques unes... ¦¬)

Range("J" & Ligne).FormulaLocal = "=""N"" & GAUCHE(H" & Ligne & ";2) " & _
"& "" "" & STXT(H" & Ligne & ";4;2) & ""."" & STXT(H" & Ligne &
";6;3) " & _
"& "" "" & GAUCHE(SUBSTITUE(I" & Ligne & ";""-"";""W"");3)" & _
"& "" "" & STXT(I" & Ligne & ";5;2) & ""."" & STXT(I" & Ligne &
";7;3)"

Et si tu veux copier la formule sur toute la colonne, tu pourrais y aller
ainsi
Début = 15 'première ligne
Fin = 44 'dernière ligne
Range("J" & Début & ":J" & Fin).FormulaLocal = "=""N"" & GAUCHE(H" & Début &
";2) " & _
"& "" "" & STXT(H" & Début & ";4;2) & ""."" & STXT(H" & Début &
";6;3) " & _
"& "" "" & GAUCHE(SUBSTITUE(I" & Début & ";""-"";""W"");3)" & _
"& "" "" & STXT(I" & Début & ";5;2) & ""."" & STXT(I" & Début &
";7;3)"

Michel

"Daniel" a écrit dans le message de
news:
Bonsoir MPi

Pour faire un peu de lumière je m'explique.
Le but est de traduire les donnés avec la formule que tu ma donné,
pour l'introduire dans le programme GPS.
Il n'es pas nésessaire d'ajouter des donnés au fichier,
mais durant l'exécution de la macro ont peut utiliser la colonne K
et suprimer après utilisation.
J'ai attacher un exemple de la macro, mais la 6ième ligne du module est a
corriger ???
http://cjoint.com/?ixdT18VCGT
Merci Beaucoup.

"MPi" a écrit dans le message de news:
8JgOe.30705$
Bon matin...

Ce n'est pas très clair
Je voudrait incorporer cela dans mon VBA .
le problème est que a la place de "H23" que cela soit la cellule active
et
a

la place "I23,
la cellule a droite de la cellule active.
Si tes données sont toujours en H et en I et que tu veuilles mettre le

texte
modifié en J, il s'agit de changer les 23 par une variable
ex:
Dim Ligne
Ligne = activecell.row
Range("J" & Ligne).Formulalocal = "La Formule Que Tu As"
Dans cette formule, tu changes tous les 23 par
" & Ligne & "
guillemets inclus

Finalement, si les données ne sont pas toujours en H et I, mais
pourraient


être en C et D, ou F et G, il faudra définir les colonnes des valeurs.
C'est-à-dire que si l'utilisateur démarre la macro en étant sur C4, le
programme doit s'assurer que les données sont bien en C4 et D4 et que le
résultat devra être en E4, ce qui n'est pas évident à faire...


Cette formule je l'insèrerais a droite au début de l'exécution du VBA
et



a la fin après la suprimerait après l'avoir copier.
Pas beaucoup plus clair..., ou bien je ne suis pas encore réveillé...¦¬)

Pour avoir la même formule qui se répète sur plusieurs lignes, il faut
changer le Range de départ
Range("J1:J" & LigneFinale).Formulalocal = "......"
et plutôt que d'utiliser la variable Ligne qui est la ligne courante,
mettre
la ligne de départ (ici, ce srerait 1) et la ligne finale que tu peux
définir de différentes façons.
Donc, si tu sais que les formules copiées iront de la ligne 2 à 25,
LigneFinale = 25 et tu remplaces les "23" de la formule par des "2",
sans


les guillemets que tu affectes au Range("J2:J" &
LigneFinale).Formulalocal


.

Michel

"Daniel" a écrit dans le message de
news:%
Bonsoir MPi

Très bien pour la première partie.
="N" & GAUCHE(H23;2) & " " & STXT(H23;4;2) & "." & STXT(H23;6;3)
&GAUCHE(SUBSTITUE(I23;"-";" W");4) & " " & STXT(I23;5;2) & "."
&STXT(I23;7;3)
Cela me donne le bon format super.
Je voudrait incorporer cela dans mon VBA .
le problème est que a la place de "H23" que cela soit la cellule active
et
a

la place "I23,
la cellule a droite de la cellule active.
Cette formule je l'insèrerais a droite au début de l'exécution du VBA
et



a la fin après la suprimerait après l'avoir copier.

Merci

"MPi" a écrit dans le message de news:
F75Oe.1234$
Salut,

Et comme ceci ?
="N" & GAUCHE(H17;2) & " " & STXT(H17;4;2) & "." & STXT(H17;6;3) &
GAUCHE(SUBSTITUE(I17;"-";"W");4) & " " & STXT(I17;6;2) & "." &
STXT(I17;8;3)

Michel

"Daniel" a écrit dans le message de
news:
Bonjour MPi
Merci pour l'aide
j'ai utiliser ta formule mais il manque des petites choses;
voici la formule et le résulta puis ce que je doit obtenir (deux
point





et
couper 2 chiffre)
="N" & H17 & " " & SUBSTITUE(I17;"-";"W")
N45.2911758 W73.4116364 réponce obtenue
N45 29.117 W73 41.163 réponce désirer
Voici ma liste
il faut faire attention car parfois ci le chiffre fini par zéro ou 2
zéro



,il sont coupé.
comme dans la liste suivante la deuxième et troisième ect.

45.2760315 -73.4209137
45.2759399 -73.420845
45.275898 -73.4208069
45.275856 -73.4207687
45.2757797 -73.4206696
45.275753 -73.4206314
45.2751007 -73.4197617
45.2750397 -73.4197235
45.2728043 -73.4205017


merci encore :-)
"MPi" a écrit dans le message de
news:





621Oe.7949$
Salut,

Pour l'étape 1
="N" & A1 & " " & SUBSTITUE(B1;"-";"W")

Michel

"Daniel" a écrit dans le message de
news:%23%
Bonjour à tous
étape 1 :
Je peut copiet une formule dans la collone a coté de
mes





donnée
GPS
avec =CONCATENER(C5;D5;)
mais comment faire pour pour insérer un "N" au début
et a la place du - un "w"

étape 2:
Je peut faire copie (CTRL-C) et basculer sur le
programme





GPS
( Alt-Tab)
puis ouvrire une fenêtre avec CTRL-G ,
pour finir collé (CTRL-V).


"Daniel" a écrit dans le message de news:
%
Bonsoir à Tous

J'ai besoin de trouver avec mon GPS les donné d'un autre format
de
GPS




et
l'introduire dans mon GPS pour l'ocaliser l'endroit.

1: J'ai une liste du format suisvant 45.291256 -73.4109039
( dans deux cellules )

et mon GPS lit le format suivant
N45 23.473 W73 30.844
(dans une cellule )

La procédure:
J'aurait aimer aller sur la première cellule (45.291256 ) et
exécuter
une


macro ( avec CTRL-g ).
et la macro traduirais le format des deux cellule en une
cellule








et
ouvre
le programme GPS
et ouvre une fenêtre avec la combimaison de Ctrl-g puis colle
le








nouveau
format et
fait la touche Entré.
fin.

J'ai commencer mais je suis blocquer !!!!! ??????

Sub Traduire_CamionTest()
MyAppID = Shell("C:Program FilesGarminnRoutenRoute.exe",
1)
SendKeys "{ESC}", True ' Envoie la combinaison escape pour
fermé






une
fenêtre non désirer
SendKeys "{ESC}", True ' Envoie la combinaison escape pour
fermé






une
fenêtre non désirer
Application.ScreenUpdating = False
Application.Wait (Now + TimeValue("00:00:02"))
SendKeys "^g", True ' Envoie la combinaison CTRL+g ouvre une
fenêtre





'?????????????????????????????????????
End Sub


Merci pour votre aide
































Avatar
Daniel
Bonsoir MPi

Ok pour la première formule cela va .
Je conbine cela pour finir la macro.
Je vous reviens un peut plus tard.

Gros Merci :-))))))

"MPi" a écrit dans le message de news:
c0COe.59291$
Salut,

Avec cette formule dans ton code, tu devrais avoir le bon résultat dans la
colonne J
Il faut doubler toutes les apostrophes pour que ça puisse
fonctionner.....ça
en fait quelques unes... ¦¬)

Range("J" & Ligne).FormulaLocal = "=""N"" & GAUCHE(H" & Ligne & ";2) " & _
"& "" "" & STXT(H" & Ligne & ";4;2) & ""."" & STXT(H" & Ligne &
";6;3) " & _
"& "" "" & GAUCHE(SUBSTITUE(I" & Ligne & ";""-"";""W"");3)" & _
"& "" "" & STXT(I" & Ligne & ";5;2) & ""."" & STXT(I" & Ligne
&
";7;3)"

Et si tu veux copier la formule sur toute la colonne, tu pourrais y aller
ainsi
Début = 15 'première ligne
Fin = 44 'dernière ligne
Range("J" & Début & ":J" & Fin).FormulaLocal = "=""N"" & GAUCHE(H" & Début
&
";2) " & _
"& "" "" & STXT(H" & Début & ";4;2) & ""."" & STXT(H" & Début &
";6;3) " & _
"& "" "" & GAUCHE(SUBSTITUE(I" & Début & ";""-"";""W"");3)" & _
"& "" "" & STXT(I" & Début & ";5;2) & ""."" & STXT(I" & Début
&
";7;3)"

Michel

"Daniel" a écrit dans le message de
news:
Bonsoir MPi

Pour faire un peu de lumière je m'explique.
Le but est de traduire les donnés avec la formule que tu ma donné,
pour l'introduire dans le programme GPS.
Il n'es pas nésessaire d'ajouter des donnés au fichier,
mais durant l'exécution de la macro ont peut utiliser la colonne K
et suprimer après utilisation.
J'ai attacher un exemple de la macro, mais la 6ième ligne du module est
a
corriger ???
http://cjoint.com/?ixdT18VCGT
Merci Beaucoup.

"MPi" a écrit dans le message de news:
8JgOe.30705$
Bon matin...

Ce n'est pas très clair
Je voudrait incorporer cela dans mon VBA .
le problème est que a la place de "H23" que cela soit la cellule
active
et
a

la place "I23,
la cellule a droite de la cellule active.
Si tes données sont toujours en H et en I et que tu veuilles mettre le

texte
modifié en J, il s'agit de changer les 23 par une variable
ex:
Dim Ligne
Ligne = activecell.row
Range("J" & Ligne).Formulalocal = "La Formule Que Tu As"
Dans cette formule, tu changes tous les 23 par
" & Ligne & "
guillemets inclus

Finalement, si les données ne sont pas toujours en H et I, mais
pourraient


être en C et D, ou F et G, il faudra définir les colonnes des valeurs.
C'est-à-dire que si l'utilisateur démarre la macro en étant sur C4, le
programme doit s'assurer que les données sont bien en C4 et D4 et que
le
résultat devra être en E4, ce qui n'est pas évident à faire...


Cette formule je l'insèrerais a droite au début de l'exécution du VBA
et



a la fin après la suprimerait après l'avoir copier.
Pas beaucoup plus clair..., ou bien je ne suis pas encore

réveillé...¦¬)
Pour avoir la même formule qui se répète sur plusieurs lignes, il faut
changer le Range de départ
Range("J1:J" & LigneFinale).Formulalocal = "......"
et plutôt que d'utiliser la variable Ligne qui est la ligne courante,
mettre
la ligne de départ (ici, ce srerait 1) et la ligne finale que tu peux
définir de différentes façons.
Donc, si tu sais que les formules copiées iront de la ligne 2 à 25,
LigneFinale = 25 et tu remplaces les "23" de la formule par des "2",
sans


les guillemets que tu affectes au Range("J2:J" &
LigneFinale).Formulalocal


.

Michel

"Daniel" a écrit dans le message de
news:%
Bonsoir MPi

Très bien pour la première partie.
="N" & GAUCHE(H23;2) & " " & STXT(H23;4;2) & "." & STXT(H23;6;3)
&GAUCHE(SUBSTITUE(I23;"-";" W");4) & " " & STXT(I23;5;2) & "."
&STXT(I23;7;3)
Cela me donne le bon format super.
Je voudrait incorporer cela dans mon VBA .
le problème est que a la place de "H23" que cela soit la cellule
active
et
a

la place "I23,
la cellule a droite de la cellule active.
Cette formule je l'insèrerais a droite au début de l'exécution du VBA
et



a la fin après la suprimerait après l'avoir copier.

Merci

"MPi" a écrit dans le message de news:
F75Oe.1234$
Salut,

Et comme ceci ?
="N" & GAUCHE(H17;2) & " " & STXT(H17;4;2) & "." & STXT(H17;6;3) &
GAUCHE(SUBSTITUE(I17;"-";"W");4) & " " & STXT(I17;6;2) & "." &
STXT(I17;8;3)

Michel

"Daniel" a écrit dans le message de
news:
Bonjour MPi
Merci pour l'aide
j'ai utiliser ta formule mais il manque des petites choses;
voici la formule et le résulta puis ce que je doit obtenir (deux
point





et
couper 2 chiffre)
="N" & H17 & " " & SUBSTITUE(I17;"-";"W")
N45.2911758 W73.4116364 réponce obtenue
N45 29.117 W73 41.163 réponce désirer
Voici ma liste
il faut faire attention car parfois ci le chiffre fini par zéro ou
2
zéro



,il sont coupé.
comme dans la liste suivante la deuxième et troisième ect.

45.2760315 -73.4209137
45.2759399 -73.420845
45.275898 -73.4208069
45.275856 -73.4207687
45.2757797 -73.4206696
45.275753 -73.4206314
45.2751007 -73.4197617
45.2750397 -73.4197235
45.2728043 -73.4205017


merci encore :-)
"MPi" a écrit dans le message de
news:





621Oe.7949$
Salut,

Pour l'étape 1
="N" & A1 & " " & SUBSTITUE(B1;"-";"W")

Michel

"Daniel" a écrit dans le message de
news:%23%
Bonjour à tous
étape 1 :
Je peut copiet une formule dans la collone a coté
de
mes





donnée
GPS
avec =CONCATENER(C5;D5;)
mais comment faire pour pour insérer un "N" au
début
et a la place du - un "w"

étape 2:
Je peut faire copie (CTRL-C) et basculer sur le
programme





GPS
( Alt-Tab)
puis ouvrire une fenêtre avec CTRL-G ,
pour finir collé (CTRL-V).


"Daniel" a écrit dans le message de
news:
%
Bonsoir à Tous

J'ai besoin de trouver avec mon GPS les donné d'un autre
format
de
GPS




et
l'introduire dans mon GPS pour l'ocaliser l'endroit.

1: J'ai une liste du format suisvant 45.291256 -73.4109039
( dans deux cellules )

et mon GPS lit le format suivant
N45 23.473 W73 30.844
(dans une cellule )

La procédure:
J'aurait aimer aller sur la première cellule (45.291256 ) et
exécuter
une


macro ( avec CTRL-g ).
et la macro traduirais le format des deux cellule en une
cellule








et
ouvre
le programme GPS
et ouvre une fenêtre avec la combimaison de Ctrl-g puis colle
le








nouveau
format et
fait la touche Entré.
fin.

J'ai commencer mais je suis blocquer !!!!! ??????

Sub Traduire_CamionTest()
MyAppID = Shell("C:Program
FilesGarminnRoutenRoute.exe",
1)
SendKeys "{ESC}", True ' Envoie la combinaison escape pour
fermé






une
fenêtre non désirer
SendKeys "{ESC}", True ' Envoie la combinaison escape pour
fermé






une
fenêtre non désirer
Application.ScreenUpdating = False
Application.Wait (Now + TimeValue("00:00:02"))
SendKeys "^g", True ' Envoie la combinaison CTRL+g ouvre
une
fenêtre





'?????????????????????????????????????
End Sub


Merci pour votre aide