conversion DD en DMS

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:

---

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

Hello,
tu peux t'en sortir avec des formules du genre (ici version française) :

Code:

---

=SI(B3<0;"S ";"N ")&TEXTE(ABS(B3/24);"[hh]°mm'ss,000")

---

et

Code:

---

=SI(C3<0;"O ";"E ")&TEXTE(ABS(C3/24);"[hh]°mm'ss,000")

---

avec une conversion en , du . si nécessaire :

Code:

---

=SUBSTITUE(B2;".";",")*1

---

Pièce jointe 626346

Ami calmant, J.P

Bonsoir,

Merci pour ta réponse.
J'aurai préférer un code vba si possible.

Bonne soirée

Hello,

Citation:

---

Envoyé par nawak83

B
J'aurai préférer un code vba si possible.

---

tu peux essayer un truc du genre :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Function convToDMS(dd, isLng) Dim Direction, absDd, deg, frac, min, sec dd = CDbl(Replace(dd, ".", ",")) If dd < 0 Then If isLng Then Direction = "W" Else Direction = "S" Else If isLng Then Direction = "E" Else Direction = "N" End If absDd = Abs(CDbl(dd)) deg = Int(absDd) frac = absDd - deg min = Abs(Int(frac * 60)) sec = frac * 3600 - min * 60 sec = Abs(Int(sec * 1000) / 1000) convToDMS = CStr(deg) + "°" + CStr(min) + "'" + _ Replace(Format(sec, "00''.000"), ",", ".") + " " + Direction End Function   Sub Conversion() Dim Rng As Range Dim Ws As Worksheet Dim WorkRng As Range Dim num1, num2, num3 Set Ws = Worksheets("Country") For Each Rng In Ws.Range("Coords").Rows Rng.Cells(1, 3).Value = convToDMS(Rng.Cells(1, 1).Value, False) Rng.Cells(1, 4).Value = convToDMS(Rng.Cells(1, 2).Value, True) Next Rng End Sub

---

Pièce jointe 626477


Ami calmant, J.P

Bonjour mer ci pour ta réponse.

Lorsque je lance ta macro, j'ai une erreur 9.


Pièce jointe 626484

maintenant, j'ai renommé ma feuille, et j'ai une autre erreur , la voici.

Pièce jointe 626489

Merci encore pour ta réponse réponse,
Bonne journée

amicalement

mon code n'est qu'un exemple, il faut l'adapter à ton classeur :mrgreen: . Il y a une plage nommée (Coords) sur la feuille Country chez moi. Cette plage représente les coordonnées en entrée (C2 : D200).
Et quand il y a une erreur il faut dire sur quelle ligne
:cristal:

ok ok désolé alors celui la pour les plage a changé je ne l'ai pas vu arrivé!
:arf::arf::arf::scarymov::scarymov::scarymov: