Private Sub CommandButton1_Click()
'SUPPRESSION DES PAGES FORFAITAIREMENT EXISTANTES DANS LE MULTIPAGE DE L'USF2
Do While UserForm2.MultiPage1.pages.Count > 0
UserForm2.MultiPage1.pages.Remove 0
Loop
'CREATION DES NOUVELLES PAGES SUIVANT LES CLASSEURS PRESENTS DANS LE DOSSIER FOURNISSEURS
For i = 1 To UserForm1.ListView1.ListItems.Count
Set PAGE_DU_CARNET = UserForm2.Controls("MultiPage" & 1).pages.Add
'ATTRIBUTION AUX ONGLETS DU MULTIPAGE DE LEUR NOM ISSU DES CLASSEURS PRESENTS
UserForm2.Controls("MultiPage" & 1).pages(UserForm2.MultiPage1.pages.Count - 1).Caption = UserForm1.ListView1.ListItems(i).Text
'"-1" Puisque la première page = "0"
'CREATION DES LISTVIEWS
Set liste_view = UserForm2.Controls("MultiPage" & 1). _
pages(UserForm2.MultiPage1.pages.Count - 1).Add("MSComctlLib.ListViewCtrl.2", , True)
[SIZE=3][COLOR=red] ReDim Preserve groupeLv(0 To i - 1)[/COLOR][/SIZE]
[SIZE=3][COLOR=red] Set groupeLv(i - 1) = New clsListeView[/COLOR][/SIZE]
[SIZE=3][COLOR=red] Set groupeLv(i - 1).Le_LISTVIEW = liste_view[/COLOR][/SIZE]
With liste_view
.Top = 6
.Height = UserForm2.Controls("MultiPage" & 1).Height * 0.8
.Left = 30
.Width = 220
.Gridlines = True
.View = 3
.CheckBoxes = False
.MultiSelect = True
With .ColumnHeaders
.Add , , "ARTICLES", 100
.Add , , "ALLUSION", 100
End With
' OUVERTURE DES CLASSEURS POUR COPIER LES DONNEES
[SIZE=3][COLOR=orange]Workbooks.Add ThisWorkbook.Path & "\FOURNISSEURS\" & UserForm1.ListView1.ListItems(i).Text[/COLOR][/SIZE]
Worksheets("PRODUITS").Select
'CHARGEMENT DES LISTVIEWS
For j = 2 To ActiveSheet.Range("A65536").End(xlUp).Row
.ListItems.Add , , ActiveSheet.Cells(j, 1).Value
.ListItems(.ListItems.Count).ListSubItems.Add , , ActiveSheet.Cells(j, 2).Value
Next j
End With
' FERMETURE DES CLASSEURS
If ActiveWorkbook.Name <> ThisWorkbook.Name Then
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
End If
Next i
UserForm2.Show
End Sub