[VBA-E] Addition des valeurs des textbox

**DonKnacki** · 06/02/2006, 17h05

Bonsoir

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 :

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

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 :

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

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 ?

**ouskel'n'or** · 06/02/2006, 17h23

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

A+

**SfJ5Rpw8** · 06/02/2006, 17h24

Envoyé par Nom

Bonsoir

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?

**DonKnacki** · 07/02/2006, 08h54

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

Code :

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

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

**AlainTech** · 07/02/2006, 09h32

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!!!

**ouskel'n'or** · 07/02/2006, 09h41

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

Code :

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

Public texte1 As Integer

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

A+

**SfJ5Rpw8** · 07/02/2006, 09h42

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 :

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

1
2
3
4
5
 
Private Sub Valider_Opération_Click()
Range("A1") = Range("A1") + TextBox1.Value
ActiveWorkbook.Save 'sauvegarde 
End Sub

**DonKnacki** · 07/02/2006, 09h49

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

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

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

**DonKnacki** · 09/02/2006, 16h42

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 :

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

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]

**Bigyork** · 09/02/2006, 17h03

Code :

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

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 !

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

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 ?

A+

**bouley** · 09/02/2006, 17h28

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 :

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

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 !
@+

**zazaraignée** · 09/02/2006, 20h30

Salut

Heu... T'as prévu que les utilisateurs pouvaient s'amuser à entrer autre chose que des nombres entiers dans les textBox?

**ypicot** · 11/02/2006, 23h34

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

**ouskel'n'or** · 12/02/2006, 12h57

Tu peux aussi écrire

Code :

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

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

A+

**ypicot** · 12/02/2006, 13h03

Envoyé par ouskel'n'or

Tu peux aussi écrire

Code :

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

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

ou

Code :

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

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

Mais je note que ton range passe par un cells !

Yvan

**DonKnacki** · 13/02/2006, 10h31

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 :

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

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

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

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+

**DonKnacki** · 13/02/2006, 10h52

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

**ouskel'n'or** · 13/02/2006, 11h16

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 :

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

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+

[VBA-E] Addition des valeurs des textbox

Macros et VBA Excel

Discussions similaires

Partager

Partager