Private Sub CmdSaisieUserValider_Click()
If Me.TxtNUser.Text = "" Then MsgBox "Vous devez entrer le nom de l'utilisateur.": Me.TxtNUser.SetFocus: Exit Sub
If Me.TxtPUser.Text = "" Then MsgBox "Vous devez entrer le prénom de l'utilisateur.": Me.TxtPUser.SetFocus: Exit Sub
Userconverti = UCase(Me.TxtNUser.Text) & " " & UCase(Me.TxtPUser.Text)
Set c = Feuil2.Range("A:J").Find("*", , , , xlByRows, xlPrevious)
If Not c Is Nothing Then
ligne = c.Row + 1
Range("A" & ligne).End(xlUp).Offset(1, 0).Value = Userconverti
' Range("H" & ligne) = UCase(Me.TxtNUser.Text)
For Each ctrl In Me.Controls
If ctrl.Tag <> "" Then
With Feuil2.Range(ctrl.Tag & ligne)
Select Case ctrl.Tag
Case "H", "I", "O", "R", "U", "X", "AA", "AD":
.Value = IIf(ctrl.Value <> "" And IsDate(ctrl.Value), CDate(ctrl.Value), "")
Case "B", "C": .Value = ctrl.Text
Case "N", "Q", "T", "W", "Z", "AC": .Value = StrConv(ctrl.Value, vbProperCase)
Case Else: .Value = ctrl.Value
End Select
End With
End If
Next
Unload Me
End If
End Sub