Bonjour,

J'ai lu cette discussion.
Citation Envoyé par Ormonth
et c'est un format nombre que tu obtiens ci-dessus ? Tu peux faire des calculs entre les meme unités si besoin ?
Apparemment non.
Je viens d'essayer. Et effectivement ça marche. Par contre, lorsque'on double-clique sur la cellule pour modifier la valeur, si on sélectionne tout le texte pour taper un nombre, il ne reste que ce nombre et l'unité disparaît.
Ce code est bien pour l'affichage mais pas pour l'édition...
Si quelqu'un a la solution,cela m'intéresse.

Pour résumé, je voudrais donc remplacer :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
    unite = rst("UniteVolume"): formatnom = "0 "
wks.Range("D4") = Format(rst("budgetVolumes"), formatnom & unite)
Par :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
wks.Range("D4").Value = rst("budgetVolumes")
.Range("D4").NumberFormat = "0"" Hrs"""
Avec, au lieu de Hrs, la variable unite