Bonsoir la communauté,

j'ai une nouvelle fois besoin de précieuse aide.

j'essaye de convertir des cordonnées GPS de degrés décimaux en degrés minutes seconde.

J'ai trouvé plein de formule sur internet pas une seule qui réponde à mes attentes.

actuellement j'arrive a transformer mes DD en DMS mais il me manque l'information cardinale et surtout si la coordonné commence par 0 celui est supprimé.

Voici le code que j'ai réussi a trouver :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub DD()
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    num1 = Rng.Value
    num2 = (num1 - Int(num1)) * 60
    num3 = Format((num2 - Int(num2)) * 60, "00")
    Rng.Value = Int(num1) & "ø" & Int(num2) & "'" & Int(num3) & "''" & ".000"
Next
End Sub
avec ce code je suis obligé de selectionner ma plage de cellule. Or je voudrais que cela ce fasse automatiquement sur les colonne C et D et avoir le resultat en N xx°xx'xx".xxx et W xxx°xx'xx".xxx.

en vous remerciant par avance pour votre aide
bonne soirée