Microsoft 365 Decimale dans Userform

eric72 · 26 Octobre 2021

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 · 26 Octobre 2021

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é ;

VB:

'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 · 27 Octobre 2021

Bonjour Patrick,
En effet j'ai juste copié la formule pour mon autre Userform et je ne comprenais pas pourquoi cela ne fonctionnait pas et je ne voulais pas t'embêter de nouveau.
Je n'avais pas compris la subtilité des Frame.
Je progresse pas à pas, d'ailleurs je suis entrain de refaire tout mon code avec la méthode "Patrick Toulon"
Merci et bonne journée
Eric

eric72 · 27 Octobre 2021

Bonjour Chti160,
Merci pour le boulot fourni et votre persévérance.
Vous êtes tous top et d'une grande aide.
Eric

patricktoulon · 27 Octobre 2021

Bonjour Eric
y a pas de mal
et oui avec les frames ,listbox combobox ,multipage il faut faire attention car ce sont des windows a part entière (comme les userforms elle ont un handle) et donc sont les parent direct du control et plus le userform
du fait que se sont des fenêtres elle ont aussi la propriété activecontrol comme le userform

ça fait partie des joyeuseté de la hérarchie des pointeur en mémoire mais là on entre dans un language un peu compliqué
en tout cas quand tu développe un interface (userform) pense toujours a la pile hiérarchique

eric72 · 27 Octobre 2021

Re,
Je rencontre un autre petit souci avec un calcul, faut-il que j'ouvre un autre post?
Ou je peux l'exposer ici
Merci

patricktoulon · 27 Octobre 2021

re si c'est un calcul de donnée d'un textbox c'est normal passe par cdbl puisque c'est la virgule forcée
exemple
msgbox cdbl(textbox1)* cdbl(textbox2)
ou un tranfert dans les cells en tant que numerique
[A1]=cdbl(textbox1)
voilà tu sais tout

eric72 · 27 Octobre 2021

en fait c'est sur des textbox mais elles ne sont pas forcément toutes remplies à chaque fois, malgré cela j'aimerais que le calcul se fasse quand même sur les textbox renseignées, donc j'ai adapté ce code mais ça ne va pas.
Ou est la boulette?
Merci

Microsoft 365 Decimale dans Userform

eric72

XLDnaute Accro

ChTi160

eric72

XLDnaute Accro

eric72

XLDnaute Accro

patricktoulon

XLDnaute Barbatruc

eric72

XLDnaute Accro

patricktoulon

XLDnaute Barbatruc

eric72

XLDnaute Accro

Pièces jointes

Discussions similaires