Somme des textbox

Bonjour à tous,

encore un souci, je ne trouve pas le code pour faire la somme des textbox en ligne et en colonne. Dans mon projet, je souhaiterais faire la somme des textbox en ligne et mettre le résultat dans la textbox (Total) et aussi la somme des textbox en colonne et mettre le résultat dans la textbox (Total).

Voir fichier joint.

Merci à tous

11exemple-2.zip (8.54 Ko)

Bonjour

à tester

j'ai fait que la première rangée (horizontale)

Note : ==> ','mais pas de ' .' (virgule mais pas le point)

crdlt,

André

Merci à tous, merci Andre13

ton code pour le calcul est bien, j'ai juste apporté moi aussi une petite modification pour enlever les zero dans les textbox. Maintenant il reste le calcul en colonne.

Merci à tous de continuer à réfléchir et me proposer des solutions

Bonjour

modification de CalculSomme

A oui pense a mettre les KeyPress

Sub CalculSomme()
For T = 1 To 8
   Num = Num + Val(Replace(Controls("TextBox" & T).Value, ",", "."))
Next
TextBox9.Value = Num
Mun = Val(Replace(TextBox1.Value, ",", "."))
For T = 10 To 16
   Mun = Mun + Val(Replace(Controls("TextBox" & T).Value, ",", "."))
Next
TextBox17.Value = Mun
End Sub

A+

Maurice

Bonsoir,

voili voilou merci à Archer

j'ai ajouté des msgbox etc. keypress, valeur numériques des textbox etc.

à remodeler, à tester

edit : prendre fichier test0003 merci à Archer pour la simplification du bouton de commande 2 de l'USF

crdlt,

André

Bonjour André

j'ais un peux modifier ton code a voir

Private Sub CommandButton2_Click()
' bouton valider
Rang = Array(, "A1", "C1", "E1", "G1", "I1", "K1", "M1", "O1", "Q1", _
            "A2", "A2", "A3", "A4", "A5", "A6", "A7", "A8", "A9")
   With Feuil1
      For C = 1 To 17
         .Range(Rang(C)).Value = ""
            If IsNumeric(Controls("TextBox" & C).Value) Then
               .Range(Rang(C)).Value = CDbl(Controls("TextBox" & C).Value)
            End If
      Next
   End With
End Sub

A+

Maurice

Merci,

j'ai ajouté la modification merci

j'oubli toujours les Array arff

crdlt,

André

Salut,

franchement, grand merci à André et à Archer pour tous ces codes remarquables. Merci aussi à tous pour avoir jeté un coup d’œil sur mon souci.

Très respectivement

Rechercher des sujets similaires à "somme textbox"