userform permettant d'ecrire un nombre.

[nicroq]

Bonsoir a tous, et merci pour votre forum et votre aide

Je souhaiterai savoir si il est possible de faire un Userform présentant les chiffres de 1 à 9 ( 9 commandbutton) et une zone de texte qui ecrit le chiffre tapé? Puis que ce chiffre s écrive en range A1 par un bouton valider par exemple!

merci bcq de votre
cdlt

 

[jpb388]

Re : userform permettant d'ecrire un nombre.

Bonsoir à tous
voici un exemple

 

[nicroq]

Re : userform permettant d'ecrire un nombre.

bonsoir et merci jpb388 !!
merci pour votre aide, cependant je suis completement novice et j'ai un peu de mal a mettre en place votre userform!
j'arrive a le lancer dans mon fichier mais qd je clique sur les nombre rien ne se passe...
merci
bonne soirée

 

[jpb388]

Re : userform permettant d'ecrire un nombre.

re
le mieux serai de mettre ton fichier ( sans données personnelles mais des fictifs qui reflètent la réalité)

 

[nicroq]

Re : userform permettant d'ecrire un nombre.

re-bonsoir!!

je vous joins le fichier, le userform fonctionne, cependant je souhaiterai que plusieurs chiffres s inscrivent : par exemple si je clic le "1" puis le "2" que le chiffre soit : "12"

encore merci
bonne soirée

 

[jpb388]

Re : userform permettant d'ecrire un nombre.

re

met celle ci

Private Sub GroupBoutons_Click()
    Select Case GroupBoutons.Caption
        Case Is = "Valider"
            Range("E2") = numero.TextBox1.Value
        Case Else
            numero.TextBox1 = numero.TextBox1 & GroupBoutons.Caption
    End Select
    
End Sub

 

[nicroq]

Re : userform permettant d'ecrire un nombre.

Bonjour et un grand merci a vous!!!

serait il possible que le userform se ferme en meme temps que je clique sur "valider" ?

merci
bonne journée

 

[jpb388]

Re : userform permettant d'ecrire un nombre.

Bonjour a tous
met celle ci

Private Sub GroupBoutons_Click()
    Select Case GroupBoutons.Caption
        Case Is = "Valider"
            Range("E2") = numero.TextBox1.Value
            unload numero
        Case Else
            numero.TextBox1 = numero.TextBox1 & GroupBoutons.Caption
    End Select
    
End Sub

 

[nicroq]

Re : userform permettant d'ecrire un nombre.

Merci jpb388!! ca marche nikel!!

je ne voudrais pas abuser de votre gentillesse, mais j'ai rajouter un bouton "remise" et une une image d un userform que souhaiterai imiter.
serait il possible de m aider?
je vous joins le fichier avec l image du userform.

merci beaucoup!

 

[jpb388]

Re : userform permettant d'ecrire un nombre.

re
si ton fichier réel est semblable à celui ci

tu perd plus de temps à appeler un formulaire pour taper ton N° de serveur
et calculer une remise peux se faire directement sur la feuille

si par contre ton formulaire gère l'ensemble (entrée,plat,dessert) puis calcule le sous total, la remise et enfin le total final pour le reporter sur la feuille
là ce serai plus logique (selon moi bien sur) pour établir ton ticket de caisse

quelque soit ta décision j'essayerai de le faire

 

[nicroq]

Re : userform permettant d'ecrire un nombre.

non mon fichier n est pas du tt semblable a celui la !! il est bcq plus complexe j'ai donc vraiment besoin de faire ce Userform!!

merci beaucoup pour votre aide !!

 

[jpb388]

Re : userform permettant d'ecrire un nombre.

re

j'ai fait ce qui été évident la somme s'affiche et si tu cliques sur un % cela fait le boulot

pour les autres contrôles tu as un message qui s'affiche indiquant mon désarroi

 

[nicroq]

Re : userform permettant d'ecrire un nombre.

Merci jpb388,

en effet en pouvez vous metttre en F2 la remise effectuée et en en G2 le nouveau total!!

en tt cas merci bcq pour votre rapidité

 

[nicroq]

Re : userform permettant d'ecrire un nombre.

concernant le clavier , il permet de faire une remise en euros et permet donc de taper la somme de la remise en euros

 

[nicroq]

Re : userform permettant d'ecrire un nombre.

et CL dans le clavier correspond à "clear" et permet donc d annuler la remise