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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
| Private Sub UserForm_Initialize()
Dim nomclasseursource As String
Dim nomfeuillesource As String
Dim chemindacces As String
Dim donnee1 As String
Dim donnee2 As String
Dim i As Long
nomclasseursource = "BaseDeDonnées"
nomfeuillesource = "Base de données" 'Le nom de la feuille contenant les données dans le classeur source.
chemindacces = "K:\Repertoire Commun\Arnaud\Excel\VBA\BaseDeDonnées.xls"
'----- remplissage ListView------------------------
With ListView1
'Définit le nombre de colonnes et Entêtes
With .ColumnHeaders
'Supprime les anciens entêtes
.Clear
'Ajoute 3 colonnes en spécifiant le nom de l'entête
'et la largeur des colonnes
.Add , , "Date du jour", 70
.Add , , "Service", 50
.Add , , "Initiale", 40
.Add , , "Dépt", 30
.Add , , "Type", 50
.Add , , "Date de réclamation", 80
.Add , , "Code client", 50
.Add , , "Nom Interlocuteur", 80
.Add , , "N°Circuit", 50
.Add , , "Nature", 50
.Add , , "Obser Nature", 90
.Add , , "Action menée", 50
.Add , , "Obser Action", 90
End With
End With
'-----------------------------------------------------
'---Copie des données---------------------------------
Application.ScreenUpdating = False 'permet de ne pas afficher les différentes manipulations réalisées par la macro. On ne voit donc pas le fichier source s'ouvrir. Le rendu est plus propre.
Me.ListView1.ListItems.Clear
Application.Workbooks.Open chemindacces
Do Until Application.Workbooks(nomclasseursource).Worksheets(nomfeuillesource).Cells(i, 1) = ""
donnee1 = Application.Workbooks(nomclasseursource).Worksheets(nomfeuillesource).Cells(i, 1)
donnee2 = Application.Workbooks(nomclasseursource).Worksheets(nomfeuillesource).Cells(i, 2)
Me.ListView1.ListItems.Add donnee1
Me.ListView1.ListItems(i - 1, 1) = donnee2
i = i + 1
Loop
Application.Workbooks(nomclasseursource).Close
Application.ScreenUpdating = True 'On rétablit les mises à jour de l'affichage.
'--------------------------------------------------
'Spécifie l'affichage en mode "Détails"
ListView1.View = lvwReport
'Affichage d'un quadrillage dans la ListView
ListView1.Gridlines = True
'Surligne la ligne entière selectionnée
ListView1.FullRowSelect = True
End Sub |
