Insertion de valeur numérique dans un textbox
#1
Débutant XLPages

Inscription: 15/01/2019
De Abidjan

Messages: 1

Système d'exploitation:
PC
Version Excel utilisée:
2013, 2016
Posté le : 15-01 13h32

Bonjour à toutes et à tous les membres,

 

Déjà merci à Mr FOURGEOT pour accepter mon admission à "myDearFriend! Excel Pages".

 

Je suis tout à fait débutant au niveau VBA que j'essai de m'améliorer en faisant quelques recherches par ci par là, veuillez donc excuser mes erreurs. 

 

j'ai besoin de votre aide pour appliquer une valeur numérique et monétaire dans mes différents textbox dans le document que j'ai ajouté en pièce jointe.

 

Merci d'avance

 

 

 

Pièce jointe:
xlsm STOCK.xlsm   [ Taille: 61.79 Ko - Téléchargements: 97 ]
Hors Ligne
Rapport   Haut 

Re: Insertion de valeur numérique dans un textbox
#2
Débutant XLPages

Inscription: 16/01/2019
De Bruxelles

Messages: 8

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 09-04 16h14

Salut, tu as pu faire cela ? Je suis débutante aussi et j'ai beaucoup de mal niveau insértion, et j'aurais besoin d'aide si c'est possible, merci.

 

______________________________________________
Hors Ligne
Rapport   Haut 

Re: Insertion de valeur numérique dans un textbox
#3
Aspirant XLPages

Inscription: 26/10/2014
De ST QUENTIN 02

Messages: 21

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 08-10 09h52

Bonjour le forum Et à son créateur Didier

Bonjour Matarek, ze9zou9i

 

   Essaies ceci dans tes procédures de TextBoxs (tu ne peux saisir que des valeurs numériques et le point) : 

Private Sub TxtPR_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Not Chr(KeyAscii) Like "[0-9-.]" Then KeyAscii = 0
End Sub

Au départ, code un peu plus long synthétisé par patricktoulon

@+ ericcool

Edité par ericcool le 09/10/2019 20:44:45
Hors Ligne
Rapport   Haut 

Re: Insertion de valeur numérique dans un textbox
#4
Débutant XLPages

Inscription: 08/10/2019
De TOULON

Messages: 1

Système d'exploitation:
pc
Version Excel utilisée:
2007,2013
Posté le : 11-10 00h37

bonjour

 

une approche pour formater tes textboxs avec " €"

la meme sub pour 3 textbox dans l'userform FormModif

 

Private Sub TxtPR_Change()
    monaie TxtPR
End Sub

Private Sub TxtPRA_KeyPress(ByVal keyascii As MSForms.ReturnInteger)
    monaie TxtPRA
End Sub

Private Sub TxtPV_KeyPress(ByVal keyascii As MSForms.ReturnInteger)
    monaie TxtPV
End Sub

Sub monaie(ByVal ctrl As Object)
    Dim txt$
    txt = Replace(Replace(ctrl, " ", ""), "€", "")
    If txt Like "*[A-z]*" Then txt = ""
    If UBound(Split(txt, "€")) > 1 Then txt = ""
    ctrl = txt & " €"
    ctrl.SelStart = InStr(1, ctrl, " €") - 1
End Sub

 

le séparateur décimal accepté est la virgule 

 

 

Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes