UserForm Initialize

Bonjour,

J'ai trouvé ce code pour créer une liste sans doublons.

Private Sub UserForm_Initialize()
    Dim Cell As Range

    'Supprime les données existantes dans le ComboBox
    Me.ComboBox1.Clear

    'Boucle sur les cellules de la plage L2:L9232 pour
    'alimenter le ComboBox
    For Each Cell In Worksheets("données").Range("L2:L9232")
        Me.ComboBox1 = Cell
        'remplissage sans doublon
        If Me.ComboBox1.ListIndex = -1 Then _
            Me.ComboBox1.AddItem Cell
    Next Cell
End Sub

Le problème c'est que j'ai déjà un code qui utilise "Userform Initialize" et je suis perdu..

Comment dois je procéder, je n'ai pas réussi à compiler les deux codes.

Private Sub UserForm_Initialize()
    Dim aa As Variant, i&, fin&
    fin = Feuil1.Range("M65536").End(xlUp).Row
    aa = Feuil1.Range("M4:O" & fin)
    ComboBox3.List = aa
End Sub

Bonjour

Mets les 2 codes ensemble

Private Sub UserForm_Initialize()
Dim aa As Variant, i&, fin&

  fin = Feuil1.Range("M65536").End(xlUp).Row
  aa = Feuil1.Range("M4:O" & fin)
  ComboBox3.List = aa

Dim Cell As Range

  'Supprime les données existantes dans le ComboBox
  Me.ComboBox1.Clear

  'Boucle sur les cellules de la plage L2:L9232 pour
  'alimenter le ComboBox
  For Each Cell In Worksheets("données").Range("L2:L9232")
    Me.ComboBox1 = Cell
    'remplissage sans doublon
    If Me.ComboBox1.ListIndex = -1 Then _
      Me.ComboBox1.AddItem Cell
  Next Cell
End Sub

Ah oui effectivement, j'ai du me débrouiller comme un pied..

Merci,