Remplis combobox avec des mois

[simraill]

Bonjour à tous,

J'ai un problème que je n'arrive pas à solutionner :

Je voudrais remplir une combobox avec le nom des mois présent dans la colone U, bien évident il me faudrait qu'un seul September, un seul October etc...
Sachant que si on créé une nouvelle comande en février, la colonne U de cette nouvelle commande affichera February 2013, et qu'il faudra donc actualiser la combobox.

Personnellement je pensais passer par un tableaux dynamique et le redimensionner à chaque fois qu'une commande avec un nouveau nom de mois est créée, et utiliser ce tableau pour remplir ma combobox mais je n'y arrive pas...

Voilà en espérant avoir été clair et précis, j'attends vos suggestion avec impatiance.

Simraill

Edit : Si je met pas le fichier vous allez pas comprendre >< !!

 

[simraill]

Re : Remplis combobox avec des mois

Bon je me réponds à moi-même,

j'ai réussi à remplir mon tableau grâce à ce code :

Sub inti_tab()
    Dim i As Integer, j As Integer
    Dim month_name As String
    Dim pres As Boolean
    
    ReDim tab_month(3)
    tab_month(0) = " September 2012"
    tab_month(1) = " October 2012"
    tab_month(2) = " November 2012"
    tab_month(3) = " December 2012"

    For i = 10 To ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row
        pres = False
        month_name = ActiveSheet.Range("u" & i).Value
        For j = 0 To UBound(tab_month)
            If tab_month(j) = month_name Then pres = True
        Next j
        If pres = False Then
            ReDim Preserve tab_month(UBound(tab_month) + 1)
            tab_month(UBound(tab_month)) = month_name
        End If
    Next i
    
    For j = 0 To UBound(tab_month)
        ActiveSheet.Shapes("Combo1").ListFillRange = tab_month(j)
    Next j

End Sub

Mais je n'arrive pas à remplir le combobox avec le tableau... j'ai une erreur au niveau des dernière lignes...