problème avec l'utilisation du format %

**tzinzin** · 30/03/2006, 12h32

Je suis en train de finaliser un formulaire et j'ai un problème de mise en forme pour les textbox dans lesquelles je fais afficher des pourcentages.
J'ai essayé différentes combines mais à chaque fois mes valeurs sont multipliées par 100.
Je ne veux pas diviser mes colonnes par 100 car lors de la saisie, l'utilisateur doit entrer 35 et pas 0,35 (par exemple).
Merci d'avance

**tamerlan** · 30/03/2006, 13h22

je ne comprends pas tres bien quand tes valeurs se multiplient par 100?
C est quand tu quittes le champs de la saisie?

**argyronet** · 30/03/2006, 13h26

Bonjour,

Tu peux utiliser cette méthode parmi tant d'autres...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Option Compare Database
Option Explicit
 
Private Sub txtPercent_AfterUpdate()
Dim sgnPercentValue As Single
 
  sgnPercentValue = txtPercent / 100
  txtPercent = Format(sgnPercentValue, "0 %") 'Mettre 0.00 % si décimal
End Sub
 
Private Sub txtPercent_BeforeUpdate(Cancel As Integer)
Dim sgnPercentValue As Single
 
  sgnPercentValue = txtPercent.Text
  If sgnPercentValue > 100 Then
    MsgBox "Valeur entre 1 et 100 !!", 48
    Cancel = True
  End If
End Sub
 
Private Sub txtPercent_KeyPress(KeyAscii As Integer)
  Select Case KeyAscii
    Case 8, 44, 45, 48 To 57
    Case Else
      KeyAscii = 0
  End Select
End Sub

P.S. Pour exploiter la valeur de ce champ, tu devras utiliser la fonction Val()
Argy

**tzinzin** · 30/03/2006, 14h12

Envoyé par tamerlan

je ne comprends pas tres bien quand tes valeurs se multiplient par 100?

En fait, quand je rentre 45 dans ma textbox, il m'affiche 4500 %

Argyronet :
Ce code prend effet sur toutes les textbox? Ou est-ce qu'il faut que je le colle dans le code de chaque textbox en remplaçant txtPercent par le nom de la textbox? (je débute).

**argyronet** · 30/03/2006, 14h32

Envoyé par tzinzin

Ce code prend effet sur toutes les textbox? Ou est-ce qu'il faut que je le colle dans le code de chaque textbox en remplaçant txtPercent par le nom de la textbox? (je débute).

Euh, non...
J'ai mis txtPercent qui est le nom d'un contrôle en particulier.
Toi tu appliques le même code en reprenant le nom de ton contrôle.
Si tu as n TextBoxes concernées par ce problème, tu peux soit l'affecter à chacune d'entre elles soit faire une procédure générique mais si tu débutes, prends la 1ère solution.

Donc sur chaque Textbox tu as les 3 codes événement.
_AfterUpdate

Qui formate le contenu
_BeforeUpdate

Qui empêche de saisir + de 100
_KeyPress

Qui empêche de saisir autre chose que des chiffres, le signe -, la virgule et l'effacement...

Argy