Bonjour à tous.
je m'initie maintenant aux variables tableaux. j'ai essayé de travailler en ressource avant de reproduire ce travail sur la feuille Excel comportant un tableau. je voudrais savoir s'il n'y a pas plus optimal que ce que j'ai écrit?
le but de mon code est de faire un enregistrement .merci de votre attention.
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
20
21 Private Sub CommandButton1_Click() Dim i As Integer: Dim Tablo(): Dim x As Integer With Sheets(1) Tablo = .Range("Tabl").Value For x = LBound(Tablo) To UBound(Tablo) Tablo(x, 1) = TextBox3 Tablo(x, 2) = TextBox2 Tablo(x, 3) = TextBox4 .ListObjects(1).ListRows.Add i = .Range("b" & Rows.Count).End(xlUp).Row .Range("b" & i) = Tablo(x, 1) .Range("c" & i) = Tablo(x, 2) .Range("d" & i) = Tablo(x, 3) Exit For Next End With End Sub
Partager