[VBA-E] Addition des valeurs des textbox

Citation:

---

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

---

Tu as bien tort, tu as déjà corrigé l'une de mes erreurs (pas le tps de vérifier ce que j'avais dit) et en outre, j'ai toujours pensé qu'un pb se résolvait mieux à plusieurs. Enfin, on est sur le forum, sinon on communiquerait par mp... :wink:
Merci de ton aide mais... ne me quitte pas, je t'inventerai des mots incensés que tu comprendras... 8O

Cher nom,

Si tu as -1 c'est que ton N° de colonne n'est pas bon parce que le code fourni ne peut te donner que ce que tu lui mets.
Or tu lui mets bien Textbox mais je t'ai demandé le N° de colonne...
Tu le testes avant de remplir ta variable LeControl. Là, je pense que tu vas comprendre

A+

désolé mais je ne comprend pas. Il faut dire que le code que j'ai recopier est un peu complexe pour moi :(

Au lieu de faire

Citation:

---

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

---

Fais

Code:

---

1 2 3 4

Jour = Day(Now) msgbox NoColonne '******Ajoute cette ligne, tu as zéro dedans ! ( 0 ) 'LeControl = "TextBox" & cstr(Nocolonne-1) '......etc

---

Normal qu'après tu aies TextBox-1 :wink:

Vérifie l'initialisation de NoColonne. Tu le prends où ?

A+

lorsque je rajoute la ligne

Code:

---

1 2	msgbox NoColonne

---

dans l'évenement activate cela ne me met pas zéro mais rien enfin une fenetre vide

quand à l'initialaisation de NoColonne elle se fait au niveau de la boucle for à chaque fois qu'on boucle il s'incrémente de 1

je suppose que tu essai de me faire comprendre l'erreur par moi meme
je t'averti je commence à saturé un peu donc ca risque de prendre du temps lol

Alors teste

Citation:

---

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

---

Dans la boucle, pas avant d'être entré dedans... :cry:

Code:

---

1 2 3 4

For NoColonne = 2 to ........... LeControl = "TextBox" & cstr(Nocolonne-1) msgbox LeControl '....

---

Le problème est que tu nous as peu à peu abandonné ton projet.
Reprends ton truc en main, il est à toi, relis les différentes réponses, d'accord, mais surtout essaie de comprendre le pourquoi de nos questions.
Tu verras, c'est mieux que n'importe quel code qu'on te donnerait encore. :wink:

Que cela ne t'empêche pas de nous interroger ensuite

A+

Citation:

---

Le problème est que tu nous as peu à peu abandonné ton projet.

---

la je te controdirai pas

d'ailleur j'ai voulu revenir à quelque chose qui ressemblais plus à mon idée de départ car le code que vous me proposiez je ne le comprend pas donc pour le modifier c'est pas evident


Bref je vais essayer de m'en sortir avec tout ce que j'ai déjà
merci

C'est un peu de notre faute.
Ce que nous avons cherché à faire est, d'après le nom de ton textbox, de retrouver son index dans ton form (puisque par le nom, on n'y arrive pas)
Une fois l'index trouvé, il suffit de l'utiliser dans

Code:

---

Opération.controls(index).text =

---

comme tu l'aurais utilisé dans

Code:

---

Opération.Textbox1.text =

---

Mais on a avancé sans t'expliquer.
Si tu as d'autres questions, n'hésite pas :wink:

A+

et pour trouvé l'index on utilise cette ligne c'est cas?

Code:

---

1 2	Set MonTextBox = Opération.Controls(Lindex)

---

je met aussi ce que j'ai essayé de faire de mon coté (ca n'a pas de lien avec votre code puisque c'est plus pres de mon premier code )

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Jour = Day(Now)   'si l 'utilisateur ne met rien dans la case opération 1 For lettre = Asc("B") To Asc("V") NoColonne = lettre - 65 MsgBox TextBox & NoColonne MsgBox NoColonne If Controls(TextBox & NoColonne).Value = "" Then Range(lettre & Jour + 3) = Range(lettre & Jour + 3) 'le total reste le même Else Range(lettre & Jour + 3) = Range(lettre & Jour + 3) + Controls(TextBox & NoColonne).Value 'sinon on additionne l'ancien total avec la valeur que l'utilisateur viens de mettre dans opération1 End If   Next

---

mais toujours objet spécifié introuvable pour mon if Controls ...

Non, c'est toute cette boucle qu'il faut utiliser

Recherche de l'index d'un contrôle d'après le nom du contrôle

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim jour, LeControl, i, Lindex 'etc Dim ok as boolean Jour = Day(Now) LeControl = "TextBox" & cstr(Nocolonne-1) For each Controle in Opération.controls Lindex = Lindex + 1 ok = Controle.name = LeControl then 'nom de ton contrôle if ok then exit for Next

---

Si le contrôle a été trouvé, tu as son index (Lindex)

Ensuite, pour lire tester le contenu du texbox, tu fais ça

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

If not ok then 'le contrôle n'a pas été trouvé msgbox "Ce contrôle n'existe pas" exit sub endif 'sinon il a été trouvé, tu continues Set MonTextBox = Opération.controls(Lindex) 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

---

Bon courage

A+

Edit
J'ai ajouté un booléen pour tester l'existence du contrôle que tu cherches

je pense avoir trouvé la cause du problème
c'est tellement bête que j'en ai presque honte
en fait mon dernier textbox était le textbox21 or dans la boucle on fesait

Code:

---

1 2 3 4

for i= 1 to 22 if Controls("TextBox" & i).Value <> "" Then ...

---

donc c'est normal qu'il trouvais pas le texbox22 :oops:

je suis donc revenue sur un code plus simple

Code:

---

1 2 3 4 5 6 7 8

ligne = Day(Now) + 3 For i = 1 To 21 If Controls("TextBox" & i).Value <> "" Then Sheets(1).Cells(ligne, i + 1).Value = Sheets(1).Cells(ligne, i + 1).Value + Controls("TextBox" & i).Value Else End If Next i

---

je suis vraiment désoler de cette erreur
Un grand merci à ouskel'n'or pour m'avoir aidé
je t'avou que je suis un peu géné mais bon ca arrive (souvent) avec moi