aide sur mon userform

[angoul]

J'ai 2 petites modifications a faire sur mon tableau et je but dessus
c'est vrai que je suis pas bon il faut le reconnaitre

j'aimerai que l'on puisse rentre dans mes textbox: txtclient et Textrecu des chiffres avec mon clavier tactile, comme c'est deja possible avec la textbox : Textquant.

et surtut mon deuxieme probleme c'est que j'ai creer une textbox stock qui va me chercher le nombre de produit qui se trouve dans ma feuille article.
Mais j'aimerai quelle se mette a jour, a chaque sorti de produit.
J'ai essayer en tableau croisée dynamique mais c'est pas le top.

je met le fichier a dispo, merci d'avance

Cijoint.fr - Service gratuit de dépôt de fichiers

encore merci

 

[jp14]

Re : aide sur mon userform

Bonjour


Une réponse à la première partie de la demande.
Ci joint le code de l'userform pour réaliser la fonction demandée.

J'ai rendu le clavier indépendant, il possède une variable "accu" qui correspond à l'affichage d'une calculette.
J'utilise la procédure enter pour mémoriser le nom du TexTbox dans lequel on désire mettre la valeur saisie.
Le bouton OK permet de transférer le contenu de l'accu dans le textbox mémorisé.

A tester
A terminer

JP

 

[angoul]

Re : aide sur mon userform

je regarde sa et te tient au courant, en tous cas merci

 

[jp14]

Re : aide sur mon userform

Bonjour (re)

Ci dessous les macros à modifier

Private Sub bt0_Click()
If textbactif = "" Then Exit Sub
accu = accu & "0"
Me.Controls(textbactif).Value = accu
End Sub

Private Sub bt00_Click()
If textbactif = "" Then Exit Sub
accu = accu & "00"
Me.Controls(textbactif).Value = accu
End Sub

Private Sub bt1_Click()
If textbactif = "" Then Exit Sub
accu = accu & "1"
Me.Controls(textbactif).Value = accu
End Sub

Private Sub btOK_Click()
If textbactif <> "" Then
    Me.Controls(textbactif).Value = accu
    accu = ""
    textbactif = ""
End If
End Sub

Private Sub btC_Click()
accu = ""
If textbactif = "" Then Exit Sub
Me.Controls(textbactif).Value = accu
End Sub

Private Sub btpoint_Click()
accu = accu & ","
If textbactif = "" Then Exit Sub
Me.Controls(textbactif).Value = accu
End Sub

Private Sub btretour_Click()
If textbactif = "" Then Exit Sub
If Len(accu) = 0 Then Exit Sub
accu = Mid(accu, 1, Len(accu) - 1)
Me.Controls(textbactif).Value = accu
End Sub

Les valeurs s'incrivent dans le textbox sélectionné.

JP