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