regardez dans le fichier

[steven]

:unsure: 🙂

 

[steven]

steven écrit:

:unsure: 🙂

[file name=Classeur1_20060523165504.zip size=9476]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20060523165504.zip[/file]

 

[ThomasR]

Bonsoir,

un petit message n'aurrait pas été du lux!!!

pour ce que tu demandes

ceci est un exemple (ou une gestion d'erreur est à prevoir)

J'aime faire participer les demandeurs

Private Sub UserForm_Click()
With Sheets(1)
l = .Range('D65536').End(xlUp).Row
'.Range('D:').Text = Format(Date, 'jj/mm/aa')
.Range('D' & l + 1).Value = Left(TextBox1.Value, 2)
.Range('A' & l + 1).Value = Format(TextBox1.Value, 'yyyy')
.Range('B' & l + 1).Value = jourmois(TextBox1.Value)
End With
TextBox1.Value = ''
End Sub

Function jourmois(saisie As Date) As String

Select Case DatePart('m', saisie, vbMonday, vbFirstFourDays)
Case 1
jourmois = 'Janvier'
Case 2
jourmois = 'Février'
Case 3
jourmois = 'Mars'
Case 4
jourmois = 'Avril'
Case 5
jourmois = 'Mais'
Case 6
jourmois = 'Juin'
Case 7
jourmois = 'Juillet'
Case 8
jourmois = 'Août'
Case 9
jourmois = 'Septembre'
Case 10
jourmois = 'Octobre'
Case 11
jourmois = 'Novembre'
Case 12
jourmois = 'Decembre'
End Select
End Function