[VBA-E] Addition des valeurs des textbox

Version imprimable

Voir 40 message(s) de cette discussion en une page

06/02/2006, 17h05
DonKnacki

[VBA-E] Addition des valeurs des textbox
Bonsoir :lol:
je fais une application sous Excel et j'ai créer un userform dans lequel j'ai mis un textbox pour que les utilisateurs notent un nombre
le fonctionnement doit être celui ci
l'utilisateur1 tape un nombre (ex 1),il sauvegarde
l'utilisateur2 tape un nombre (ex 2),il sauvegarde
dans un premier temps je récupére les numéro que l'utilisateur met dans la textbox
Code:

1 2 texte1 = TextBox1.Value
mais je souhaiterai plutot récupérer l'addition des deux nombres (donc ici le résultat devrai être 3 )
j'avais pensé à faire

Code:

texte1 = texte1 + TextBox1.Value

mais ca me prend à priori ça prend en compte que le dernier numéro (donc 2)

comment faire poue avoir l'addition ?
06/02/2006, 17h23
ouskel'n'or

Quand tu dis "il sauvegarde", l'utilisateur n sauvegarde quoi et où ?

A+
06/02/2006, 17h24
SfJ5Rpw8

Re: [Excel-VBA] Addition des valeurs des textbox

Citation:

Envoyé par Nom

Bonsoir :lol:
l'utilisateur1 tape un nombre (ex 1),il sauvegarde
l'utilisateur2 tape un nombre (ex 2),il sauvegarde

l'utilisateur fait quoi pour la sauvegarde?

en fait la sauvegarde à lieu lors du clique sur un bouton validez pour lequel j'ai mis le code suivant :
Code:

1 2 3 4 5 6 7 8 Private Sub Valider_Opération_Click() Dim texte1 As Integer texte1 = texte1 + TextBox1.Value Range("A1").Select ActiveCell.Formula = texte1 ActiveWorkbook.Save 'sauvegarde End Sub

07/02/2006, 09h32
AlainTech

Bon...

Faudra encore 6 posts pour avoir la description complète de l'énoncé???

Le deuxième utilisateur, il sauvegarde où???

Pas dans [A1], sinon on écrase la première donnée!!!
07/02/2006, 09h41
ouskel'n'or

Si tu veux que ta variable texte1 conserve sa valeur entre deux saisies, tu dois la déclarer en public

Code:

Public texte1 As Integer

Quand tu poses une question, essaie d'imaginer que tu aies à lui répondre... :evil:

A+
07/02/2006, 09h42
SfJ5Rpw8
Citation:

Envoyé par Nom

en fait la sauvegarde à lieu lors du clique sur un bouton validez pour lequel j'ai mis le code suivant :

A je crois que j'ai compris... as chaque Validation tu ve rajoutre la valeur saisie à la valeur contenue dans cellule A1... ?
Code:

1 2 3 4 5 Private Sub Valider_Opération_Click() Range("A1") = Range("A1") + TextBox1.Value ActiveWorkbook.Save 'sauvegarde End Sub
07/02/2006, 09h49
DonKnacki

Citation:

A je crois que j'ai compris... as chaque Validation tu ve rajoutre la valeur saisie à la valeur contenue dans cellule A1... ?

Oui c'est effectivement cela que je désire faire

Citation:

Quand tu poses une question, essaie d'imaginer que tu aies à lui répondre...

désolé si je n'est pas été clair :oops:

je réouvre ce sujet car j'ai une question qui découle du code que bbil m'a suggéré

j'ai un peu réadapter ce code :
Code:

1 2 3 4 5 6 7 8 9 Jour = Day(Now) 'si l'utilisateur ne met rien dans la case opération 1 If TextBox1.Value = "" Then Range("B" & Jour + 3) = Range("B" & Jour + 3) 'le total reste le même Else Range("B" & Jour + 3) = Range("B" & Jour + 3) + TextBox1.Value 'sinon on additionne l'ancien total avec la valeur que l'utilisateur viens de mettre dans opération1 End If End Sub
donc voila j'ai rajouté d'autre TextBox et j'aimerais ne pas a avoir à réécrir ce code pour les 22 TextBox!
Or j'ai remarqué que le contenu de la textbox1 va en B12 (12 correspond à mon Jour +3 car aujourd'hui on est le 9)
le textbox2 va en C12, le textbox3 en D12 ...
donc comment changer mon code et faire une boucle [/code]

Code:

1
2
3
4
5
6
7
8
9
10
 
Dim cont As Control
Jour = Day(Now)
For Each cont In Form1.Controls
    If TypeOf cont Is TextBox Then
        If cont.Text <> "" Then
           Range("B" & Jour + 3) = Range("B" & Jour + 3) + TextBox1.Value 'sinon on additionne l'ancien total avec la valeur que l'utilisateur viens de mettre dans opération1
        End If
    End If
