Discussion :

[paidge]

Bonjour,

J'ai lu cette discussion.

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

[paidge]

Eurêka ! j'ai trouvé :

Code :

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

1
2
3
dim unite As String
unite = rst("UniteVolume")
wks.Range("D4").NumberFormat = "0 " & """" & unite & """"

rst étant un recordset sur une table ACCESS