Discussion :

[nawak83]

Bonsoir la communauté,

Je reçois des coordonnées dans un fichier excel sous cette forme : N323536 dans la colonne A et E0363636 dans la colonne B.
je souhaiterai copier les colonne A et B de ce fichier et les envoyer dans les colonne D et E d'un autre fichier tout en les convertissant sous cette forme N 32°35'36".000 E 036°36'36".000

j'ai trouvé un debut de code, mais je bloque pour la suite. j'arrive à séparer le N ou S et E ou W des chiffre.
je ne sais pas comment faire pour mettre le °, ' , ".

voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Columns("B:C").Select
 
Selection.Replace What:="N", Replacement:="N ", LookAt:=xlPart, _
       SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=True, _
       ReplaceFormat:=False
 
Selection.Replace What:="E0", Replacement:="E 0", LookAt:=xlPart, _
       SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=True, _
       ReplaceFormat:=False
 
Selection.Replace What:="W", Replacement:="W 0", LookAt:=xlPart, _
       SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=True, _
       ReplaceFormat:=False
 
Selection.Replace What:="S", Replacement:="S ", LookAt:=xlPart, _
       SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=True, _
       ReplaceFormat:=False

En vous remerciant par avance.

Bonne soirée

[patmicro]

Bonsoir nawak83 : Peut-être en utilisant les caractères spéciaux.

Pour degré tester avec le ° à droite de @ et minute " touche du dièse

[nawak83]

je suis désolé Pat mais je comprend pas

[jurassic pork]

Hello,
pour faire ce genre de traitement en VBA, tu peux utiliser les expressions régulières avec l'objet COM vbscript.regexp.
Voici une fonction personnalisée qui convertit tes coordonnées GPS dans le format voulu.
Les motifs des expressions régulières permettent de capturer 4 groupes et de les reformer dans le format désiré.
exemple de motif : ([NS]{1})(\d{2})(\d{2})(\d{2})
Explication : le premier groupe capturé est un N ou S, le deuxième groupe est un ensemble de 2 digits, le troisième et le quatrième groupe aussi. les groupes sont alors $1, $2, $3, $4.
On recrée la chaîne grâce à la fonction Replace du regexp.
Voici la fonction personnalisée ConvCoord :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Function ConvCoord(ValCoord) As String
Dim RE As Object
Set RE = CreateObject("vbscript.regexp")
ConvCoord = "ERREUR"
RE.Pattern = "([NS]{1})(\d{2})(\d{2})(\d{2})"
If RE.Test(ValCoord) Then
    ConvCoord = RE.Replace(ValCoord, "$1 $2° $3' $4"".000")
Else
  RE.Pattern = "([EW]{1})(\d{3})(\d{2})(\d{2})"
  If RE.Test(ValCoord) Then
    ConvCoord = RE.Replace(ValCoord, "$1 $2° $3' $4"".000")
  End If
End If
End Function

Si la chaîne à convertir ne correspond pas aux motifs la chaîne ERREUR est renvoyée.



Ami calmant, J.P

[Invité]

Bravo Nawak83 pour le CROSS POSTING

[hyperion13]

Je plussoie
Mais c'est quoi une grosse macro ?

Bravo Nawak83 pour le CROSS POSTING