TextBox %

[Bruce68]

Bonjour le forum
Dans le textBox ci dessous le chiffre est bien en % avec 2 chiffres derriere la virgule , quand je le rentre dans ma feuille celui ci est considéré comme des lettres , il ne peut servir à faire des calculs.

Private Sub PCent_Exit(ByVal Cancel As MSForms.ReturnBoolean)
UserForm1.PCent = Format(UserForm1.PCent, "0.00""%")
End Sub

Comment faire pour le garder en chiffes ?
En remerciant tous ceux qui pourrons me donner une solution.

 

[pierrejean]

Re : TextBox %

bonjour Bruce

quelque chose du genre

mavariable=CDbl(UserForm1.PCent )

 

[Bruce68]

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 ?

 

[pierrejean]

Re : TextBox %

dans la macro qui range les textbox dans la base

genre

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

 

[Bruce68]

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

 

[pierrejean]

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

 

[Bruce68]

Re : TextBox %

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

Encore merci PierreJean de ton aide

 

[pierrejean]

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)

 

[Bruce68]

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

 

[Staple1600]

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%

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?

 

[pierrejean]

Re : TextBox %

bonjour Bruce

Salut Staple

Autre version

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

 

[Bruce68]

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