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
| Private Sub ButSaveList_Click()
Dim Ligne As String
Dim LigneExcel As Integer
Dim compt As Integer
'Récupération dans un tableau les informations à placer --------------------------------------
Dim st As String
Dim tb(1)
Dim intPosition As Integer
'activer la feuille "Memory" initialisé à la ligne 2 -------------------------
'Sheets("Memory").Activate
LigneExcel = 2
With Worksheets("Memory").Cells.ClearContents
End With
' Initialisation des entêtes de colonnes - les manipulations de données se faisant à partir de la ligne 2 ---
Dim wksDest As Worksheet
Set wksDest = Worksheets("Memory")
wksDest.Cells(1, 1) = "Filter (In Values)"
wksDest.Cells(1, 2) = "Separator"
wksDest.Cells(1, 3) = "Filter (OUT Values)"
wksDest.Cells(1, 4) = "Reference Work Path"
wksDest.Cells(2, 4) = TxtJobDirectory
'Récupération des infos de la liste box dans un tableau !
For compt = 0 To ListBoxFilters.ListCount - 1
intPosition = InStr(1, ListBoxFilters.List(compt), ";") - 1
tb(0) = Left(ListBoxFilters.List(compt), intPosition)
intPosition = InStr(1, ListBoxFilters.List(compt), ";") + 1
tb(1) = Mid(ListBoxFilters.List(compt), intPosition)
'Inscrire le contenu d'une listbox dans la feuille "Memory" d'un classeur EXCEL *********
' Affecter les données de la listbox dans les cellules de la feuille
With ActiveWorkbook.Worksheets("Memory")
.Cells(LigneExcel, 1) = tb(0)
End With
With ActiveWorkbook.Worksheets("Memory")
.Cells(LigneExcel, 3) = tb(1)
LigneExcel = LigneExcel + 1
End With
Next compt
MsgBox "Your filters list has saved.", vbInformation + vbOKOnly, "Liste saved"
End Sub |
Partager