Scribd
Upload
6 views2 pages

Excel VBA Form Management Functions

The document contains VBA code for a user form that interacts with a database (BD) to manage data entries. It includes subroutines for adding, modifying, searching, and deleting records based on user input. The form updates specific cells in the database based on the actions triggered by button clicks.

Uploaded by

Smart Souk
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
6 views2 pages

Excel VBA Form Management Functions

The document contains VBA code for a user form that interacts with a database (BD) to manage data entries. It includes subroutines for adding, modifying, searching, and deleting records based on user input. The form updates specific cells in the database based on the actions triggered by button clicks.

Uploaded by

Smart Souk
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd

Private Sub BT_Age_Click() [Link](7, "C").

Activate
a = [Link](1, "E") End Sub
[Link](7, "C") = [Link](a, "A")
[Link](9, "C") = [Link](a, "B") Private Sub BT_Jeune_Click()
[Link](11, "C") = [Link](a, "C") a = [Link](2, "E")
[Link](13, "C") = [Link](a, "D") [Link](7, "C") = [Link](a, "A")
[Link](15, "C") = [Link](a, "E") [Link](9, "C") = [Link](a, "B")
End Sub [Link](11, "C") = [Link](a, "C")
[Link](13, "C") = [Link](a, "D")
Private Sub BT_Ajouter_Click() [Link](15, "C") = [Link](a, "E")
Xligne = [Link](200, "A").End(xlUp).Row + 1 End Sub
[Link](Xligne, "A") = [Link](7, "C")
[Link](Xligne, "B") = [Link](9, "C") Private Sub BT_Modifier_Click()
[Link](Xligne, "C") = [Link](11, "C") Xligne = [Link](2, "H")
[Link](Xligne, "D") = [Link](13, "C") [Link](Xligne, "A") = [Link](7, "C")
[Link](Xligne, "E") = [Link](15, "C") [Link](Xligne, "B") = [Link](9, "C")
[Link](7, "C") = "" [Link](Xligne, "C") = [Link](11, "C")
[Link](9, "C") = "" [Link](Xligne, "D") = [Link](13, "C")
[Link](11, "C") = "" [Link](Xligne, "E") = [Link](15, "C")
[Link](13, "C") = "" nom = [Link](Xligne, "B")
[Link](15, "C") = ""
End Sub

Private Sub BT_Rechercher_Click()


On Error Resume Next
[Link](2, "G") = [Link](18, "C")
Xligne = [Link](2, "H")
[Link](7, "C") = [Link](Xligne, "A")
[Link](9, "C") = [Link](Xligne, "B")
[Link](11, "C") = [Link](Xligne, "C")
[Link](13, "C") = [Link](Xligne, "D")
[Link](15, "C") = [Link](Xligne, "E")
End Sub

Private Sub BT_Supprimer_Click()


Xligne = [Link](2, "H")
[Link](Xligne).Delete
End Sub

You might also like