Discussion :

[siril]

Bonjour,

Est-il possible de formater ce que renvoie une fonction ?

Exemple. La fonction suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Function Temps_Trajet(Distance As Integer, Vitesse As Integer) As Date
    Temps_Trajet = Format(Distance / Vitesse / 24, "hh:mm:ss")
End Function

Me renvoie 0,083333333 lorsque j'utilise cette fonction dans une feuille de calcul en passant en paramètre 100 en distance et 50 en vitesse : =TempsTrajet(100;50)

Et lorsque je passe sur la feuille de calcul, la cellule au format "hh:mm:ss", j'obtiens bien "2:00:00".

Donc, mon formatage n'est pas du tout pris en compte...


Ai-je fais une erreur ? Ou bien est-il impossible de formater la valeur renvoyer par une fonction ?

D'avance, merci

[Philippe Tulliez]

Bonjour,
Une formule personnalisée dans excel ne peut renvoyer qu'une valeur ou une matrice de valeurs.
Si tu souhaites renvoyer une valeur formatée tu le peux en changeant le type de la fonction comme String et plus comme Date mais alors la valeur renvoyée ne sera plus une heure au sens où Excel le traite c'est à dire une valeur décimale.
Comme j'imagine que ce n'est pas ce que tu attends, tu dois formater au préalable la colonne qui doit contenir ta formule au même titre que n'importe quelle formule d'excel. Cependant si tu formates la première cellule de la colonne, automatiquement en copiant la formule le format sera recopié.

[patricktoulon]

bonsoir
c'est normal tu formate dans la fonction et en memetemps tu lui donne un format as date
donc resultat dans la fonction c'est bon mais des que l'on en sort ca redeviens une date avec jour mois année heure minute secondes
et comme la date n'est pas renseigné ca te sort une date préhistorique

voila

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub test()
[A1] = Temps_Trajet(400, 2)
End Sub
 
Function Temps_Trajet(Distance As Long, Vitesse As Long)
  'MsgBox CDate(Distance / Vitesse / 24)
    Temps_Trajet = Format(CDate(Distance / Vitesse / 24), "hh:nn:ss")
End Function

[edit]: excuse philippe on s'est croisés

ou alors si comme philippe te l'a dit ,si tu veux que ta cellule soit formatée se sera

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub test()
[A1] = Format(Temps_Trajet(400, 2), "hh:nn:ss")
End Sub
 
Function Temps_Trajet(Distance As Long, Vitesse As Long)
  'MsgBox CDate(Distance / Vitesse / 24)
    Temps_Trajet = CDate(Distance / Vitesse / 24)
End Function

[siril]

OK. Merci Philippe pour cette limpide réponse Merci Patrick également