[VBA-E] Addition des valeurs des textbox

**DonKnacki** · 13/02/2006, 11h21

Je suis dans un forme

j'ai donc testé ton code (mon form s'appel Opération)

Code :

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

1
2
 
Set MonTextBox = Opération.Controls(Lecontrol)  'Maform : Nom de ton form

Objet spécifié introuvable

**jmfmarques** · 13/02/2006, 11h25

object.Controls(index)

il ne faut pas appeler le nom mais l'index

**DonKnacki** · 13/02/2006, 11h51

ok pour l'index jmfmarques. Mias j'ai encore une erreur
Decidément !

La propriété .Value n'est pas gérer par l'objet MonTextBox

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

Ok jmf,

Donc, Nom, tu mets le code dans une boucle dans laquelle tu teste l'index du contrôle selon son nom

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
Jour = Day(Now) 
LeControl = "TextBox" & cstr(Nocolonne-1) 
For each Controle in Opération.controls
      i = i + 1
      if .name = LeControl then  'nom de ton contrôle
             Lindex = i
             exit for
      endif
Next
Set MonTextBox = Opération.controls(Lindex)  'Maform : Nom de ton form 
With MonTextBox 
   For NoColonne = 2 To 22 
     If .Text = "" Then 
          Cells("& Jour + 3,NoColonne") = Cells("& Jour + 3,NoColonne") 'le total reste le même 
       Else 
          Cells("& Jour + 3,NoColonne") = Cells("& Jour + 3,NoColonne") + Val(.Text)
     End If 
   Next 
End with

Non testé (pas le temps) Tu fais très bien ça...

A+

NB - il y a sans doute plus simple mais là... time is money

Edit
Evidemment, value est à remplacer par text et tu en prends la valeur
Erreur corrigée

**DonKnacki** · 13/02/2006, 12h12

tu peux pas mettre de .Name sans With quelque chose

Code :

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

1
2
3
4
5
6
LeControl = "TextBox" & CStr(NoColonne - 1)
For Each Controle In Opération.Controls
      i = i + 1
      If .Name = LeControl Then  'nom de ton contrôle
             Lindex = i
             Exit For

référence incorecte ou non qualifié
j'ai donc rajouté un Controle devant le .Name

en plus toujours le meme problème concerant le .Value :

Code :

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

1
2
3
4
Set MonTextBox = Opération.Controls(Lindex)  'Maform : Nom de ton form
With MonTextBox
   For NoColonne = 2 To 22
     If .Value = "" Then

Propriété non gérer par l'objet

**ouskel'n'or** · 13/02/2006, 12h37

J'ai corrigé mon post précédent? C'est text, non pas value. Jète un oeil...

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

toujours pareil que ce soit Text ou Value

**jmfmarques** · 13/02/2006, 13h13

Pardonnez-moi d'intervenir à nouveau, mais, en dehors de ce que j'ai dit précédemment (en ce qui concernait l'index), je commence à me demander s'il n'y a pas, en plus, une affaire de nom de baptème.

1) Cool pourrait-il, en faisant un copier-coller scrupuleux, insérer ceci comme toute 1ère instruction de l'événement activate de sa Form :

Code :

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

MsgBox Me.Name & "  " & Opération.Name

et nous rapporter ce qui s'est affiché ou, au contraire, le message d'erreur reçu ?

2) dans :

Code :

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

1
2
3
4
5
6
7
For each Controle in Opération.controls 
      i = i + 1 
      if .name = LeControl then  'nom de ton contrôle 
             Lindex = i 
             exit for 
      endif 
Next

la recherche commençant ainsi à 1 et pas 0, l'index 0 sera complètement sauté.

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

avec le copier coller que tu as demander une fenetre apparait avec afficher Opération Opération
je sais pas si ca va t'aider moi j'avou être un peu perdu

**jmfmarques** · 13/02/2006, 13h33

C'est bon. Cela veut dire que le nom de baptème de ta Form est bien "Opération"
fais maintenant la même chose avec :

Code :

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

MsgBox LeControl.Name

et dis-nous
puis avec :

Code :

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

MsgBox Controls(0).Name

(j'ai un pressentiment..)
et dis-nous

**DonKnacki** · 13/02/2006, 13h37

objet requis

**jmfmarques** · 13/02/2006, 13h41

Hé bien voilà ! Lecontrol n'est tout simplement pas le nom que tu as donné à ton contrôle !

**jmfmarques** · 13/02/2006, 13h48

Envoie maintenant ceci :

Code :

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

MsgBox Controls(0).Name

toujours au même endroit et ajoute ceci :

Code :

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

Msgbox LeControl

tout de suite après :

Code :

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

LeControl = "TextBox" & cstr(Nocolonne-1)

et dis-nous

**DonKnacki** · 13/02/2006, 13h50

je comprend pas
en fesant cela

Code :

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

1
2
 
LeControl = "TextBox" & CStr(NoColonne - 1)

LeControle n'est il pas le nom de mon controle
ou alors c'est que il y a quelque chose que j'ignore qu'entendez vous par controle ?

**jmfmarques** · 13/02/2006, 13h51

Fais-le et dis....

**DonKnacki** · 13/02/2006, 13h58

alors

Code :

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

1
2
 
MsgBox LeControl.Name

ne marche pas objet requis

Code :

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

1
2
 
MsgBox Controls(0).Name

Label2

et

Code :

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

1
2
 
LeControl = "TextBox" & CStr(NoColonne - 1)

rien enfin fenetre vide

**jmfmarques** · 13/02/2006, 14h07

donc : est fausse cette partie du code :

Code :

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

LeControl = "TextBox" & CStr(NoColonne - 1)

qui aurait du te donner quelque chose du genre "Text1 ou "Text2" etc...
As-tu bien placé ce msgbox là où je te l'ai dit, à savoir ainsi:

Code :

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

1
2
3
4
5
6
Jour = Day(Now) 
LeControl = "TextBox" & cstr(Nocolonne-1) 
msgbox LeControl
etc...
.
.

:

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

Couou, me revoilou,
Ce que te dit jmfmarques, c'est que tu n'as pas de textbox nommé textboxNoCol
Quel est ton N° de colonne ?
Donne-nous le nom de ton textbox

A+

**jmfmarques** · 13/02/2006, 14h18

Excuse-moi Ouskel : j'ai vu que tu étais ailleurs et ai voulu faire "avancer" le truc...
je me retire maintenant.
Salut

**DonKnacki** · 13/02/2006, 14h25

Couou, me revoilou,
Ce que te dit jmfmarques, c'est que tu n'as pas de textbox nommé textboxNoCol
Quel est ton N° de colonne ?
Donne-nous le nom de ton textbox

mes TextBox se nomme TextBox1, TextBox2, TextBox3 ...., TextBox21 et je souhaiterai insérer le contenu des TextBox de la colonne B à V donc 2 à 22 (TextBox1 -> colonne2, TextBox2->colonne3,...,
TextBox21->colonne21)

Jour = Day(Now)
LeControl = "TextBox" & cstr(Nocolonne-1)
msgbox LeControl
etc...

dans ta premiere réponse tu avais mis le msgbox avant LeControl= ...
j'ai remis dans l'ordre et ca m'affiche TextBox-1