1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
| Public Sub Mettre_Scan_A_Jour()
'je déclare un tableau
Dim Tableaux()
'Déclaration d'une cellule et d'un entier i
Dim Cel As Variant, i As Long
'cel prend la valeur de la cellule A2
Set Cel = Range("A2")
'Calcule le nombre de lignes
Nb_Lignes = Sheets("infos_systemes").Range("a65536").End(xlUp).Row
'Redimention du tableaux de Nb_Lignes de lignes et 13 colonnes
ReDim Tableaux(Nb_Lignes, 1 To 13)
'Je parcours toutes les lignes Nb_Lignes
For i = 1 To Nb_Lignes
'J'insère dans mon tableau la valeur de la cellule.
Tableaux(i, 1) = CStr(Cel(i, 6))
Tableaux(i, 2) = CStr(Cel(i, 12))
Tableaux(i, 3) = CStr(Cel(i, 13))
Tableaux(i, 4) = CStr(Cel(i, 14))
Tableaux(i, 5) = CStr(Cel(i, 15))
Tableaux(i, 6) = CStr(Cel(i, 16))
Tableaux(i, 7) = CStr(Cel(i, 17))
Tableaux(i, 8) = CStr(Cel(i, 18))
Tableaux(i, 9) = CStr(Cel(i, 19))
Tableaux(i, 10) = CStr(Cel(i, 20))
Tableaux(i, 11) = CStr(Cel(i, 21))
Tableaux(i, 12) = CStr(Cel(i, 22))
Tableaux(i, 13) = CStr(Cel(i, 23))
'J'insère dans ma listbox chaque ligne de mon tableau
'vbTab me permet de faire un espace entre chaque colonne
Form1.ListBox1.AddItem (Tableaux(i, 1) & vbTab & _
Tableaux(i, 2) & vbTab & _
Tableaux(i, 3) & vbTab & _
Tableaux(i, 4) & vbTab & _
Tableaux(i, 5) & vbTab & _
Tableaux(i, 6) & vbTab & _
Tableaux(i, 7) & vbTab & _
Tableaux(i, 8) & vbTab & _
Tableaux(i, 9) & vbTab & _
Tableaux(i, 10) & vbTab & _
Tableaux(i, 11) & vbTab & _
Tableaux(i, 12) & vbTab & _
Tableaux(i, 13))
Next i
End Sub |
