Discussion :

[Mathrap65]

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.



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

Code :

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

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

[Menhir]

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 :

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

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

ou bien

Code :

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

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.

[Mathrap65]

Merci Menhir,

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

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