Private Sub UserForm_Initialize()
Dim cell As Range
With Sheets("Listederoulante")
For Each cell In .Range("A2:A" & .Range("A100").End(xlUp).Row)
Me.ComboBoxsecteur.AddItem (cell)
Next
End With
Label4 = Date
Sheets("Basededonnée").Activate
End Sub
Private Sub ComboBoxsecteur_Change()
Me.LabelCode.Caption = Application.Max(Range(Sheets("Listederoulante").Cells(2, Me.ComboBoxsecteur.ListIndex + 3), Sheets("Listederoulante").Cells(Sheets("Listederoulante").Cells(100, Me.ComboBoxsecteur.ListIndex + 3).End(xlUp).Row, Me.ComboBoxsecteur.ListIndex + 3)))
End Sub
Private Sub btnajouter_Click()
Dim DerligneBDD As Long
Dim DerligneListe As Long
DerligneBasededonnée = Sheets("Basededonnée").Range("a65536").End(xlUp).Row + 1
Sheets("Basededonnée").Cells(DerligneBasededonnée, 1) = Me.ComboBoxsecteur
Sheets("Basededonnée").Cells(DerligneBasededonnée, 2) = CLng(Me.LabelCode.Caption) + 1
Sheets("Basededonnée").Cells(DerligneBasededonnée, 3) = Me.cbocommune
Sheets("Basededonnée").Cells(DerligneBasededonnée, 4) = Me.cbosyndicat
Sheets("Basededonnée").Cells(DerligneBasededonnée, 5) = Me.TextBox_reservoir
DerligneListe = Sheets("Listederoulante").Cells(1, Me.ComboBoxsecteur.ListIndex + 3).End(xlDown).Row + 1
Sheets("Listederoulante").Cells(DerligneListe, Me.ComboBoxsecteur.ListIndex + 3) = CLng(Me.LabelCode.Caption) + 1
MsgBox " données transférées dans la base de données"
Unload Me
frmajoutdonnée.Show
End Sub