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

NicoMay

XLDnaute Nouveau
Bonjour à tous,

Sur le fichier joint, je cherche à compléter des informations commerciales à partir du remplissage d'un formulaire dans l'onglet accueil.

Une fois que le commercial a complété les informations, il valide et les données vont s'incrémenter sur l'onglet Comptes-rendus.

Tout fonctionne jusque là, sauf que je souhaiterais que chaque nouveau rapport vienne s'incrémenter sous la dernière ligne complétée dans l'onglet Comptes-rendus. Or pour le moment, à chaque fois que je valide, les nouvelles données viennent écraser les données de la ligne N°2. Je pensais avoir trouvé une formule qui fonctionne mais ça ne semble pas être le cas.

Pourriez-vous m'aider.

Merci d'avance.
 

Fichiers joints

st007

XLDnaute Accro
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
 

NicoMay

XLDnaute Nouveau
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
 

st007

XLDnaute Accro
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)
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas