Voilà ===>>>
Option Explicit
Private Sub Command1_Click()
Dim exprdecimale As Double, expr As Double, secondes As Double, minutes As Double, degres As Double, decimales As Double
exprdecimale = 46.1744444
expr = exprdecimale * 60 * 60
decimales = expr - Int(expr)
secondes = Int(expr)
calculons secondes, minutes, 60 ' car on a 60 secondes dans une minute
calculons minutes, degres, 60 ' car on a 60 minutes dans un degré
secondes = secondes + decimales
MsgBox degres & " degré(s) " & minutes & " minute(s) " & secondes & " seconde(s)"
End Sub
Private Sub calculons(uniteencours As Double, uniteaudessus As Double, rapport As Integer)
uniteaudessus = uniteencours \ rapport
uniteencours = uniteencours Mod rapport
End Sub
Et un tel code pourrait être utilisé pour n'importe quoi, à l'infini (par exemple pour calculer le nombre de sacs, de sachets et de goussets nécessaires pour caser x articles, sachant qu'un sac peut contenir xx sachets et qu'un sachet peut contenir yy goussets
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient