Discussion :

[sorbetframboise]

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

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

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

[ProgElecT]

Salut

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

Code :

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

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

[sorbetframboise]

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

[Phil Rob]

Bonjour,

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

Code :

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

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 :

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

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 à ...

[Delaney]

Bonsoir

[CODE]

Code :

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

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 :

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

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.

[sorbetframboise]

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

[Delaney]

Bonjour,

Essaie comme cela :

Code :

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

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 , mais je suis preneur de toute explication).