Discussion :

[py86acces]

Bonsoir a tous
Je voudrais creer un formulaire avec une dixaine de textbox (valeurs numerique) puis un dernier textbox pour la somme de tous les textboxs.
Possible ou pas sous excel? je cherche mais ne trouve pas.
Si vous avez un exemple en telechargement pour ma culture je prends

merci a tous

[parmi]

Un textbox demeure un textbox, c'est-à-dire que les nombres entrés sont en fait du texte.
Pour les additionner, tu peux utiliser CLng ou CDbl selon que ce sont des nombres entiers ou réels.

Pour forcer l'entrée de nombres uniquement, tu peux placer ceci pour chacun des textbox.
De cette façon, l'utilisateur ne peut entrer que ce que tu acceptes.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
        Case 48 To 57  ' chiffres de 0 à 9
        Case 44 '  si tu acceptes la virgule
        Case 46 '  si tu acceptes le point
        Case Else
            KeyAscii = 0
    End Select
End Sub

[kiki29]

Salut, à lire : ceci ainsi qu'ici

[py86acces]

merci pour vos reponses
je viens de trouver sur le tuto

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("1234567890.-", Chr(KeyAscii)) = 0 Or txtEcritFeuille.SelStart > 0 And Chr(KeyAscii) = "-" _
Or InStr(txtEcritFeuille.Value, ".") <> 0 And Chr(KeyAscii) = "." Then KeyAscii = 0: Beep
End Sub

ca marche aussi
pour ma somme je planche toujour
merci et bonne soirée

[parmi]

Regarde l'aide sur CLng et CDbl

MaSomme = Clng(textbox1) + Clng(Textbox2)
ou
Textbox3 = Clng(textbox1) + Clng(Textbox2)
que tu peux mettre dans Textbox1_Change et textbox2_Change

à ajuster au besoin selon ton programme et le nombre de textbox que tu as à additionner/soustraire...

[vinc_bilb]

Bonjour,

Application.InputBox peut aussi aider, dans la mesure ou vous pouvez directement définir le type d'entrée
Value Meaning
0 A formula
1 A number
2 Text (a string)
4 A logical value (True or False)
8 A cell reference, as a Range object
16 An error value, such as #N/A
64 An array of values

Bonne journée

[py86acces]

bonsoir a tous
Que dire, merci pour les réponses c cool
g plus k

bonne soirée

[py86acces]

bonsoir a tous suite a vos message
un petit peu d'aide serait la bien venu
g donc 2 textbox valeur numerique,la c ok voici mon code

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("1234567890.-", Chr(KeyAscii)) = 0 Or txtEcritFeuille.SelStart > 0 And Chr(KeyAscii) = "-" _
Or InStr(txtEcritFeuille.Value, ".") <> 0 And Chr(KeyAscii) = "." Then KeyAscii = 0: Beep
End Sub

g trouver un moyen de transferer mes 2 valeur a l'aide de commandboutjon

Private Sub cmdAlimLesCasesFeuille_Click()
Cells(6, 1) = TextBox1.Value
Cells(7, 1) = TextBox2.Value
TextBox3.Value = Cells(8, 1)
End Sub

Textbox3 etant la somme de mes deux cellules dans ma feuille

peut on si cela est possible faire aparaitre le resultat textbox3 au fur et a mesure de la saisie de textbox 1 et 2 dans le formulaire
car je ferai appelle a ma cde que si le resultat de textbox est ok

désole pour le roman et merci

[parmi]

Place 3 textbox avec les noms par défaut sur un Userform et essaie ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub TextBox1_AfterUpdate()
    If TextBox2 <> "" Then TextBox3 = CDbl(TextBox1) + CDbl(TextBox2)
End Sub
 
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
        Case 48 To 57  ' chiffres de 0 à 9
        Case 44 '  si tu acceptes la virgule
        Case 46 '  si tu acceptes le point
        Case Else
            KeyAscii = 0
    End Select
 
End Sub
 
Private Sub TextBox2_AfterUpdate()
    If TextBox1 <> "" Then TextBox3 = CDbl(TextBox1) + CDbl(TextBox2)
End Sub
 
Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
        Case 48 To 57  ' chiffres de 0 à 9
        Case 44 '  si tu acceptes la virgule
        Case 46 '  si tu acceptes le point
        Case Else
            KeyAscii = 0
    End Select
 
End Sub

[py86acces]

merci ca marche
mais dès que je tape un chiffre avec un point g un message erreur d'execution 13

[parmi]

C'est probablement que ton système est configuré avec les virgules.

Modifie cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Case 46 '  si tu acceptes le point

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Case 46 '  Changer le point par virgule
        KeyAscii = 44

[py86acces]

merci ca marche

bonne soiree