Insérer dans le code feuille VBA

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

Cliquez pour agrandir...