affichage d'un % dans un textbox

[xavier]

salut @ tous

j'utilise 2 textbox pour calculer à l'aide de formule (dont je ne suis pas très sur) un pourcentage qui devrait s'afficher dans un 3ème textbox.

Private Sub TextBox15_Exit(ByVal cancel As MSForms.ReturnBoolean)
Worksheets("capacité").Select
If Range("E19").Value = "" And Range("F19").Value = "" Then
GoTo fin
Else
TextBox17.Value = (Range("F19").Value - Range("E19").Value) / Range("E19").Value
End If
fin:
End Sub

Private Sub TextBox16_exit(ByVal cancel As MSForms.ReturnBoolean)
Worksheets("capacité").Select
If Range("E19").Value = "" And Range("F19").Value = "" Then
GoTo fin
Else
TextBox17.Value = (Range("F19").Value - Range("E19").Value) / Range("E19").Value
End If
fin:
End Sub

Private Sub UserForm_Activate()
TextBox17.Value = (Worksheets("capacité").Range("F19").Value - Worksheets("capacité").Range("E19")) / Worksheets("capacité").Range("E19")
end sub

mais voila mon problème! le résultat s'affiche bien sur ma feuille excel mais pas correctement dans le 3ème textbox. il affiche un résultat mais pas au format %.
question 1 commen faire pour que le résultat s'affiche correctement et
question 2 comment afficher le format % dans un textbox (par exemple je veux définir une quotité de travail ainsi dans mon textbox je veux noter 100%).

merci d'avance

xavier

 

[Celeda]

Bonjour,



Je ne suis pas une vébéasite mais j'ai rerouvé Lien supprimé quelque chose qui pourrait te mettre sur la piste pour le format mais tu peux aller aussi voir ce lien[/url] qui parle de calculs de deux textboxes

Celeda

 

[Celeda]

Bonjour,



sorry il est làLien supprimé

Celeda

 

[xavier]

bonjour celeda

merci pour l'info je vais voir ce que je peut faire avec.


@+++ xavier

ps: 7:30 et déjà entrain de réfléchir pour les autres moi je suis o taf et à peine réveillé

 

[Jean-Marie]

Bonjour, Celeda, Xavier

il y a l'instruction Format
TextBox17.Value = format(........,"0,00 %")

Utilise plutôt un with ce qui évite des saisies et peu aussi supprimer des sélections de feuille.
Private Sub UserForm_Activate()
With Worksheets("capacité")
TextBox17.Value = (.Range("F19").Value - .Range("E19")) / .Range("E19")
end with
end sub

@+Jean-Marie

 

[xavier]

salut jean-marie

je prend note et je vous tien au courant


merci @++

xavier

 

[xavier]

salut jean-marie

je viens d'essayer le with comme tu me la dit. c'est génial et cela me fait gagner pas mal de temps


merci @+ xavier