USF Pb point virgule

[xvella]

Bonjour Forum,
Bonjour à tous,

Dans le USF j'ai un problême avec lors de l'utilisation du clavier numérique qui lui affiche un point.

Il faut pourtant que je rentre les valeurs avec celui-ci.

Et surtout sans modifier Windows. ( Le USF marche si les options régionales sont modifier )

HELP!!!! (Je trouve pas l'erreur ,la faute ou une astuce).

Merci d'avance.

@+

 

[Cousinhub]

Re : USF Pb point virgule

Bonjour,

la retournée par un textbox est du texte

pour la passer en numérique, utilises Val

Val(txtVal1)

par exemple....

 

[xvella]

Re : USF Pb point virgule

Salut bhbh,

le souci du USF ce situe surtout dans le fait de passer en rouge ou noir la txtVal2

Merci quand même et bonne journée

 

[Guest]

Re : USF Pb point virgule

Bonjour Xvella,

Voici une proposition:

Private Sub txtVal2_Change()
    Dim ValTol As Double
    ValTol = Worksheets("Soustration").Range("C12").Value
    If Not IsNumeric(txtVal2.Text) Then Exit Sub
    txtVal2.ForeColor = IIf(Val(txtVal2) >= ValTol, vbRed, vbBlack)
    Call Calcul
End Sub

A bientôt

 

[Lii]

Re : USF Pb point virgule

Bonsoir Tous,

cela ressemble mais avec une gestion personnelle de la virgule ou du point dans les contrôles.

 

[xvella]

Re : USF Pb point virgule

Merci à tous,

Par contre LII pourrais-tu m'expliquer le code:

Private Sub txtVal2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If (KeyAscii < 48 And KeyAscii <> 46 And KeyAscii <> 44) Or KeyAscii > 57 Then Exit Sub
If KeyAscii = 46 Or KeyAscii = 44 Then KeyAscii = Asc(Application.International(xlDecimalSeparator))
End Sub

Ou me dire ou trouver l'explication car cela marche du tonnerre.

Encore merci

@+

Youpee

 

[Lii]

Re : USF Pb point virgule

Bonjour,

Voir fichier joint pour quelques explications

 

[xvella]

Re : USF Pb point virgule

Bonjour,

Je te remerçie et te souhaite une bonne fin de journée.

@+