Incrémentation de lignes via formulaire sans écraser les données déjà remplies

Re : Incrémentation de lignes via formulaire sans écraser les données déjà remplies

Bonsoir,

Ton formulaire ne s'ouvrant pas chez moi sous 2007,

une piste :
'Détermination de la prochaine ligne
LigneSuivante = Application.WorksheetFunction.CountA(Range("A:A")) + 1
'Transfert du numéro d'inventaire
Cells(LigneSuivante, 1) = TextBoxDossier.Text

Re : Incrémentation de lignes via formulaire sans écraser les données déjà remplies

Merci pour la réponse mais j'avoue que c'est un peu du Chinois. Voilà le rapport tel qu'écrit actuellement (en rouge la partie renvoi à la ligne):



Private Sub CommandButton1_Click()
Application.ScreenUpdating = False


Dim derligne
Dim pos
Sheets("Comptes-rendus").Select
derligne = Sheets(1).Range("A65000").End(xlUp).Row + 1

If ComboBox2.Value = "" Then
Label30.Visible = True
Exit Sub
End If

Range("A" & derligne).Value = ComboBox2.Value
Range("c" & derligne).Value = ComboBox3.Value
Range("d" & derligne).Value = CheckBox1.Value
Range("e" & derligne).Value = ComboBox1.Value
Range("f" & derligne).Value = TextBox2.Value
Range("g" & derligne).Value = ComboBox4.Value
Range("h" & derligne).Value = TextBox1.Value
Range("i" & derligne).Value = ComboBox5.Value
Range("j" & derligne).Value = ComboBox6.Value
Range("k" & derligne).Value = CheckBox2.Value
Range("l" & derligne).Value = TextBox14.Value
Range("m" & derligne).Value = ComboBox10.Value
Range("n" & derligne).Value = ComboBox7.Value
Range("o" & derligne).Value = CheckBox3.Value
Range("p" & derligne).Value = TextBox15.Value
Range("q" & derligne).Value = ComboBox11.Value
Range("r" & derligne).Value = ComboBox8.Value
Range("s" & derligne).Value = ComboBox9.Value
Range("t" & derligne).Value = DTPicker2.Value
Range("u" & derligne).Value = TextBox13.Value
Range("b" & derligne).Value = DTPicker1.Value

TextBox1.Value = ""
TextBox2.Value = ""
TextBox14.Value = ""
TextBox15.Value = ""
DTPicker1.Value = ""
DTPicker2.Value = ""
ComboBox2.Value = ""
ComboBox3.Value = ""
CheckBox1.Value = ""
CheckBox2.Value = ""
ComboBox1.Value = ""
ComboBox4.Value = ""
ComboBox5.Value = ""
ComboBox6.Value = ""
ComboBox10.Value = ""
ComboBox7.Value = ""
CheckBox3.Value = ""
ComboBox11.Value = ""
ComboBox8.Value = ""
ComboBox9.Value = ""
TextBox13.Value = ""
Label30.Visible = False


Application.ScreenUpdating = True
End Sub

Private Sub CommandButton2_Click()
Rapport.Hide
End Sub

Re : Incrémentation de lignes via formulaire sans écraser les données déjà remplies

derligne = Sheets("Comptes-rendus").Range("A65000").End(xlUp).Row + 1

si je ne m'abuse, ton sheets (1) concerne la feuille nommée Acceuil

la compte rendu serait au moins (3)