XL 2013 Textbox au format pourcentage

ERIC S

XLDnaute Barbatruc

• 9 Mars 2016

• #2

Re : Textbox au format pourcentage

Bonjour


peut-être

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

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 9 Mars 2016

• #3

Re : Textbox au format pourcentage

Bonsour®

Code:

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 !!!

 

Vote positif 0 Vote négatif

D

davidp

XLDnaute Occasionnel

• 9 Mars 2016

• #4

Re : Textbox au format pourcentage

Bonjour ERIC S


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

Bonne journée

DAVIDP

 

Vote positif 0 Vote négatif

D

davidp

XLDnaute Occasionnel

• 9 Mars 2016

• #5

Re : Textbox au format pourcentage

Bonjour MODESTE GEEDEE,

un grand merci également

Bonne journée
DAVIDP

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 9 Mars 2016

• #6

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

 

Vote positif 0 Vote négatif

D

davidp

XLDnaute Occasionnel

• 9 Mars 2016

• #7

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

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 9 Mars 2016

• #8

Re : Textbox au format pourcentage

Re

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

 

Vote positif 0 Vote négatif

D

davidp

XLDnaute Occasionnel

• 9 Mars 2016

• #9

Re : Textbox au format pourcentage

Rebonjour ,

ouf , cela fonctionne sur mon nouveau fichier ,

Un grand Merci

DAVIDP

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 9 Mars 2016

• #10

Re : Textbox au format pourcentage

Bonsour®

ERIC S à dit:

Bonjour Modeste GEEDEE

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

Cliquez pour agrandir...

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 9 Mars 2016

• #11

Re : Textbox au format pourcentage

Bonsour®

ERIC S à dit:

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

Cliquez pour agrandir...

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

Cliquez pour agrandir...

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

Code:

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

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 9 Mars 2016

• #12

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 🙄

 

Vote positif 0 Vote négatif