Private Sub InitLSVB() 'init Me=cet userform et LSVB =nom de la listview
On Error Resume Next
With Me.LSVB
With .ColumnHeaders
.Clear
.Add , , "ARTICLE", 60 '60=dimension de la colonne de la listview '1
.Add , , "DESIGNATION", 140 '2
.Add , , "1", 25 'devis/LOG
.Add , , "2", 25 'methodes
.Add , , "3", 25 'modelage
.Add , , "4", 25 ' fonderie
.Add , , "5", 25 ' para
.Add , , "6", 25 'controle
.Add , , "CHANTIER TGAO", 35 '6
.Add , , "CHANTIER", 40 '7
.Add , , "NUANCE TGAO", 35 '8
.Add , , "NUANCE", 40 '9
.Add , , "COULEE SPECIALE", 40 '10
.Add , , "CLIENT", 80 '11
.Add , , "QUANTITE", 60 '12
.Add , , "RECEPT COMMANDE", 60 '13
.Add , , "TEMPS MODELAGE", 60 '14
.Add , , "REMISE DOSSIER", 60 '15
.Add , , "DELAI PT", 60 '16
.Add , , "MOULAGE", 60 '17
.Add , , "CONTROLE PT", 60 '18
.Add , , "TEMPS D'ETUDE", 35 '19
.Add , , "DATE LIMITE LANCEMENT", 35 '20
.Add , , "DATE THEORIQUE DE FIN", 35 '21
.Add , , "DEBUT ETUDE", 60 '22
.Add , , "PREPARATEUR", 60 '23
.Add , , "FIN ETUDE", 60 '24
.Add , , "CREA/ADAPT", 60 '25
.Add , , "LIMITE LANCE MODEL", 60 '26
.Add , , "DEBUT MODELAGE", 60 '27
.Add , , "MISE A DISPO FONDERIE", 60 '28
.Add , , "MODELEUR", 60 '29
.Add , , "OSERVATIONS", 60 '30
.Add , , "COULEE PT", 60 '31
.Add , , "NOMBRE DE PIECES", 60 '32
.Add , , "DECOCHAGE", 60 '33
.Add , , "FIN PARA", 60 '34
.Add , , "RESULTAT PT", 60 '35
.Add , , "BON A COULER", 60 '36
.Add , , "DEFAUT", 60 '37
.Add , , "DESCRIPTION", 60 '38
.Add , , "INFO", 60 '39
.Add , , "INDEX", 60 '40
End With
.View = 3 ' type Report
.Gridlines = True ' affichage de lignes
.FullRowSelect = True ' sélection complète de la ligne
.HideColumnHeaders = False ' afficher les en-têtes de colonnes
.LabelEdit = 1 ' ne pas autoriser la saisie
End With
'Remplir la listview avec les données de la base de la feuille BD1
'Afficher les données jusqu'à la dernière ligne trouvée
Dim TxtTotal2, Plage As Range, Cel As Range, I
LSVB.ListItems.Clear
With Sheets("bd1")
Set Plage = .Range("A4:A" & .Range("A65000").End(xlUp).Row)
For Each Cel In Plage
With LSVB
.ListItems.Add , , Cel
For I = 1 To 42
.ListItems(.ListItems.Count).ListSubItems.Add , , Cel.Offset(0, I)
Next
End With
Next
End With
'inscrire le nombre de lignes trouvées dans le label12
TxtTotal2 = LSVB.ListItems.Count
Label12 = TxtTotal2
End Sub