Bonjour,
une proposition pour la première question : en re numérotant les labels comme les textbox voici un code pour le test de remplissage avec indication du champ manquant éventuellement, puis une boucle pour remplir votre tableau :
Private Sub CommandButton1_Click()
Dim dl As Long, I
For I = 1 To 5
If Controls("TextBox" & I).Text = "" Then
MsgBox ("Le champ " & Controls("Label" & I).Caption & " n'est pas renseigné !")
Exit Sub
End If
Next I
dl = Sheets("Personnel").Cells(Rows.Count, 1).End(xlUp).Row + 1
For I = 1 To 5
Sheets("Personnel").Cells(dl, 1) = Controls("TextBox" & I).Text
Next I
End Sub
Le fichier avec les modifs :
Votre tableau gagnerait à être mis sous forme structuré ce qui facilite le travail dessus car il n'y a plus "besoin" de connaitre sa position sur la feuille... Un fichier exemple :
Sinon pour une gestion de données en tableau avec ajout / modification / suppression et consultation galopin_01 en a fait un : USerForm CRUD Tableaux Structuré (excel-pratique.com)
@ bientôt
LouReeD