Macro de modification de coordonnées GPS

Bonjour,

Je me permet de vous contacter car j'essais désesérément de créer une macro qui me modifie mes coodonnées GPS (colone H et J) sur toutes mes lignes du fichier. (soit + de 200 lignes)

Les coordonnées GPS sont du WGS84 et je voudrais les convertir en décimal.

exemple : I =45.0536816928201

H= 0.374257073232937

Calcul à effectuer :

I = 45+(05/60)+(36/3600) = 45,09333333333333 puis tronquer le résultat = 45,09333

H = 0+(37/60)+(42/3600) = 0,6283333333333333 on tronque = 0,62833

1/Effectuer le calcul

2/Remplacer le contenu par celui existant

fichier :

En vous remerciant.

Bonjour,

...+(36/3600)

J'ai préféré conserver tous les chiffres et arrondir en fin de calcul pour ne pas perdre trop de précision

Contrôle et dis si ça va.

Sélectionne ta plage de 2 colonnes à traiter avant de cliquer sur le bouton.

eric

Merci la macro fait bien ce que je veux mais serait il possible de marquer en dur dans la macro le numéro de la colone plutot que de selectionner les 2 colonnes et de cliquer sur le bouton ?

De facon à ce que la macro s'exécute de facon transparente quand je la lance.

En vous remerciant.

Voilà :

Sub convDecimal()
    Dim datas As Variant, lig As Long, col As Long, derlig As Long
    Dim coord As Double
    derlig = Cells(Rows.Count, "H").End(xlUp).Row
    datas = [H2].Resize(derlig - 1, 2).Value
    For lig = 1 To UBound(datas, 1)
        For col = 1 To 2
            If IsNumeric(datas(lig, col)) Then
                coord = (datas(lig, col) - Int(datas(lig, col))) * 100
                coord = Int(datas(lig, col)) + Int(coord) / 60 + (coord - Int(coord)) / 36
                datas(lig, col) = Round(coord, 4)
            End If
        Next col
    Next lig
    [H2].Resize(derlig - 1, 2) = datas
End Sub

eric

C'est parfaitement ce que je voulais !!!

Merci beaucoup