Passage Latitude et longitude en Décimal sous VBA

[baptbapt]

Bonjour

J'ai un petit problème lors du lancement d'un de mes codes

Je vien de remarquee que certianes de mes données sont dans des coordonnées que mon programme ne peut pas lire
Il faut donc que je les convertisse

Problème, je sais pas comment faire

54:00:59:N

en décimal sa fait 54 + 00/60 +59/3600
avec N correspondant au signe +
S serait un -

Je ne sais pas le convertir en VBA

Si quelqu'un a la solution

Merci

 

[Creepy]

Re : Passage Latitude et longitude en Décimal sous VBA

Bonjour,

Voici un bout de code qui fait ce que tu demandes. Attention : je ne vérifie pas si la saisie est correcte ou non.
J'ai aussi recréé le calcul exactement comme tu me l'as donné mais, mes avis, qu'il doit y avoir des parenthèses quelque part.

Bref voila le code. Il fonctionne si tu mets tes coordonnées en A1, sous la forme 17:22:59:S

Sub Calcul()
Dim Nombre_1 As Integer, Nombre_2 As Integer, Nombre_3 As Integer, Signe As String
Dim Resultat As String
Nombre_1 = Mid$(Cells(1, 1).Value, 1, 2) ' Recuperation des 3 valeurs
Nombre_2 = Mid$(Cells(1, 1).Value, 4, 2)
Nombre_3 = Mid$(Cells(1, 1).Value, 7, 2)
If Mid$(Cells(1, 1).Value, 10, 1) = "N" Then ' Recup du signe
    Signe = "+"
Else
    Signe = "-"
End If
Resultat = Signe & Nombre_1 + Nombre_2 / 60 + Nombre_3 / 3600 ' Calcul
MsgBox "1er nombre : " & Nombre_1 & vbCrLf & _
"2eme nombre : " & Nombre_2 & vbCrLf & _
"3eme nombre : " & Nombre_3 & vbCrLf & _
" Resultat : " & Resultat, vbInformation + vbOKOnly, "Alors..." ' Afficahge
End Sub

voila

@+

Creepy

 

[baptbapt]

Re : Passage Latitude et longitude en Décimal sous VBA

Non non, il n'y a pas de parenthèse

Merci bien

J'ai trouvé un code qui fonctionne, mais le tien et bien plus petit, sa va me servir

L'autre 13 pages quand je l'imprime, c'est un peu lourd comme code

Merci a toi