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
|
..................................
ListBox1.Clear
ListBox1.ColumnCount = 15 'nb de colonne
ListBox1.ColumnWidths = "50;30;80;15;90;70;30;15;15;20;20;20;20;20"
ListBox1.FontSize = 10
'ListBox1.ColumnHeads = True
ListBox1.BackColor = &HFFFF80 'font de la liste boxe
ListBox1.TextAlign = fmTextAlignCenter
derniereligne = Sheets("feuil2").Range("A4").End(xlDown).Row 'derniere ligne occupee dans colonne A
For lignedebut = 4 To derniereligne 'on test le contenu des combobox
If ComboBox24.Value <> "" Then Cu1 = ComboBox24.Value Else Cu1 = Sheets("feuil2").Cells(lignedebut, 2)
If ComboBox6.Value <> "" Then Cu2 = ComboBox6.Value Else Cu2 = Sheets("feuil2").Cells(lignedebut, 1)
If ComboBox5.Value <> "" Then Cu3 = ComboBox5.Value Else Cu3 = Sheets("feuil2").Cells(lignedebut, 4)
If ComboBox26.Value <> "" Then Cu4 = ComboBox26.Value Else Cu4 = Sheets("feuil2").Cells(lignedebut, 3)
If ComboBox14.Value <> "" Then Cu5 = ComboBox14.Value Else Cu5 = Sheets("feuil2").Cells(lignedebut, 20)
If ComboBox15.Value <> "" Then Cu6 = ComboBox15.Value Else Cu6 = Sheets("feuil2").Cells(lignedebut, 21)
If ComboBox16.Value <> "" Then cu7 = ComboBox16.Value Else cu7 = Sheets("feuil2").Cells(lignedebut, 22)
If ComboBox17.Value <> "" Then Cu8 = ComboBox17.Value Else Cu8 = Sheets("feuil2").Cells(lignedebut, 19)
If ComboBox23.Value <> "" Then Cu9 = ComboBox23.Value Else Cu9 = Sheets("feuil2").Cells(lignedebut, 9)
If ComboBox22.Value <> "" Then Cu10 = ComboBox22.Value Else Cu10 = Sheets("feuil2").Cells(lignedebut, 11)
If ComboBox19.Value <> "" Then Cu11 = ComboBox19.Value Else Cu11 = Sheets("feuil2").Cells(lignedebut, 10)
If ComboBox9.Value <> "" Then Cu12 = ComboBox9.Value Else Cu12 = Sheets("feuil2").Cells(lignedebut, 16)
If ComboBox8.Value <> "" Then Cu13 = ComboBox8.Value Else Cu13 = Sheets("feuil2").Cells(lignedebut, 17)
'test final avec toute les conditon imbriquee
'affichage dans listbox en multicolonne
If Sheets("feuil2").Cells(lignedebut, 2) = Cu1 And Sheets("feuil2").Cells(lignedebut, 1) = Cu2 And Sheets("feuil2").Cells(lignedebut, 4) = Cu3 And Sheets("feuil2").Cells(lignedebut, 3) = Cu4 And Sheets("feuil2").Cells(lignedebut, 20) = Cu5 And Sheets("feuil2").Cells(lignedebut, 21) = Cu6 And Sheets("feuil2").Cells(lignedebut, 22) = cu7 And Sheets("feuil2").Cells(lignedebut, 19) = Cu8 Then
'And Sheets("feuil2").Cells(lignedebut, 20) = Cu5 And Sheets("feuil2").Cells(lignedebut, 21) = Cu6 And Sheets("feuil2").Cells(lignedebut, 22) = Cu7 And Sheets("feuil2").Cells(lignedebut, 19) = Cu8
ListBox1.AddItem
ListBox1.Column(0, j) = Sheets("feuil2").Cells(lignedebut, 2).Value
ListBox1.Column(1, j) = Sheets("feuil2").Cells(lignedebut, 1).Value
ListBox1.Column(2, j) = Sheets("feuil2").Cells(lignedebut, 4).Value
ListBox1.Column(3, j) = Sheets("feuil2").Cells(lignedebut, 3).Value
ListBox1.Column(4, j) = Sheets("feuil2").Cells(lignedebut, 20).Value
ListBox1.Column(5, j) = Sheets("feuil2").Cells(lignedebut, 21).Value
ListBox1.Column(6, j) = Sheets("feuil2").Cells(lignedebut, 22).Value
ListBox1.Column(7, j) = Sheets("feuil2").Cells(lignedebut, 19).Value
ListBox1.Column(8, j) = Sheets("feuil2").Cells(lignedebut, 9).Value
ListBox1.Column(9, j) = Sheets("feuil2").Cells(lignedebut, 11).Value
ICI 'ListBox1.Column(10, j) = Sheets("feuil2").Cells(lignedebut, 10).Value
'ListBox1.Column(11, j) = Sheets("feuil2").Cells(lignedebut, 16).Value
'ListBox1.Column(12, j) = Sheets("feuil2").Cells(lignedebut, 17).Value
.............. |
Partager