XL 2013 Textbox au format pourcentage

[davidp]

Bonjour à tous ,

j'ai une nouvelle fois besoin de votre aide , je cherche désespérément à obtenir le format pourcentage dans des textbox .
Je joins un fichier au cas ou quelqu'un pourrait m'aider


Merci d'avance pour votre aide

DAVIDP

 

[ERIC S]

Re : Textbox au format pourcentage

Bonjour


peut-être

TextBox1.Value = Format(Range("D3").Value, "00.00 %")

 

[Modeste geedee]

Re : Textbox au format pourcentage

Bonsour®

Private Sub UserForm_Initialize()

TextBox1.Value = Format(Sheets("base").Range("d3"), "00.00%")
' !!!!!! le format en VBa est de style US : le point est le séparateur décimal, la virgule le séparateur de milliers

End Sub

nb :
un(e) textBox comme son nom l'indique ne contient que du texte !!!

 

[davidp]

Re : Textbox au format pourcentage

Bonjour ERIC S


Un grand merci pour ton aide , cela fonctionne à merveille .

Bonne journée

DAVIDP

 

[davidp]

Re : Textbox au format pourcentage

Bonjour MODESTE GEEDEE,

un grand merci également

Bonne journée
DAVIDP

 

[ERIC S]

Re : Textbox au format pourcentage

Bonjour Modeste GEEDEE

peut-être une question de paramétrage pc mais
format "00.00" en vba
affiche 00,00 chez moi

 

[davidp]

Re : Textbox au format pourcentage

Rebonjour ERIC S ,

Désolé de te déranger , j'ai collé ton code dans mon fichier original , mais cela ne fonctionne pas ,
comment faut il faire pour modifier le code pour aller dans la Cellule D3 de la feuille "base"?

Merci d'avance

DAVIDP

 

[ERIC S]

Re : Textbox au format pourcentage

Re

TextBox1.Value = Format(sheets("Base").Range("D3").Value, "00.00 %")

 

[davidp]

Re : Textbox au format pourcentage

Rebonjour ,

ouf , cela fonctionne sur mon nouveau fichier ,

Un grand Merci

DAVIDP

 

[Modeste geedee]

Re : Textbox au format pourcentage

Bonsour®

Bonjour Modeste GEEDEE

peut-être une question de paramétrage pc mais
format "00.00" en vba
affiche 00,00 chez moi

TextBox1.Value = Format(sheets("Base").Range("D3").Value, "00.00 %")

Heu ???
😉
cela n'est-il ce que j'ai suggéré : #3
😎

 

[Modeste geedee]

Re : Textbox au format pourcentage

Bonsour®

Bonjour
peut-être
TextBox1.Value = Format(Range("D3").Value, "00.00 %")

j'ai collé ton code dans mon fichier original , mais cela ne fonctionne pas

Heu ???
ne faudrait-il pas qualifier l'objet range ...

TextBox1.Value = Format(sheets("Base").Range("D3").Value, "00.00 %")

 

[ERIC S]

Re : Textbox au format pourcentage

Re Modeste Geedee

😱 une lecture un peu trop rapide de ma part

comme je n'avais pas vu d'erreur dans le fichier initial, j'ai cru que tu en indiquais une.

Allez je me recouche 🙄