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