Code pour additionner plusieurs textbox dans une seule

[BLACKHAYES]

Bonjour le forum,

Bonne vacances a tous,

voila mon probleme, je voudrais que quand on rentre un chiffre dans une textbox de mon userform (C-R) elle s'additionne automatiquement en bas dans ma case total, et que quand je clique sur mon bouton "mise a zero" cela efface toutes mes textbox (les 12).

puis aussi j'aurais souhaité que dans ma textbox rose l'affichage soit centrer horizontal et vertical.

voila c'est tout, pas bien complique pour certain d'entre vous, mais loin de moi pour l'instant

vous remerciant d'avance

 

[stefan373]

Re : Code pour additionner plusieurs textbox dans une seule

Bonsoir blackayes et le forum,

Voilà votre fichier adapté à vos besoin avec un module de classe réalisé par Laeticia90, dont elle a le secret.
Bisou amical à la reine de la classe.

A+ stéfan

 

[BLACKHAYES]

Re : Code pour additionner plusieurs textbox dans une seule

merci a vous cela a merveille sauf une chose je souhaitais avoir dans la textbox 13 le sigle "€" apres les chiffres si c'etait posible

merci d'avance

 

[stefan373]

Re : Code pour additionner plusieurs textbox dans une seule

Bonjour,

A placer dans l’évènement change du textbox en question.

TextBox13 = Format(TextBox13, "# ### €")

A+ stéfan

 

[BLACKHAYES]

Re : Code pour additionner plusieurs textbox dans une seule

Bonjour, merci ca fonctionne bien,

maisencore 2 petites choses, mes textbox de 1 à 12 n'ont pas le sigle "€" et je n'arrive pas a le mettre j'ai reprisle format de la textbox13, mais cela ne fonctionne pas et deuxieme chose toutes les TextBox ne prenneent pas en charge les valeurs a virgule.

si je veux entrée 11.22€ ca m'affiche 1122 ou alors rien, or je voudrais pouvoir entree des chiffres a virgule.

merci d'avance

 

[xhudi69]

Re : Code pour additionner plusieurs textbox dans une seule

Bonjour BLACKHAYES, le Forum

en PJ si cela convient.

@+

 

[Bruce68]

Re : Code pour additionner plusieurs textbox dans une seule

Bonjour BLACKHAYES et le Forum

Voir le fichier joint

 

[Bebere]

Re : Code pour additionner plusieurs textbox dans une seule

bonjour à tous
je pense qu'il faudra ce code à BLACKHAYES

Private Sub txt_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    Select Case KeyAscii
    Case Asc(",")

    Case Asc(".")
        KeyAscii = Asc(",")    'Remplace . par virgule
    Case Else
        If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
    End Select

End Sub

 

[laetitia90]

Re : Code pour additionner plusieurs textbox dans une seule

bonjour tous
un autre exemple ??

 

[BLACKHAYES]

Re : Code pour additionner plusieurs textbox dans une seule

merci a vous c'es ce que je cherchais et ca fonctionne très bien;

merci a vous tous pour vos reponses rapides;

a bientot

 

[BLACKHAYES]

Re : Code pour additionner plusieurs textbox dans une seule

Bonsoir le Forum,

je souhaiterais savoir si quelqu'un savait me modifier le code de mon Userform1 pour quel'on puisse se servir du "Point" du pavé numerique en guise de virgule plutot que la virgule surle clavier, ce n'est pas pratique du tout d'aller chercher cette virgule, savoir si on n'est en majuscule ou minuscule, bref le mieux c'est le point;

Dans l'attente de vous lire,

Cordialement

 

[Bebere]

Re : Code pour additionner plusieurs textbox dans une seule

bonjour BLACKHAYES

voici une façon de faire parmi d'autres pour chacun des textbox devant recevoir des nombres:

Tu dois adapter seulement le nom du textbox .
----------------
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
KeyAscii = CheckLaSaisie(TextBox1, KeyAscii)
End Sub
------------------

Voici la fonction à copier dans un module standard
------------------
Function CheckLaSaisie(Textbox As MSForms.Textbox, ByVal Char As Integer)

Dim SepDec As String
SepDec = Application.International(xlDecimalSeparator)
If Char = 44 Or Char = 46 Then
If InStr(1, Textbox, SepDec, vbTextCompare) > 0 Then
CheckLaSaisie = 0
Else
CheckLaSaisie = Asc(SepDec)
End If
Else
If Char < 48 Or Char > 58 Then
CheckLaSaisie = 0
Else
CheckLaSaisie = Char
End If
End If

End Function

Private Sub textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 
    Select Case KeyAscii
     Case Asc(",")
         
     Case Asc(".")
        KeyAscii = Asc(",") 'Remplace . par virgule
     Case Else
      If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
      End Select
      
End Sub

 

[laetitia90]

Re : Code pour additionner plusieurs textbox dans une seule

re tous quel code tu as pris ???

 

[BLACKHAYES]

Re : Code pour additionner plusieurs textbox dans une seule

Bonsoir le forum, Laetitia90, bebere,

merci pourvotre aide, j'ai donc copier la deuxieme partie du premier code celui a mettre dans un module de classe, lapremiere partie je ne sais pas ou la mettre.

et ensuite j'ai copier le deuxieme code dans chaque TextBox en renommant le N° de textbox.

Merci a vous,
le seul probleme c'est que quand je rentre une valeur ex: 100.10 et que je veuille l'effacer pour rectifier une erreur de frappe et bien une fois que je supprime le dernier chiffre les macros se mettent en bug, tant qu'il reste un chiffre ca va je peux continuer mais une fois supprimer zou, bug, et ce dans toutes les Textbox.

mais sinon ca fonctionne bien.

encore merci a vous tous

 

[laetitia90]

Re : Code pour additionner plusieurs textbox dans une seule

re
comme cela doit marcher que tu tapes une virgule replace en point en majuscule idem ... tu peus pas commercer par un point logique ...peut pas mettre 2 points normal aussi...

ps centrer le résultat également avec autre textbox!!!