Format comptabilité unifiée

[apt]

Bonjour,

Comment unifier le format des nombres avec virgule, au format "Comptabilité", lors d'une saisie automatique dans mon exemple en pièce jointe ?

Merci.

 

[CBernardT]

Re : Format comptabilité unifiée

Bonsoir Apt,

En supposant que la saisie automatique soit le report de données depuis un formulaire dans une userform et que la valeur provienne de Textbox, le code peut avoir la syntaxe suivante :

'Transfert des données saisies dans la feuille "CONSULTATION"
With Sheets("CONSULTATION")
L = .Cells(65536, 1).End(xlUp).Row + 1
.Cells(L, 1) = .Cells(L-1, 1) + 1
.Cells(L, 2) = CDate(Tbdate)
.Cells(L, 3) = Tbclient
.Cells(L, 4) = Tbcompte
.Cells(L, 5) = CCur(TbMontant)
.Cells(L, 6) = TbMotif
End With

Cordialement

Bernard

 

[apt]

Re : Format comptabilité unifiée

Bonjour Bernard,

L'erreur dans la cellule a disparue.

Mais le format nombres dans la cellule est :

# ##0,00\ _€;-# ##0,00\ _€ (Personnalisée)

Et non pas "Comptabilité", parce qu'il y’a un petit décalage vers la droite par rapport à l’alignement des autres nombres dans la colonne.

Merci.

 

[CBernardT]

Re : Format comptabilité unifiée

Bonjour Apt et le forum,

Ce n'était qu'un exemple de syntaxe donné !

Si tu veux que le forum puisse étudier ton problème, il faut mettre le formulaire et son code en PJ.

Cordialement

Bernard

 

[apt]

Re : Format comptabilité unifiée

Bonjour Bernard,

Mes données, dont les sommes d'argent, sont insérées depuis une ListeBox.

Pour ton exemple, j'ai seulement utilisé la fonction de conversion CCur().

Je vais essaye de coder un petit exemple.

En attendant, si quelqu'un à une solution, qu'elle soit la bienvenue.

Merci.

 

[apt]

Re : Format comptabilité unifiée

Bonjour,

Voila une réponse posté recement de la part de Roland_M pour résoudre ce problème :

Envoyé par Roland_M
bonjour

ce n'est dû au format que tu as dans l'userform, mais au moment ou tu les recolles dans les feuilles !
pour recoller des valeurs depuis Vb vers Excel il faut remplacer les virgules par des points !

exemple:
si tu as tes valeurs dans un TextBox1
Cells(Lig, Col) = Replace(TextBox1, ",", ".")

Merci Roland_M.