Problème fonction listsort sur userform

Bonjour j utilise excel pour mac et je suis en train de crée un userform mais je suis débutant et je ne comprend pas ou il y'a un problème dans le code si quelqu un peu m aider merci

Option Explicit

Dim Ws As Worksheet

Dim NbLignes As Integer

'***** Correspond au programme du FORMULAIRE à son ouverture *****

Private Sub UserForm_Initialize()

Set Ws = Worksheets("BDD")

NbLignes = Ws.Range("A65536").End(xlUp).Row

With Me.ComboBox2

.ColumnCount = 2

.ColumnWidths = "-1;0"

End With

InitCombo1

Dim I As Integer

For I = 2 To Ws.Range("E65536").End(xlUp).Row

ComboBox3 = Ws.Range("E" & I)

If ComboBox3.ListIndex = -1 Then ComboBox3.AddItem Ws.Range("E" & I)

Next I

Me.ComboBox3.List = Listsort(Me.ComboBox3.List)

End Sub

Bonjour et bienvenue sur le forum

la fonction '' Listsort '' n'existe pas. Que voulais-tu obtenir ave elle ?

Bye !

Merci de ton aide voila j aimerai que la combo équipement soi en relation avec la combo désignation et que sa ma fiche dans les textbox les infos ( prix coef etc ) a partir d une feuille et pouvoir remplir un model de devis sur une autre feuille avec le bouton inséré

voici une capture

Bonsoir,

Option Compare Text
Private Sub UserForm_Initialize()
  Set f = Sheets("BD")
  Set champ = f.Range("A2:A" & f.[A65000].End(xlUp).Row)
  For Each c In champ
   If c <> "" Then Me.ListBox1.AddItem c
  Next c
  Me.ListBox1.List = ListSort(Me.ListBox1.List)
End Sub

Function ListSort(b)
  Call Tri(b, LBound(b), UBound(b))
  ListSort = b
End Function

Sub Tri(a, gauc, droi)          ' Quick sort
 If UBound(a, 2) = 9 Then p = 0 Else p = UBound(a, 2)
 ref = a((gauc + droi) \ 2, p)
 g = gauc: d = droi
 Do
     Do While a(g, p) < ref: g = g + 1: Loop
     Do While ref < a(d, p): d = d - 1: Loop
     If g <= d Then
       temp = a(g, p): a(g, p) = a(d, p): a(d, p) = temp
       g = g + 1: d = d - 1
     End If
 Loop While g <= d
 If g < droi Then Call Tri(a, g, droi)
 If gauc < d Then Call Tri(a, gauc, d)
End Sub

Ceuzin

je viens de voir la PJ ok mais a partir de la première combo il me faudrait choisir une deuxième info exemple : lot peinture pour première combo et que dans la deuxième combo sa me propose un choix lie au lot peinture et inséré c est deux info sur une feuille devis