Problème de Format suite a l’écriture d'une cellule en VBA

Bonjour à tous,

je rencontre un petit souci, j'ai une colonne avec un format de données "_(€* # ##0,00_);_(€* (# ##0,00);_(€* "-"??_);_(@_)"
et quand je renseigne une cellule (via une macro) de cette colonne, le format ne s'applique pas automatiquement.

Pièce jointe 397117

Mais quand je rentre en édite sur la cellule et que je ressort le format s'applique bien.

Pièce jointe 397118

Code:

---

1 2 3 4 5 6

'AG TJM Range("AG" & LigDou).Value = Replace(DetDou(20), ".", "") 'AH TJM + 10 % Range("AH" & LigDou).Value = Replace(DetDou(21), ".", "") 'AI Presta Range("AI" & LigDou).Value = Replace(DetDou(22), ".", "")

---

merci d'avance pour votre aide
Mathias

Parce que Excel considère le contenu de la cellule comme du texte (la fonction Replace renvoie du String) et que les format Nombre ne s'appliquent pas au texte.

Essaye :

Code:

---

Range("AG" & LigDou).Value = CDbl(Replace(DetDou(20), ".", ""))

---

ou bien

Code:

---

Range("AG" & LigDou).Value = 1 * Replace(DetDou(20), ".", ""))

---

Il y a au moins une douzaine d'autre méthode qui, au final, se résume à la même chose : transformer du texte numérique en une vraie valeur numérique.

Merci Menhir,

impeccable, je viens de tester avec "CDbl" et ca marche impec.

Merci encore pour la rapidité de la réponse.