Problème dans un ensemble de ComboBox
Bonjour,
j'ai un petit problème dans l'userform et je vais essayer d' expliquer le nécessaire ci-dessous:
l'userform contient un ensemble de ComboBox et chaque ComboBox porté des données personnalisé le problème est quand il ya un nom en double le ComboBox il suffit d'insérer un seul nom bien que je veux inclure tous l'items.
Observation:
j'utilisé le code suivant pour personnaliser les données dans les ComboBox:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
| Private Sub UserForm_Initialize()
Set ws = Sheets("Stocks")
lrw = ws.Cells(Rows.Count, "B").End(xlUp).Row
Ary = ws.Range("B12:B" & lrw).Value
ListCmb "Boitie", "ComboBox7"
ListCmb "Carte Mére", "ComboBox8"
ListCmb "Processeur", "ComboBox9"
ListCmb "Ventilateur", "ComboBox10"
ListCmb "Disque Dur", "ComboBox11"
ListCmb "Graveur", "ComboBox12"
ListCmb "Ram", "ComboBox13"
ListCmb "Carte graphique", "ComboBox14"
ListCmb "Ecran", "ComboBox15"
End Sub |
aidez mois SVP
