Bonjour
Ci joint une modification de la macro.
J'ai rajouté une colonne Mois, on peut la supprimer par une extraction du mois de la colonne date
Private Sub CommandButton1_Click()
'Call controle
For n = 2 To Range('A1').End(xlDown).Row
If Cells(n, 1) = ComboBox1 And Cells(n, 2) + 1 > 2 Then
MsgBox ('total depassé')
Me.Hide
Exit Sub
End If
Next
'***********************************************************
'mois en cours
moisencours = TextBox4.Value
nbbillet = TextBox1.Value
nom = TextBox1.Value
colonnenom = 1
colonnemois = 6
For i = 2 To Range('A1').End(xlDown).Row
If Cells(i, colonnemois) = moisencours And Cells(i, colonnenom) = nom Then nb = nb + 1
Next i
If nb > 2 Then
MsgBox ('total depassé')
Me.Hide
Exit Sub
End If
'***********************************************************************************
'permet de copier le contenu de ComboBox1 dans la cellule aprés la derniere pleinne
Range('A1').End(xlDown).Offset(1, 0) = TextBox1.Value 'nom
Range('A1').End(xlDown).Offset(0, 1) = TextBox1.Value 'nb ticket
Range('A1').End(xlDown).Offset(0, 3) = TextBox3.Value & '/' & TextBox4.Value & '/' & TextBox2.Value ''date
Range('A1').End(xlDown).Offset(0, 2) = '=RC[-1]*1.5 & '' €''' 'somme remboursé
Range('A1').End(xlDown).Offset(0, 4) = '=R[-1]C+RC[-2]' 'total remboursement
Range('A1').End(xlDown).Offset(0, 6) = TextBox4.Value 'date mois
'Range('A1').End(xlDown).Offset(0, 3) = TextBox3.Value
End Sub