VBA et format nombre

[binoute]

bonsoir le forum,
lors du transfert de données, récuperés dans des textbox, pour renseigné un autre classeur, j'utilise le code suivant :

If IsDate(TextBox41) Then
j = Wb.Sheets(Month(TextBox41)).Range('B65536').End(xlUp).Row + 1

With Wb.Sheets(Month(TextBox41)) 'transfert les donnees dans la feuille
.Range('B' & j) = TextBox40.Value
.Range('C' & j) = Format(TextBox41, 'MM/DD/YYYY')
.Range('D' & j) = TextBox42.Value
.Range('F' & j) = TextBox43.Value
.Range('G' & j) = TextBox44.Value
.Range('E' & j) = TextBox45.Value
.Range('H' & j) = Format(TextBox46, 'MM/DD/YYYY')
End With
End If

Le probleme est sur la textbox44 qui contient un prix.
meme si mon format de cellule de destination est parametré en nombre, lors du transfert la cellule de destination perd ses caracteristiques initiales ! et comme je me sert de ces données pour faire du calcul derriere .... ça ne marche pas.
une ame charitable à t'elle la solution ?
merci et @+

 

[laurent45]

Bonsoir Binoute,
Bonsoir le Forum,

Moi, j'ai le même genre de problème avec TextBox et Listbox, mais à l'inverse.
Je récupère des données en format monétaire sur une feuille, et arrive au format standard dans l'USF. :silly:

Je me joins à toi pour profiter de réponse. B)

Bonne soirée

Laurent

 

[Baside]

Bonjour Laurent45 Binoute le forum

Avec un fichier, ce serait plus simple, je pense

baside

 

[laurent45]

Bonsoir Baside, Binoute, le Forum,

Voila mon fichier.

Moi par contre, les données ne modifient pas le format de la celulle de destination. Elle partent en standard et se trandforment en monétaire comme la celulle est formatée.

J'aimerai que lors du chargement de l'USF2, la ListBox et la Combobox affichent les montants en monétaire.

Question subsidiaire : est-il possible d'afficher un trait entre 2 colonnes dans un controle multicolonne ?

Merci

Bonne nuit

Laurent

 

[Baside]

Bonjour Laurent45

Le fichier doit être un zip sans accent ni espace et de moins de 50Ko

Baside

 

[laurent45]

Re Baside,

OUPSSS

Un p'tit régime et ça glisse.....

@+

Laurent
[file name=FeuilleCRT_20050604014157.zip size=39780]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/FeuilleCRT_20050604014157.zip[/file]

 

[PascalXLD]

Bonjour

Pour Binoute

esaies de remplacer cette ligne

.Range('G' & j) = TextBox44.Value

par

.Range('G' & j) = cdbl(TextBox44.Value)

Bon courage

 

[binoute]

bonjour pascal, laurent le forum,
Pas de probleme pascal le cdbl fonctionne à merveille
merci pour la recherche et ton aide
bonne chance à laurent mais avec les ressources du forum pas d'inquietude
@+ tout le monde