[laurent45]

Bonsoir Laurent,

Pour ta première question :

Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To 12
    ComboBox4.AddItem NomMois(i)
Next i
Me.ComboBox4.Value = 'Mois ?'
End Sub

Pour la Fonction de nom de mois, tu peux utiliser MONTHNAME().
Chez moi avec Excel97, ça ne fonctionne pas, donc :

Public Function NomMois(NbMois As Integer) As String
    Select Case NbMois
    Case Is = 1
        NomMois = 'JANVIER'
    Case Is = 2
        NomMois = 'FEVRIER'
    Case Is = 3
        NomMois = 'MARS'
    Case Is = 4
        NomMois = 'AVRIL'
    Case Is = 5
        NomMois = 'MAI'
    Case Is = 6
        NomMois = 'JUIN'
    Case Is = 7
        NomMois = 'JUILLET'
    Case Is = 8
        NomMois = 'AOÛT'
    Case Is = 9
        NomMois = 'SEPTEMBRE'
    Case Is = 10
        NomMois = 'OCTOBRE'
    Case Is = 11
        NomMois = 'NOVEMBRE'
    Case Is = 12
        NomMois = 'DECEMBRE'
    End Select
End Function

Pour ta deuxième question, ça dépends des info que tu veux récupérer.
Merci de nous éclairer.

@+