Convertir nombre important de secondes en hh:

Une macro ça te conviendrait ou pas ? :x

Tiens j'ai fais une macro qui fonctionne , le code le voici :

Private Sub CommandButton1_Click()
For j = 1 To 25
seconde = Sheets("Feuil1").Range("A" & j & "")
nbheure = seconde / 3600
nmin = seconde / 60
If nmin <= 1 Then
Cas = "A" & j & ""
MsgBox "Aucune valeure à convertir dans la case " & Cas & ""
End If
If nbheure >= 1 And nmin >= 1 Then
heure = Int(nbheure)
nbminute = (seconde - (heure * 60)) / 60
Min = Int(nbminute)
seconderest = seconde - (heure * 60) - (Min * 60)
End If
If nbheure <= 1 And nmin >= 1 Then
heure = ""
nbminute = seconde / 60
Min = Int(nbminute)
seconderest = seconde - (Min * 60)
End If
If heure = "" And nmin >= 1 Then MsgBox "" & seconde & " secondes vaut " & Min & " minutes et " & seconderest & " secondes."
If heure <> "" And nmin >= 1 Then MsgBox "" & seconde & " secondes vaut " & heure & " heures, " & Min & " minutes et " & seconderest & " secondes."
Next j
End Sub

Si tu sais pas te servir d'excel dis le moi.
Cette macro convertit les valeurs en secondes et affiche à chaque fois la conversion. Je sais que ce n'est pas ce que tu recherches mais j'attends que tu me dises si tu veux cela sous forme de macro ou pas pour rentrer dans le vif du sujet.
Il suffira simplement de selectionner toute la feuille puis que la macro fasse cellule apres cellule la meme manipulation jusqu'a la Nième colonne que tu aura définie ^^....
C'est une macro ou pas que tu veux alors ? :p

Merci beaucou pour votre aide! Ca fonctionne :)

Pense à mettre ton topic en RESOLU ...

Comment se compliquer la vie ! J'suis un bon dans ce domaine x)
+1 Eriic =)