Désolé de vous importuner
mais je n'arrive pas voila ce que j'ai mis suite a vos solutions. j'ai surement du loupé des choses suite a mes lacunes en VBA.
Private Sub ONGLET_Change()
If ONGLET.ListIndex > -1 Then Exit Sub
With Sheets(ONGLET.List(ONGLET.ListIndex))
DL = Cells(Application.Rows.Count, "A").End(xlUp).Row + 1 'première ligne vide de la colonne A (colonne à adapter)
.Cells(DL, "A").Value = TextBox8.Value
.Cells(DL, "B").Value = TextBox1.Value
.Cells(DL, "C").Value = TextBox2.Value
.Cells(DL, "E").Value = TextBox4.Value
.Cells(DL, "F").Value = TextBox5.Value
.Cells(DL, "G").Value = TextBox6.Value
.Cells(DL, "H").Value = TextBox7.Value
End With
end sub
Toujours pareil lorsque j'appuis sur ajouter pour saisir mon tableau la feuille acceuil recoit les infos et non la feuille selectionné via combo
je seche completement .....