Hervé , c'est encore Olivier .
j'ai un probleme avec le code que tu m'as fais . Je l'ai modifier pour l'adapter à mon projet , et il y a un truc que je ne comprend pas .
il envoit bien les données dans les bon mois , mais quand j'entre une nouvelle entrée , il m'efface celle d'avant . ou il me l'ecrase et ne me les met pas a la suite les un les autres .
sais tu me dire pourquois ? As tu une solution pour moi ?
aussi , les donnée doivent etres entrée a partir de ma ligne 6 ( j'ai des lignes vide au dessus ) la modif que j'ai fait est bonne ( &5 + 1) ?
Dim l As Integer
Dim mois As String
'on teste la combobox et la textbox , si ils sont vides on sort de la macro
'ainsi on s'assure que les informations sont bien présentes
If ComboBox1 = "" Or jour.Value = "" Then MsgBox "Merci de compléter les informations": Exit Sub
'on renvoi vers la feuille correspondant au mois de la combobox l'information de la textbox
mois = MonthName(Month(jour.Value))
With Sheets(mois)
l = .Range("a65536").End(xlUp).Row
.Range("A" & 5 + 1) = Textbox1
.Range("B" & 5 + 1) = Combobox1
.Range("C" & 5 + 1) = ComboBox2
.Range("D" & 5 + 1) = Textbox2
.Range("G" & 5 + 1) = Textbox3
End With
Merci Hervé