Private Sub UserForm_Initialize()
'Remplissage automatique des labels
Dim X As Byte
For X = 1 To 21
Controls("Label" & X).Caption = Sheets("EAU").Range("A1").Offset(0, X - 1).Value
Next X
End Sub
Private Sub CommandButton1_Click()
Dim MaLigne As String
Dim Y As Byte
MaLigne = Sheets("EAU").Range("A" & Rows.Count).End(xlUp).Row + 1
Dim MaLigneRemplie As String
MaLigneRemplie = Sheets("EAU").Range("A" & Rows.Count).End(xlUp).Row
'Envoi donnees vers base de donnees
With Sheets("EAU")
For Y = 1 To 21
.Range("A" & MaLigne).Offset(0, Y - 1) = CDate(Me.Controls("TextBox" & Y))
Next Y
End With
End Sub