Bonjour
Je me permet d'apporter une légère contribution.
Pour faire plus professionnel, il est possible de cacher Excel
Private Sub Workbook_Open()
' à l'ouverture du fichier on lance le USF
Application.Visible = False
Formulaire.Show
End Sub
Et de le réafficher à la fin
Private Sub CommandButton1_Click()
If TextBox5.Value <> "" And TextBox2.Value <> "" Then
TextBox6.Value = Int(CDbl(TextBox5.Value) / CDbl(TextBox2.Value))
If CDbl(TextBox6.Value) >= 35000 Then MsgBox "Declaration GEMS": Exit Sub
End If
' on temporise afin d'afficher la valeur dans la textebox6
Application.Wait (Now + TimeValue("0:00:01"))
' on dimensionne une variable Tableau structuré
Dim MonTab As ListObject
' on dimensionne une variable Ligne de tableau structuré
Dim lRow As ListRow
' on attribue à la variable tableau le premier tableau de la feuille Formulaire
Set MonTab = Sheets("BDD").ListObjects(1)
' avec ce tableau
With MonTab
' on attribue à la variable ligne, la ligne "nouvelle ligne" que l'on crée
Set lRow = .ListRows.Add()
' avec cette ligne
With lRow
' on crée une boucle de 1 à 37 pour remplir les 3 colonnes avec les textbox adéquate
For I = 1 To 6
.Range.Cells(I) = Controls("TextBox" & I).Value
Next I
' on a fini de jouer avec la ligne
End With
' on a fini de jouer avec le tableau
End With
' une fois copiées, les données sont effacées
For I = 1 To 6
Controls("TextBox" & I).Value = ""
Next
Application.Visible = True
End Sub
Bonne journée