Soutraire textbox

[apdf1]

Bonjour

Je recherche a simplifier mon code, je voudrais soustraire les textbox en mettant le format "€" mais je trouve mon code un peu lourd.

Si quelqu'un peut m'aider a simplifier mon code je le remercie d'avance.

Cordialement

Max

 

[laetitia90]

Re : Soutraire textbox

bonjour apdf1
a mon avis il faut simplement passer par un module de classe pour simplifier
si pas de réponses regarderais ce soir plus le temps

 

[Bebere]

Re : Soutraire textbox

bonjour Apdf
un module de classe
code userform,module1 et module de classe

à bientôt

 

[apdf1]

Re : Soutraire textbox

Bonsoir Bebere,

Je te remercie pour ton aide peut tu me dire comment je peut mettre les textbox en format euros?

Bonne soirée
et merci encore

Max

 

[laetitia90]

Re : Soutraire textbox

bonsoir apdf1
tu peus déja simplifier comme cela. tu peus quand méme taper le point ou la virgule ,vider une textbox le calcul se fait toujours...

 

[apdf1]

Re : Soutraire textbox

Bonjour Laetitia,

Je te remercie beaucoup de ton aide

Et je te souhaite une trés bonne journée

Max

 

[Fo_rum]

Re : Soutraire textbox

Bonjour,

Il est vrai qu'un Module de Classe permet une réduction importante dans la programmation (n'est-ce pas Laetitia90🙂 , Bebere😉 ?).

Il n'empêche que créer un UsF avec 36 "TextBox" et des brouettes avec un tel Module ne me tente pas.

Voici, pour le "fun", une autre façon de voir les choses.

 

[laetitia90]

Re : Soutraire textbox

re,apdf1
bonjour Fo_rum🙂🙂🙂 toujours heureuse de te croiser cela peut être une une trés bonne solution🙂🙂
autrement je suis reste sur un module de classe pour simplifier
les EXIT a répetitions me plaisent pas trop🙁🙁

Private Sub Textbox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

le pb...dans une class on a pas EXIT & malheureusement pas ENTER
dans l'exemple donne je suis reste sur le code de apdf1
en "bidouillant" un peu on peut utiliser KeyDown & key code pour detecter la frappe ENTER

If KeyCode = 13 Then

attention les KeyAscii ca marche pas

cela peut être intéressant pour des codes similaires


ps on peut simplifier dans KeyDown.. pourquoi je suis parti sur une boucle moi!!! inutile

Private Sub txt_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 And txt <> "" Then txt = Replace(Format(txt, "0.00 €"), ".", ",")
End Sub

 

[apdf1]

Re : Soutraire textbox

Re Bonjour

D'abord un grand merci à Laetitia pour son aide. et son temps passé.

Si je n'abuse pas trop j'aimerais si possible que les textbox sont ranger de " T1 au T29 "et que le textbox " PRIX" porte le nom "T20 "1er acompte "T21," 2éme acompte "T23", 3éme acompte "T25et reste "T27".
Je joint mon ficher qui seras plus parlant
Si possible bien sur.

Un grand merci d'avance et bonne soirée

Max

 

[Bebere]

Re : Soutraire textbox

bonjour à Laetitia et Fo_rum

 

[Bebere]

Re : Soutraire textbox

bonjour Apdf,le forum
arrangé textbox
si tu as besoin de code tu expliques
à bientôt

 

[laetitia90]

Re : Soutraire textbox

bonjour apdf1, Bebere , Fo_rum🙂🙂
comme je comprends??

 

[apdf1]

Re : Soutraire textbox

Bonjour Laetitia

Je te remercie d'avoir répondu a mon appel j'ai complété mon USF avec se que tu ma envoyer j'ai rajouter mon code mais il ne se passe rien si tu peut regarder et me dire ou sa coince.

Je te remercie d'avance et te souhaite une bonne soirée

Max

 

[laetitia90]

Re : Soutraire textbox

re,
pas de données en feuille2 il faut mettre des infos bidons plus simple
le peut que je comprends a ouverture de l'user tu remplis ta combo avec les donnees de la feuille 2 on voit que la colonne A dans la combo...jusqu'a la OK

ComboBox1_Change

tu envois les donnees dans textboxs peut etre pour les modifier??

le bouton btncreer_Click
tu veus envoyer les donnees des textboxs sur feuille2 a la suite des donnees existante
je sais pas si c'est cela que tu veus faire ??? explique mieux
SI cela ca peut se resumer en quelques lignes
si pas de reponse regarderais demain matin plus le temps désole

 

[Fo_rum]

Re : Soutraire textbox

Bonjour Bebere, laetitia90,

c'est toujours la Classe 😉 Lætitia !