Formulaire de saisie
r
Bonjour,
J'ai créé un formulaire de saisie pour un fichier d'une centaine d'adresses. Ce fichier est scindé en deux parties par une ligne vide. J'aimerais que chaque nouvelle donnée introduite via un bouton "Ajouter", soit insérer au-dessus de la ligne vide. Voici mon code :
Private Sub CMDNouveau_Click()
Sheets("BDD").Activate
Range("C15").Select
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
ActiveCell = txtPartenaires
ActiveCell.Offset(0, 1).Value = txtContact
ActiveCell.Offset(0, 2).Value = cboFonction
ActiveCell.Offset(0, 3).Value = txtAdresse
ActiveCell.Offset(0, 4).Value = txtCode_postal
MsgBox "Votre partenaires au nom de : " & ActiveCell & " " & txtContact & vbCrLf & " a bien été ajouté à votre base de données"
Sheets("BDD").Activate
End SubPouvez-vous svp me dire si c'est possible et si oui, comment procéder ?
Merci beaucoup de votre aide.
Relasi
Bonjour,
Merci de joindre un fichier pour une aide adaptée du forum.
Cdlt.