Private Sub CommandButton1_Click()
Dim strNom As String
With Me
' Je suppose que tu met Prénom et Nom ds la même cellule
' Si un ou l'autre des champs n'est pas remplit alors
If .txbPrenom.Value = Empty Or .txbNom.Value = Empty Then
' Message sur un au l'autre ou les deux sera envoyé a l'utilisateur en cas d'omission
' Le caractère '_' sert a signaler au code qu'il y a continuité de la ligne de commande
' La commande vbLf sert a ajouter un retour de ligne
' La commande Space sert a insérer un nombre d'espace souhaité
If .txbNom.Value = Empty Then MsgBox 'Vous devez complèter le Champs d'information du' _
& vbLf & vbLf & Space(30) & 'Prénom'
If .txbNom.Value = Empty Then MsgBox 'Vous devez complèter le Champs d'information du' _
& vbLf & vbLf & Space(30) & 'Nom'
Exit Sub
Else
strNom = .txbPrenom.Value & Chr(32) & .txbNom.Value
End If
End With
ThisWorkbook.Sheets('Listing personnel').Cells(Cells(65536, 2).End(xlUp).Row + 1, 2).Value = strNom
End Sub