XL 2010 Textbox format pourcentage

Appo1985 · 16 Mars 2023

Bonsoir. J'ai besoin de votre aide.
Je voudrais récupérer les données de 3 cellules dans trois textbox mais en format pourcentage avec 2 chiffres après la virgule mais je n'arrive pas à adapter le code. Je voudrais votre soutien
Le fichier que j'utilise ci-joint. Merci d'avance

JM27 · 16 Mars 2023

Bonsoir

VB:

Private Sub CommandButton1_Click()
    TextBox1 = format(Sheets("Feuil1").Range("A1").Value / 100, "0.00%")
    TextBox2 = format(Sheets("Feuil1").Range("A2").Value / 100, "0.00%")
    TextBox3 = format(Sheets("Feuil1").Range("A3").Value / 100, "0.00%")
End Sub

JM27 · 16 Mars 2023

Bonsoir

VB:

Private Sub CommandButton1_Click()
    TextBox1 = format(Sheets("Feuil1").Range("A1").Value / 100, "0.00%")
    TextBox2 = format(Sheets("Feuil1").Range("A2").Value / 100, "0.00%")
    TextBox3 = format(Sheets("Feuil1").Range("A3").Value / 100, "0.00%")
End Sub

Appo1985 · 16 Mars 2023

JM27 à dit:

Bonsoir

VB:

Private Sub CommandButton1_Click()
    TextBox1 = format(Sheets("Feuil1").Range("A1").Value / 100, "0.00%")
    TextBox2 = format(Sheets("Feuil1").Range("A2").Value / 100, "0.00%")
    TextBox3 = format(Sheets("Feuil1").Range("A3").Value / 100, "0.00%")
End Sub

Vraiment c'est exactement ce que je voulais. Merci infiniment

XL 2010 Textbox format pourcentage

Appo1985

XLDnaute Occasionnel

Pièces jointes

JM27

JM27

XLDnaute Barbatruc

Appo1985

XLDnaute Occasionnel

Discussions similaires