Liste triée dans Combobox

Bonsoir à tous,

Je souhaite insérer sur mon UserForm un Combobox Alimenté uniquement par les noms des

professeurs stagiaire c'est a dire le nom de ligne ou se trouve le mot "PEMS"

Merci d'avance pour vos aides

fichier c-joint simplifié espérant qu'il va éclaircir mon objectif

Bonjour,

à testter,

Private Sub UserForm_Initialize()
    Me.ComboBox1.Clear
    Set sh1 = Sheets("Feuil1")
    Set plg = sh1.Range("I3:I" & sh1.Cells(Rows.Count, 1).End(xlUp).Row)

    Set c = plg.Find("PEMS", LookIn:=xlValues)
    If Not c Is Nothing Then
      premier = c.Row
      i = 0
      Do
        With Me.ComboBox1
        .AddItem
        .List(i, 0) = sh1.Cells(c.Row, 1).Value
        End With

        Set c = plg.FindNext(c)
        i = i + 1

      Loop While Not c Is Nothing And c.Row <> premier
   End If
End Sub

Bonsoir i20100

impeccable c'est exactement ce que je veux

Merci infiniment, Bon Soirée