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 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99
| Private Sub UserForm_Initialize()
Dim Ligne As Long
Dim I As Integer
Dim ws As Worksheet
Set ws = Worksheets("DATA T16")
If Me.ComboBox1.ListIndex = -1 Then Exit Sub
Ligne = Me.ComboBox1.ListIndex + 2
ComboBox2 = ws.Cells(Ligne, "B")
For K = 1 To 16
Me.Controls("ComboBox" & K) = ws.Cells(Ligne, K + 2)
Next K
For I = 1 To 8
Me.Controls("TextBox" & I) = ws.Cells(Ligne, I + 2)
Next I
Dim J As Long
ComboBox1.ColumnCount = 1 'Pour la liste déroulante Diamètre tube
ComboBox1.List() = Array("16", "19")
ComboBox2.ColumnCount = 1 'Pour la liste déroulante Volume remplissage
ComboBox2.List() = Array("15ml", "5ml")
ComboBox3.ColumnCount = 1 'Pour la liste déroulante Type de jus
ComboBox3.List() = Array("Blur/lisseur optique", "Non teinté", "Teinté")
ComboBox4.ColumnCount = 1 'Pour la liste déroulante Conditionnement jus
ComboBox4.List() = Array("fût", "cuve mobile")
ComboBox5.ColumnCount = 1 'Pour la liste déroulante Type de produit
ComboBox5.List() = Array("Tube+étui", "Tube+étui+cello")
ComboBox6.ColumnCount = 1 'Pour la liste déroulante Encaissage
ComboBox6.List() = Array("2 élévations de 3", "3 élévations de 2")
ComboBox7.ColumnCount = 1 'Pour la liste déroulante Distributeur tube
ComboBox7.List() = Array("TZS")
ComboBox8.ColumnCount = 1 'Pour la liste déroulante Outillage Distributeur
ComboBox8.List() = Array("D16-19")
ComboBox9.ColumnCount = 1 'Pour la liste déroulante Godets
ComboBox9.List() = Array("D16", "D16.2", "19", "D19.1")
ComboBox10.ColumnCount = 1 'Pour la liste déroulante Pièces de format remplisseuse
ComboBox10.List() = Array("Age specialist 15ml", "BB roll on 7ml", "Essentiel life cells 15ml", "Essentiel soin yeux 15ml", "Lisseur optique yeux 15ml", "D19", "Optimalist yeux 15ml", "Revitalift laser repair 15ml", "Revitalift magic blur 15ml", "Sublimist eraser 15ml", "Ultra lift yeux 15ml")
ComboBox11.ColumnCount = 1 'Pour la liste déroulante Groupe de dosage utilisé
ComboBox11.List() = Array("V>15ml avec becs coupants D11", "V<15ml avec becs coupants D11 BB OIL", "V>15ml avec becs coupants D29,5", "V<15ml avec becs raspirants D11")
ComboBox12.ColumnCount = 1 'Pour la liste déroulante Format étuyeuse
ComboBox12.List() = Array("F4 AB", "F1/F2b")
ComboBox13.ColumnCount = 1 'Pour la liste déroulante Format cello
ComboBox13.List() = Array("79Y", "79Yx123")
ComboBox14.ColumnCount = 1 'Pour la liste déroulante Programme cello
ComboBox14.List() = Array("By-Pass", "79y_Revitalift")
ComboBox15.ColumnCount = 1 'Pour la liste déroulante Guide convoyeur
ComboBox15.List() = Array("Courbe 123", "Courbe 127", "Courbe 143")
ComboBox16.ColumnCount = 1 'Pour la liste déroulante Ligne
ComboBox16.List() = Array("T16")
Set ws = sheets("DATA T16") 'Correspond au nom de votre onglet dans le fichier Excel
With Me.ComboBox1
For J = 2 To ws.Range("A" & Rows.Count).End(xlUp).Row
.AddItem ws.Range("A" & J)
Next J
End With
For K = 1 To 16
Me.Controls("ComboBox" & K).Visible = True
Next K
For I = 1 To 8
Me.Controls("TextBox" & I).Visible = True
Next I
End Sub |
Partager