combobox avec critére de selectione qui ouvre un autre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

yannekent

XLDnaute Nouveau
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
193
Réponses
4
Affichages
177
Réponses
10
Affichages
281
Réponses
7
Affichages
921
Réponses
5
Affichages
182
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
  • Question Question
Microsoft 365 Probléme VBA
Réponses
8
Affichages
317
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
649
Réponses
3
Affichages
665
Retour