Nicolaroute
XLDnaute Nouveau
Bonjour à tous, et toutes.
Aujourd’hui, je me retrouve bloqué, apres avoir trié dans ma feuille "Articles" , les articles de son fournisseur avec un combobox1,
Je n'arrive pas à retrouver ces articles triés dans une autre combobox2.
Si je sélectionne la plage et lui donne un nom, je retrouve tous les articles dans mon combobox2.
j'ai essayé cette piste:
Voici le code que j'utilise :
Private Sub Bon_de_commande1_Initialize()
Quantite = Format(CDbl(Controls("quantite" & n).Value), "##,##0,00")
If Ref_Four <> "" Then ' combobox1
Dim Tab1() As Variant
With Sheets("Articles")
Tab1 = .Range("B1:B" & .Range("B1700").End(xlUp).Row).Value
End With
liste_ref.List = Tab1 'combobox2
End If
End Sub
Je vous remercie pour votre aide.
Aujourd’hui, je me retrouve bloqué, apres avoir trié dans ma feuille "Articles" , les articles de son fournisseur avec un combobox1,
Je n'arrive pas à retrouver ces articles triés dans une autre combobox2.
Si je sélectionne la plage et lui donne un nom, je retrouve tous les articles dans mon combobox2.
j'ai essayé cette piste:
Voici le code que j'utilise :
Private Sub Bon_de_commande1_Initialize()
Quantite = Format(CDbl(Controls("quantite" & n).Value), "##,##0,00")
If Ref_Four <> "" Then ' combobox1
Dim Tab1() As Variant
With Sheets("Articles")
Tab1 = .Range("B1:B" & .Range("B1700").End(xlUp).Row).Value
End With
liste_ref.List = Tab1 'combobox2
End If
End Sub
Je vous remercie pour votre aide.