Microsoft 365 Decimale dans Userform

[eric72]

Bonjour à tous ,
J'ai un petit souci avec une formule qui fonctionne dur un userform et pas sur celui-ci "UsfProduit"
je ne comprends pas bien pourquoi, il y a un bug, voilà le code (code de Patrick Toulon qui m'a beaucoup aidé pour un autre fichier) :

'forcer les textbox en numerique seulement
Function KeyAsciiX(keyascii)
'TRANSFORMER LE POINT PAR UNE VIRGULE
If keyascii = 46 Then keyascii = 44
If InStr("1234567890,-", Chr(keyascii)) = 0 Then keyascii = 0
With ActiveControl
If InStr(.Value, ",") Then keyascii = 0
If Chr(keyascii) = "-" And .Value <> "" Then keyascii = 0
End With
End Function

Private Sub PrixAchatPlante_KeyPress(ByVal keyascii As MSForms.ReturnInteger): KeyAsciiX keyascii: End Sub

et le bug est sur:
If InStr(.Value, ",")

Merci d'avance pour l'explication pour laquelle ça ne fonctionne pas sur CE Userfrom
Eric

 

[ChTi160]

Bonsoir eric
le problème vient de ce que ActiveControl ne représente Rien !
j'ai donc modifié pour passer en argument le Control concerné ;

'forcer  les textbox en numerique seulement
Function KeyAsciiX(ByRef Ctrl As Object, keyascii)'Ici'
'TRANSFORMER LE POINT PAR UNE VIRGULE
With Ctrl 'Ici'
    If keyascii = 46 Or keyascii = 44 Then keyascii = IIf(InStr(.Value, ",") > 0 Or Len(.Value) = 0, 0, 44)
    If InStr(1, "0123456789,", Chr(keyascii)) = 0 Then keyascii = 0
  End With
End Function
'ci dessous'
Private Sub PrixAchatPlante_KeyPress(ByVal keyascii As MSForms.ReturnInteger): KeyAsciiX PrixAchatPlante, keyascii: End Sub

à voir donc
jean marie

 

[eric72]

Bonsoir Chti160,
Merci beaucoup, en effet cela fonctionne nickel, mais je ne comprends toujours pas pourquoi ça marche sur un autre userform du même fichier, c'est un grand mystère pour moi!!! a quoi doit être rattaché ce Active Control?
Mais le principal c'est que cela fonctionne.
Merci beaucoup et Bonne soirée.
Eric

 

[ChTi160]

Super !
je pense que si tu es dans les procédures du Userform ca doit marcher , si tu en sors la ActiveControl n'est plus actif , enfin je pense Lol
n'hésite pas si besoin
jean marie

 

[eric72]

Super,
Merci encore
Eric

 

[ChTi160]

Re
je viens de constater que c'est le Parent du Control soit le Frame qui est passé comme ActiveControl
si tu mets

With UsfProduit.FrPlante.ActiveControl
MsgBox .Name

là tu obtiens le textBox
Jean marie

 

[eric72]

ah ok et on comment vous etes vous aperçu de cela?
Comment fait-on pour le passer sur le userform?
Merci encore

 

[ChTi160]

Re
voilà ce que j'ai mis pour le Premier Control et dans la Function

'forcer  les textbox en numerique seulement
Public Function KeyAsciiX(ByRef Ctrl As Object, keyascii)
'TRANSFORMER LE POINT PAR UNE VIRGULE
With Ctrl 'UsfProduit.FrPlante.ActiveControl
'MsgBox .Name 'on peut avoir le Nom du Control passé
    If keyascii = 46 Or keyascii = 44 Then keyascii = IIf(InStr(.Value, ",") > 0 Or Len(.Value) = 0, 0, 44)
    If InStr(1, "0123456789,", Chr(keyascii)) = 0 Then keyascii = 0
  End With
End Function

Private Sub PrixAchatPlante_KeyPress(ByVal keyascii As MSForms.ReturnInteger): KeyAsciiX UsfProduit.FrPlante.ActiveControl, keyascii: End Sub

jean marie

 

[ChTi160]

Re
tu peux même mettre

Private Sub PrixAchatPlante_KeyPress(ByVal keyascii As MSForms.ReturnInteger): KeyAsciiX FrPlante.ActiveControl, keyascii: End Sub

FrPlante.ActiveControl sans le UsfProduit
jean marie

 

[ChTi160]

Re
Ton fichier que j'ai complété (tu l'as peut être déjà fait Lol) !
Jean marie

 

[eric72]

Trop fort, je regarde ça demain matin et vous tiens au courant.
Merci
Eric

 

[ChTi160]

OK
bonne nuit
jean marie

 

[patricktoulon]

bonsoir
tiens c'est ma fonction ça la keyasciiX
oui sauf que celui qui la copié ne la pas fait entièrement il l'a raccourci inutilement
et oui!!! quand un textbox est dans un frame
le activecontrol renvoie le parent donc la frame

là vous avez la version complète

'*************************************************************************************************
'forcer  les textbox en numerique seulement
Sub KeyAsciiX(keyascii)
'le vrai code ET  au complet !!!!!! de patricktoulon
    Dim ctrl As Object
    Set ctrl = ActiveControl: If TypeName(ctrl) = "Frame" Then Set ctrl = ActiveControl.ActiveControl
    With ctrl
        If keyascii = 46 Then keyascii = 44' point to virgule 
        If Chr(keyascii) Like "[!0-9|,-]" Then keyascii = 0' rien que les chiffres la virgule le tiret 
        If (Len(.Value) = 0 Or .Value Like "*,*") And Chr(keyascii) = "," Then keyascii = 0'la virgule q'une fois!! et pas au debut
        If Chr(keyascii) = "-" And .Value <> "" Then keyascii = 0'pour les nombres negatifs 
    End With
End Sub

Private Sub PrixAchatPlante_KeyPress(ByVal keyascii As MSForms.ReturnInteger): KeyAsciiX keyascii: End Sub

 

[patricktoulon]

re
et à supposer que le textbox soit dans un frame1 qui elle même est dans un frame2 qui elle meme est dans un frame3 etc...etc... (sans limite )
celle ci trouve toujours son caller

'qu'est ce que l'on s'amuse ici
'*************************************************************************************************
'forcer  les textbox en numerique seulement
Sub KeyAsciiX(KeyAscii)
'le vrai code ET  au complet !!!!!! de patricktoulon
    Dim ctrl As Object
    Set ctrl = ActiveControl: Do While TypeName(ctrl) <> "TextBox": Set ctrl = ctrl.ActiveControl: Loop
    With ctrl
        If KeyAscii = 46 Then KeyAscii = 44
        If Chr(KeyAscii) Like "[!0-9|,-]" Then KeyAscii = 0
        If (Len(.Value) = 0 Or .Value Like "*,*") And Chr(KeyAscii) = "," Then KeyAscii = 0
        If Chr(KeyAscii) = "-" And .Value <> "" Then KeyAscii = 0
    End With
End Sub


Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger): KeyAsciiX KeyAscii: End Sub

démo

 

[ChTi160]

Bonsoir Patrick
Merci et Bonne Nuit Lol
Jean marie