combobox avec critére de selectione qui ouvre un autre

[yannekent]

Je viens de créer un macro qui me permet de faire des factures enfin je travaille plus de 2000 reférences fournisseur et un centaine de fournisseur .j ai pu réaliser l'application de tel sorte que si vous selectionne le fournisseur les champs se remplisse automatiquement mais ils se trouve qu'un founisseur a plusieur reférence il faut donc utiliser 2 combox 1 au compte du fournisseur et l 'autre pour la reférence fournisseur .lorsqu'on sélectionne le fournisseur automatiquement toutes ces refe s'affiches dans le deuxieme et aliment les autre champs....retrouver le fichier attaché la macro besoibnn d'aide j'ai perdu bcp de connaissance en vb....juste besoin des code pour afficher les données dans les deux combobox.

Private Sub ComboBox1_Change()

Dim AllCells As Range, Cell As Range
Dim NoDupes As New Collection
Dim i As Integer, j As Integer
Dim Swap1, Swap2, Item

' Set AllCells = Worksheets("base").Range("A1", Range("I5539").End(xlDown).Address)

On Error Resume Next
For Each Cell In AllCells
NoDupes.Add Cell.value, CStr(Cell.value)

Next Cell

For i = 1 To NoDupes.Count - 1
For j = i + 1 To NoDupes.Count
If NoDupes(i) > NoDupes(j) Then
Swap1 = NoDupes(i)
Swap2 = NoDupes(j)
NoDupes.Add Swap1, before:=j
NoDupes.Add Swap2, before:=i
NoDupes.Remove i + 1
NoDupes.Remove j + 1
End If
Next j
Next i


End Sub
Private Sub ComboBox2_Enter()

If combox1.value =



End Sub
Private Sub ComboBox2_Change()


End Sub

 

[excalibur]

Re : combobox avec critére de selectione qui ouvre un autre

bonjour yannekent & au revoir yannekent
ta reponse dans la charte du forum