format nombre, unité variable

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:

---

1 2	unite = rst("UniteVolume"): formatnom = "0 " wks.Range("D4") = Format(rst("budgetVolumes"), formatnom & unite)

---

Par :

Code:

---

1 2	wks.Range("D4").Value = rst("budgetVolumes") .Range("D4").NumberFormat = "0"" Hrs"""

---

Avec, au lieu de Hrs, la variable unite

Eurêka ! j'ai trouvé :

Code:

---

1 2 3

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

---

rst étant un recordset sur une table ACCESS