Faire une boucle pour chaque textbox remplies

Code:

---

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

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click   Dim XlApp As Object = Nothing, Workbook As Object = Nothing, ActiveSheet As Object = Nothing XlApp = GetObject("Excel.Application") 'XlApp.visible = True' Workbook = XlApp.Workbooks.Open(System.Environment.GetFolderPath(Environment.SpecialFolder.Desktop) + "\Dossier final - Copie.exe") ActiveSheet = Workbook.ActiveSheet ActiveSheet.Cells(4, 2).Value = TextBox1.Text ActiveSheet.Cells(5, 2).Value = TextBox2.Text ActiveSheet.Cells(6, 2).Value = TextBox3.Text ActiveSheet.Cells(7, 2).Value = TextBox4.Text ActiveSheet.Cells(8, 2).Value = TextBox5.Text() ActiveSheet.Cells(9, 2).Value = TextBox6.Text ActiveSheet.Cells(10, 2).Value = TextBox7.Text() ActiveSheet.Cells(11, 2).Value = TextBox8.Text ActiveSheet.Cells(12, 2).Value = TextBox9.Text

---

j'ai ce code fois 350 (donc cela prend énormément de temps à l'application pour traiter toutes les informations

je cherche à faire un truc dans ce style mais je ne sais pas comment exactement*

Code:

---

1 2 3

For i = 1 To textbox.Count ActiveSheet.Cells(4, 2& i.ToString).Value = Value(i - 1) Next

---

Salut

Je ne suis pas programmeur VB.net, mais il me semble que la réponse est contenu dans ta discussion ICI

Code:

---

1 2 3

For i = 1 To textbox.Count ActiveSheet.Cells(4, 2& i.ToString).Value = Me.Controls("Textbox" & i.ToString).Text Next

---

Non cela ne fonctionne toujours pas voici le message d'erreur

Pièce jointe 514170

Bonjour,

Peut-être que le code suivant te conviendra mieux ...

Code:

---

1 2 3 4

For Each TB As TextBox In Me.Controls.OfType(Of TextBox)() Dim NumeroTextBox As Integer = CType(TB.Name.Substring(7), Integer) ActiveSheet.Cells(NumeroTextBox + 3, 2).Value = TB.Text Next

---

En relisant ta question initiale, je me rends compte qu'un teste est peut-être nécessaire :

Code:

---

1 2 3 4 5 6

For Each TB As TextBox In Me.Controls.OfType(Of TextBox)() If TB.Text <> String.Empty Then Dim NumeroTextBox As Integer = CType(TB.Name.Substring(7), Integer) ActiveSheet.Cells(NumeroTextBox + 3, 2).Value = TB.Text End If Next

---

Attention, il est supposer ici que tous les TextBox de ton Form sont concernés et qu'il sont bien numérotés de 1 à ...

:D

Bonsoir

Citation:

---

Envoyé par sorbetframboise

[CODE]

Code:

---

1 2 3

For i = 1 To textbox.Count ActiveSheet.Cells(4, 2& i.ToString).Value = Value(i - 1) Next

---

---

Ici tu mélanges des integer avec des strings donc donc tu concatènes 2 et i sur les colonnes pour former des strings contenant "21", "22", etc.. hors si tu utilises des strings pour les colonnes, excel attend A, B, C D pour les colonnes, c'est ce qui provoque l'erreur.
Si tu veux concaténer, ce qui fonctionnera c'est "int(2& i.ToString)" mais cela devient une usine à gaz et c'est inutile. Ce qu'il faut, c'est utiliser ta variable i correctement en utilisant des integer.

Code:

---

1 2 3

For i = 1 To textbox.Count activesheet.Cells(4, 20 +i).value = Value(i - 1) 'ou Me.Controls("TextBox" & i.ToString).Text Next

---

Si ta textbox est vide, il copiera dans la case excel "rien", tu auras donc une case vide. Et comme l'a dit Phil Rob, il faut que tes textbox soit correctement numérotées...

PS : soit dit en passant " ActiveSheet.Cells(4, "A").Value = "quelques choses" fonctionne, tu peux donc utiliser des integer et des string mais il faut utiliser les lettres de l'alphabet pour les colonnes, ce qui n'est pas très pratique.

Phil rob c'est parfait merci pour ta réponse

Elthorn avec ta solution il y a le même problème que j'avais a l'initial c'est a dire le count ne fonctionne pas avec les textbox merci quand même de ta participation et de m'avoir éclairé sur la différence entre les string et les int

Bonjour,

Essaie comme cela :

Code:

---

1 2 3 4 5 6

For i = 1 To Me.Controls.OfType(Of System.Windows.Forms.TextBox).Count 'action à faire Next

---

mais il faut que toutes tes textbox soient bien numérotées ou alors il faut enlever à ton count le nombre de textbox non concernées.

Attention à bien mettre "System.Windows.Forms.TextBox" pour préciser que ce sont des textbox windows form et non des textbox excel. (comme on a "Imports Microsoft.Office.Interop.Excel" (en tout cas moi je l'ai ;)), par defaut il va chercher des textbox excel, ne me demander pas pourquoi, je l'ignore :weird:, mais je suis preneur de toute explication:D).