format % et monétaire en vba

[fr832]

Bonjour,
comment modifier ce code

Case 8
                £Ctrl.Value = .Cells(£ligne1, 4)
            Case 9
                £Ctrl.Value = .Cells(£ligne1, 5)
            Case 10
                £Ctrl.Value = .Cells(£ligne1, 6)
            Case 12
                £Ctrl.Value = .Cells(£ligne1, 8)

afin que les cases 8;10 et 12 soit affiché en format monétaire, avec le sigle € et deux décimales?
et que la case 9 soit affiché sous le format % avec deux décimales?

Par avance merci à tous

 

[job75]

Re : format % et monétaire en vba

Bonsoir fr832,

Le code copie des cellules (je ne sais pas dans quoi).

Le plus simple est de mettre les cellules au format souhaité, alors en VBA il suffit de copier ce qu'elles affichent par :

£Ctrl.Value = .Cells(£ligne1, 4).[COLOR="Red"]Text[/COLOR]

Sinon utiliser Format, ça doit marcher, non ?

A+

 

[fr832]

Re : format % et monétaire en vba

bonsoir JOB 75 ,
en fait les textbox récupère les données d'un tableaux excel, il y a des valeurs monétaires et ¨%.

dans mon tableaux par exemple j'ai 5,5 % d'affiché dans ma textbox ça affiche 0,055

Je vais essayer format comme tu le préconises mais suis pas vraiment calé là dedans si ja n'y arrive pas je reviendrai crier au secours.
Merci

 

[fr832]

Re : format % et monétaire en vba

re bonsoir,
voila j'ai fait ce code

 Case 4
                £Ctrl.Value = .Cells(£ligne1, 7)
            Case 6
                £Ctrl.Value = .Cells(£ligne1, 2)
            Case 7
                £Ctrl.Value = .Cells(£ligne1, 3).NumberFormat = "#,##0.00 $"
            Case 8
                £Ctrl.Value = .Cells(£ligne1, 4).NumberFormat = "0.00%"
            Case 9
                £Ctrl.Value = .Cells(£ligne1, 5).NumberFormat = "#,##0.00 $"
            Case 10
                £Ctrl.Value = .Cells(£ligne1, 6).NumberFormat = "#,##0.00 $"
            Case 12
                £Ctrl.Value = .Cells(£ligne1, 8)

mais ça ne fonctionne pas car dans mes textbox il s'affiche,TRUE et FALSE

merci pour vos lumières,
😕

 

[job75]

Re : format % et monétaire en vba

Re,

Apparemment vous n'avez pas essayé, comme je vous le conseillais, de mettre les cellules au format voulu (ça se passe dans la feuille, pas en VBA).

Alors ce code :

Case 4
£Ctrl = .Cells(£ligne1, 7)
Case 6
£Ctrl = .Cells(£ligne1, 2)
Case 7
£Ctrl = [COLOR="Red"]Format[/COLOR](.Cells(£ligne1, 3), "# ##0.00 $")
Case 8
£Ctrl = [COLOR="red"]Format[/COLOR](.Cells(£ligne1, 4), "0.00%")
Case 9
£Ctrl = [COLOR="red"]Format[/COLOR](.Cells(£ligne1, 5), "# ##0.00 $")
Case 10
£Ctrl = [COLOR="red"]Format[/COLOR](.Cells(£ligne1, 6), "# ##0.00 $")
Case 12
£Ctrl = .Cells(£ligne1, 8)

A+

 

[fr832]

Re : format % et monétaire en vba

Bonsoir job 75
et merci pour ton aide je n'avais pas tout à fais compris désolé en fait comme j'essayais avec format voila mon obstination bête c'est sur. Car mes formats de cellules étaient déja fait.

Encore merci pour tout et te souhaite une bonne soirée amitiés🙂