Format transfert du textbox vers cellule

[Rubis57]

Bonjour à toutes et à tous,

quelqu’un pourrait me dire comment adapter cette ligne de code afin que lors du transfert vers la cellule il me donne le résultat en format monétaire.

Sheets("SUIVI FOURNISSEURS").Range("G" & LIGNECHOISIE).Value = Val(Me.TextBox8)

exemple :
si je saisi dans le textbox8 2548.355 j’aimerai avoir en cellule le résultat 2548.355 €.

Merci d’avance à vous.

Rubis

[taz067]

Hello
A tout hasard

Sheets("SUIVI FOURNISSEURS").Range("G" & LIGNECHOISIE).Value = Val(Me.TextBox8, "€")

je n’ai pas essayé !

[Rubis57]

Bonjour taz,

Merci pour ton retour mais cela ne fonctionne pas.

Dire que j’avais toutes ces formules et codes sur un pc et j’ai tout perdu !!

[Cousinhub]

Bonjour,
Essaie avec ce code :

With Sheets("SUIVI FOURNISSEURS").Range("G" & LIGNECHOISIE)
    .NumberFormat = "#,##0.00 $"
    .Value = Val(Me.TextBox8)
End With

Bonne journée

[taz067]

Hello
pourquoi ne pas simplement mettre sur la feuille en question toute la colonne au format "Monétaire ou Comptabilité "

[Cousinhub]

Bonjour,
ou bien plus simplement, en utilisant un Tableau Structuré (avec les codes idoines)

[Rubis57]

Bonjour taz,

Merci, j’ai fais comme tu me l’a conseillé et cela fonctionne.

Je te dis certainement à une prochaine fois.

Rubis

[Rubis57]

Bonjour Cousinhub,

je viens d’accepter la solution de taz. Merci à toi d’y avoir participé.

A une prochaine fois

Rubis