Macro conversion DEC-DMS

Bonjour,

Voila de nouveau un blocage sur une macro avec excel 2007.

Je ne comprends pas ce qu'il se passe dans la macro, je suis hyper novice... alors soyez compréhensif par avance merci de vos solutions je joins le fichier, les explications sont dans le fichier...

Cordialement.

Bonjour,

Je ne vois pas de macro dans votre fichier.

Autre chose, indépendamment de la manière de la coder, est-il possible de détailler les étapes de la conversion ?

Bonjour,

Deux petites remarques ...

1. A priori ... pas besoin de macro ... ou alors une fonction personnalisée ...

2. Tu as oublié de joindre ta macro ...

Bonjour, je ne comprends pas bien les macros donc voici le fichier .bas compressé .rar

Merci.

Re,

Merci pour ta macro ...

Pour convertir les degrés décimaux en degrés minutes et secondes ...

Sommes-nous d'accord que dans ton exemple :

25.25255 devrait donner comme résultat 25° 15' 9"

Re bonjour,

voici la méthode que j'ai utilisé sur youtu.. https://www.youtube.com/watch?v=UtIms-NAaOY&t=205s

Cordialement.

Re,

Oui pour la question de james007

En formules :

Degrés :

=ENT(A7)

Minutes :

=ENT((A7-C7)*60)

Secondes :

=ENT((A7-C7-G7/60)*3600)

En VBA :

Sub Conversion()

Dim D As Integer, M As Integer, S As Integer

With Sheets("Feuil1")
    D = Int(.Range("A7"))
    M = Int((.Range("A7")-D)*60)
    S = Int((.Range("A7")-D-M/60)*3600)
    .Range("C7") = D
    .Range("G7") = M
    .Range("I7") = S
End With

End Sub

Re,

Ci-joint ton fichier test ...

En espèrant que cela t'aide

Merci à vous deux...

James007, merci pour le fichier excel test super et super simple.

Pedro22, merci aussi je fais les tests et je choisirais la solution qui m'intéresses...

Re merci...

Merci pour tes remerciements ...

Pedro22 a écrit :

En formules :

Degrés :

=ENT(A7)

Minutes :

=ENT((A7-C7)*60)

Secondes :

=ENT((A7-C7-G7/60)*3600)

C'est ici que ça va pas...

En VBA :

Sub Conversion()

Dim D As Integer, M As Integer, S As Integer

With Sheets("Feuil1")
    D = Int(.Range("A7"))
    M = Int((.Range("A7")-D)*60)
    S = Int((.Range("A7")-D-M/60)*3600)  [color=#BF0000]C'est ici que ça va pas... :bof:[/color]
    .Range("C7") = D
    .Range("G7") = M
    .Range("I7") = S
End With

End Sub

Bonjour, Pedro22

Je viens d'essayer ton code et j'ai un petit soucis au niveau des secondes ex: 42 cent. ne donnent pas 15" mais 25" j'ai beau chercher dans les calculs...avez vous une réponse a ce problème?... nota: j'ai essayé en formule excel et c'est pareil...

James007 a écrit :

Sommes-nous d'accord que dans ton exemple :

25.25255 devrait donner comme résultat 25° 15' 9"

comep a écrit :

Oui pour la question de james007

Bonjour

Je me suis basé sur les affirmations ci-dessus...

42 cent --> 42/100*60 --> 25,2

Bonjour,

Petite erreur de ma part en répondant à james007, 25 centième = 15"

Voir tableau de conversion joint,

Désolé de cette erreur d'interprétation....

Bonjour,

Je dois avouer que ton fichier et tes explications ne sont pas très claires...

Si j'ai bien saisi le problème, il te suffit de changer la formule pour les secondes par celle-ci :

=(A2*100-ENT(A2*100))*60

Pareil pour la formule VBA si tu souhaites retenir cette solution.

Re,

Après quelque temps, voila j'ai solutionné le problème, voir le fichier joint...

Oui Pedro22, je suis passé par des chemins différents...

nota : Plusieurs procédés mais cela marche

Gd merci a tous...