TextBox %

pierrejean

XLDnaute Barbatruc

• 4 Juillet 2007

• #2

Re : TextBox %

bonjour Bruce

quelque chose du genre

mavariable=CDbl(UserForm1.PCent )

 

Vote positif 0 Vote négatif

B

Bruce68

XLDnaute Impliqué

• 4 Juillet 2007

• #3

Re : TextBox %

Merci PierreJean de ta reponse.
je l'intégre ou cette phrase: dans le textBox ou dans la macro qui range les textBox dans ma base ?

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 4 Juillet 2007

• #4

Re : TextBox %

dans la macro qui range les textbox dans la base

genre

Range("A1")=CDbl(UserForm1.PCent )

 

Vote positif 0 Vote négatif

B

Bruce68

XLDnaute Impliqué

• 4 Juillet 2007

• #5

Re : TextBox %

Voici la ligne du textBox:

La ligne sans modif
Range("M" & ligne).Value = PCent.Value

La ligne modifiée
Range("M" & ligne).Value = CDbl(UserForm1.PCent)

La reponse est Erreur d'exécution 13 incompatibilité de type

Merci pour ton aide PierreJean

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 4 Juillet 2007

• #6

Re : TextBox %

on irait plus vite avec un petit fchier exemple (exempt de données confidentielles)

essaye:

Range("M" & ligne).Value = CDbl(left(UserForm1.PCent,4))

 

Vote positif 0 Vote négatif

B

Bruce68

XLDnaute Impliqué

• 4 Juillet 2007

• #7

Re : TextBox %

Voici le fichier
Maintenant c'est un chiffre mais il manque le %

Encore merci PierreJean de ton aide

 

Pièces jointes

• Formulaire-Test.zip

  42.1 KB · Affichages: 28
• Formulaire-Test.zip

  42.1 KB · Affichages: 20
• Formulaire-Test.zip

  42.1 KB · Affichages: 30

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 4 Juillet 2007

• #8

Re : TextBox %

bonsoir

voila

il suffisait de mettre ta colonne M en format pourcentage

on continue a avoir un chiffre (eventuellement utisable en tant que tel)

 

Pièces jointes

• Formulaire-Test.zip

  33.2 KB · Affichages: 31
• Formulaire-Test.zip

  33.2 KB · Affichages: 36
• Formulaire-Test.zip

  33.2 KB · Affichages: 33

Vote positif 0 Vote négatif

B

Bruce68

XLDnaute Impliqué

• 4 Juillet 2007

• #9

Re : TextBox %

Bonsoir PierreJean et le forum

Un probleme subsiste:
quand je rentre 3,50% = 3,50 %
4,75% = 4,75 %
10,50% = 10,50%
12,75% = 12,70% ;le 2° chiffre apres la virgule est toujours 0
Le chiffre n'est jamais pris en compte sauf le 0

 

Pièces jointes

• Formulaire-Test.zip

  44.6 KB · Affichages: 21
• Formulaire-Test.zip

  44.6 KB · Affichages: 26
• Formulaire-Test.zip

  44.6 KB · Affichages: 28

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 4 Juillet 2007

• #10

Re : TextBox %

Bonsoir

Trouvé dans les archives du forum

https://www.excel-downloads.com/threads/format-pourcentage-dans-textbox.16275/

En espérant que cela pourra t'aider

edit:

J'ai testé en utilisant le code VBA de l'exemple ci-dessus
Dans la TexBox1 j'ai saisi 12,75 qui s'est affiché 12,75%
et quand click sur CommandButton1, j'ai bien 12,75% en A1
et si je saisi 2,25 en A2 et en A3 = A1+A2 (A2 et A3 au format Pourcentage)
j'obtiens 15,00%

Code:

Private Sub CommandButton1_Click()
With Range("A1")
    .NumberFormat = "0.00%"
    .Value = TextBox1.Value
End With
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim Pourcent As Double
Pourcent = ((TextBox1.Value) / 100)
TextBox1.Value = Format(Pourcent, "0.00%")
End Sub

Ca semble fonctionner non?

 

Dernière édition: 5 Juillet 2007

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 5 Juillet 2007

• #11

Re : TextBox %

bonjour Bruce

Salut Staple

Autre version

avec en prime l'acceptation du point au lieu de la virgule

 

Pièces jointes

• Formulaire-Test.zip

  37.3 KB · Affichages: 48
• Formulaire-Test.zip

  37.3 KB · Affichages: 50
• Formulaire-Test.zip

  37.3 KB · Affichages: 51

Vote positif 0 Vote négatif

B

Bruce68

XLDnaute Impliqué

• 7 Juillet 2007

• #12

Re : TextBox %

Bonsoir PierreJean Staple1600 et le forum

Merci Pierrejean pour ta solution tout fonctionne correctement.
Merci Staple1600 pour m' avoir donné une solution mais celle ci ne fonctionne pas mieux que celle j'avais.

Bon dimanche à tous

 

Vote positif 0 Vote négatif