Calcule entre texbox

Bonjour,

Je suis nouveau sur ce forum et aussi ultra débutant en VBA.

Je suis en train d'essayer de créer un Userform ( Liste1) avec plusieurs textBox ...

Mon problème est le suivant : je n'arrive pas a faire apparaître automatiquement le résultat de calcules dans la textbox de droite (Total1)( je suis obligé d'appuyer sur une touche pour que cela s'affiche ).

Pourriez vous m'aider?

voici le code :

Private Sub Total1_Change()

On Error Resume Next
Liste1.Total1 = (CDbl(Zero_Cinq_cent.Value) * 0.05)

Total1 = Format(Liste1.Total1, "# ##0.00 €")

End Sub

Bonjour et bienvenue sur le forum

Joins ton fichier, cela évitera qu'on ait à recréer ton userform...

Bye !

Voici le fichier

up

Un essai à tester. Te convient-il ?

Bye !

Super merci beaucoup !

Je garde précieusement vos codes, néanmoins, j'ai du rajouter la devise au total/ genre de pièces.

Par contre, je n'arrive pas à rajouter la devise sur le total caisse ! Pourriez vous m'aider?

Il y a aussi un problème au niveau des testbox car quand je presse "Entrer" cela ne passe pas forcement à la cellule d'en dessous !

Pourriez vous m'expliquer?

Cordialement

( même fichier )

Salut Hed,

si tu veux (ce que je comprends tout à fait!) régler le passage d'une TextBox à l'autre dans l'ordre que tu souhaites, tu dois ajuster la propriété TAB INDEX de chacune d'elles, la case active suivant l'ordre indiqué!

Bel exercice vu le nombre de TextBox car tu ne peux pas avoir deux fois le même TAB INDEX pendant l'opération!

Bon amusement!

A+

Salut à tous,

Pour définir l'ordre de tabulation : Clic droit sur le fond du Userform > Ordre de tabulation...

Salut MFerrand,

ah, pas mal cette facilité de tabulation! Je ne connaissais pas!

Encore une chose acquise!

Merci!

Super Merci ! c'est fait et ça fonctionne !

Par contre j'aurais besoin d'encore un peut d'aide pour y placer les devises sur mon Total Caisse SVP

Salut Hed,

Corrige dans ta macro TotaldelaCaisse()

TotalCaisse.Text = Str(t) + " €"

A+

Sauriez vous comment enlever l'image de fond dans mon userbox?

Super merci

Merci à tous d’avoir répondu pour moi : je n’étais pas disponible cet après-midi.

Et surtout à MFerrand : ça, je ne connaissais pas.

Bye !

Salut Hed,

Google est ton ami! Une petite recherche sur le Net et hop... 8)

Gr-ace à toi, je connais un truc en plus! Merci, Hed!

Private Sub UserForm_Initialize()

     'Me.Height = 500
     'Me.Width = 250
     Label8.Caption = N°caisse
     Liste1.Picture = LoadPicture("")
End Sub

Une petite ligne à ajouter...

Avec plaisir!

A+

Merci j'avais trouvé cette ligne sur Google, ( j'y suis depuis ce matin

Le tout est de savoir ou la placer et grace à toi c'est chose faite merci

J'aimerais intégrer une liste déroulante à ma userbox "Liste2" avec les dates de chaque jours du mois.

Chaque jours du mois correspondrait à une feuilles excel ( Feuille 01 à 31) dans lesquels se reporteraient les valeurs de mes caisses validés depuis ma Userbox ( je sais pas si vous me suivez !

Le tout contrôlé depuis MAIN1!

Je vous laisses mon fichier ci-joint

Merci bcp en tout cas pour votre aide

Ravi d'avoir pu t'aider... tout en apprenant moi-même!

Problème résolu? Coche la petite flèche verte!

A+, l'ami!