Bonjour à tous,
Je bloque sur un point et celà fait trop longtemsp donc je me décide à poster.
Voilà j'ai un formulaire à remplir avec une macro. Ce formulaire va remplir la feuille 1 , a la première ligne. Mais quand je relance cette macro, les nouvelles infos remplacent les anciennes. Je joins mon code et qui pourrait me donner la formule pour aller à la ligne suivante vide...
Merci d'avance !!!
le code :
Private Sub CommandButton1_Click()
Unload UserForm1
Sheets("feuil1").Range("A1").Value = ComboBox1.Value
Sheets("feuil1").Range("B1").Value = TextBox8.Value
Sheets("feuil1").Range("C1").Value = ComboBox2.Value
Sheets("feuil1").Range("D1").Value = TextBox3.Value
Sheets("feuil1").Range("E1").Value = TextBox4.Value
Sheets("feuil1").Range("F1").Value = TextBox5.Value
Sheets("feuil1").Range("G1").Value = TextBox6.Value
Sheets("feuil1").Range("H1").Value = TextBox7.Value
Sheets("feuil1").Range("I1").Value = ComboBox3.Value
Sheets("Feuil1").Select
Range("a65536").End(xlUp).Offset(1, 0).Select
If Selection.Row = 65536 Then
ActiveWorkbook.Sheets.Add after:=Worksheets(Workssheets.Count)
End If
ActiveCell.Offset(1, 0) = ComboBox1.Value
End Sub
Merci encore!!!!
Je bloque sur un point et celà fait trop longtemsp donc je me décide à poster.
Voilà j'ai un formulaire à remplir avec une macro. Ce formulaire va remplir la feuille 1 , a la première ligne. Mais quand je relance cette macro, les nouvelles infos remplacent les anciennes. Je joins mon code et qui pourrait me donner la formule pour aller à la ligne suivante vide...
Merci d'avance !!!
le code :
Private Sub CommandButton1_Click()
Unload UserForm1
Sheets("feuil1").Range("A1").Value = ComboBox1.Value
Sheets("feuil1").Range("B1").Value = TextBox8.Value
Sheets("feuil1").Range("C1").Value = ComboBox2.Value
Sheets("feuil1").Range("D1").Value = TextBox3.Value
Sheets("feuil1").Range("E1").Value = TextBox4.Value
Sheets("feuil1").Range("F1").Value = TextBox5.Value
Sheets("feuil1").Range("G1").Value = TextBox6.Value
Sheets("feuil1").Range("H1").Value = TextBox7.Value
Sheets("feuil1").Range("I1").Value = ComboBox3.Value
Sheets("Feuil1").Select
Range("a65536").End(xlUp).Offset(1, 0).Select
If Selection.Row = 65536 Then
ActiveWorkbook.Sheets.Add after:=Worksheets(Workssheets.Count)
End If
ActiveCell.Offset(1, 0) = ComboBox1.Value
End Sub
Merci encore!!!!