Next

Dans VB ça donnerais à peu près ça !
Reste le problème de la lettre à incrémenter !

09/02/2006, 17h18
ouskel'n'or

Hello Bigyork,
C'est ok s'il n'a pas de textbox autre que ceux concernés par sa demande

Dans le cas contraire, une autre solution consisterait à créer une collection de ses textbox

C'est toi qui vois, Nom, non ? :wink:

A+

Salut Nom,
Tu peux mettre les lettres des colonnes dans la propriété TAG des textbox
B pour Texbox1
C pour textbox2
.
.
S'il y a d'autres textbox qui ne sont pas concernées tu ne renseignes pas le TAG

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub InsertDansCellules()
Dim cont As Control
Jour = Day(Now())
For Each cont In UserForm1.Controls
    If TypeOf cont Is MSForms.TextBox And cont.Tag <> "" Then
        If cont.Text <> "" Then
           Range(cont.Tag & Jour + 3) = Range(cont.Tag & Jour + 3) + cont.Value 'sinon on additionne l'ancien total avec la valeur que l'utilisateur viens de mettre dans opération1
        End If
    End If
Next
End Sub

Testé et Ok pour moi
Dis nous !
@+

09/02/2006, 20h30
zazaraignée

Salut

Heu... T'as prévu que les utilisateurs pouvaient s'amuser à entrer autre chose que des nombres entiers dans les textBox?
11/02/2006, 23h34
ypicot

En VBA, il vaut mieux éviter d'utiliser le range quand on veut avoir une adresse calculée (le range oblige à utiliser les lettres : passer de A à B, ca va encore, mais passer de Z à AA... arg...)
Utilise plutot Cells, qui a comme paramètre deux nombres. Beaucoup plus facile de faire NumCol+1 !

Yvan

Tu peux aussi écrire

Code:

1
2
3
Cells(NoLigne, NoCol).Select
'ou
Range(Cells(NoLigne, NoCol), Cells(NoLigne2, NoCol2)).Select

A+

12/02/2006, 13h03
ypicot
Citation:
Envoyé par ouskel'n'or

Tu peux aussi écrire

Code:

1 2 3 Cells(NoLigne, NoCol).Select 'ou Range(Cells(NoLigne, NoCol), Cells(NoLigne2, NoCol2)).Select
ou

Code:

Cells(Cells(NoLigne, NoCol), Cells(NoLigne2, NoCol2)).Select

:wink:

Mais je note que ton range passe par un cells ! :lol:

Yvan

alors je vous donne un peu de nouvelle
j'ai voulu utiliser les cells au lieu des ranges comme me l'a conseiller ypicot j'ai donc fais ce code

Code:

1
2
3
4
5
6
7
8
9
10
 
Jour = Day(Now)
For NoColonne = 2 To 22
If TextBox&Nocolonne-1.Value = "" Then 'si l'utilisateur ne met rien dans le textbox 
 
    Cells("& Jour + 3,NoColonne") = Cells("& Jour + 3,NoColonne") 'le total reste le même
Else
    Cells("& Jour + 3,NoColonne") = Cells("& Jour + 3,NoColonne") + TextBox&NoColonne-1.Value 'sinon on additionne l'ancien total avec la valeur que l'utilisateur viens de mettre dans opération1
End If
Next

mais la syntaxe de mon TextBox.Value n'est plus bon

13/02/2006, 10h38
ouskel'n'or

Essaie en séparant TextBox&Nocolonne-1
TextBox & cstr(Nocolonne-1)
ou
TextBox & trim(str(Nocolonne-1)) ' dépend de la version (?)

A tout hasard...

A+
13/02/2006, 10h52
DonKnacki

j'ai Excel 97.
J'ai essayer les 2 syntaxes et la 2ieme semble être bonne toutefois j'ai une erreur type incompatible

Ok
Tu es dans un form ou ton textBox est dans une feuille de calcul. Tu l'as peut-être déjà dit...
Si tu esdans un form, tu fais

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Jour = Day(Now)
LeControl = "TextBox" & cstr(Nocolonne-1) 
Set MonTextBox = MaForm.controls(Lecontrol)  'Maform : Nom de ton form
With MonTextBox
   For NoColonne = 2 To 22 
     If .Value = "" Then 
          Cells("& Jour + 3,NoColonne") = Cells("& Jour + 3,NoColonne") 'le total reste le même 
       Else 
          Cells("& Jour + 3,NoColonne") = Cells("& Jour + 3,NoColonne") + .Value
     End If 
   Next
End with

Pas testé Tu peux faire ça pour moi ?

A+

Voir 40 message(s) de cette discussion en une page