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 Feuil2.Range(ctrl.Tag & ligne) = ctrl.Value
Next
Unload Me
End If
End Sub
Ça y est nickel ! Je vais déjà me coucher moins bête ce soir
Maintenant l'histoire des Majuscule, Prénom et date
Quand j'ajoute cette ligne :
Feuil2.Range(ctrl.Tag & ligne) = IIf(Left(ctrl, 6) = "TxtDat" Or Left(ctrl, 6) = "TxtNai", CDate(ctrl.Value), ctrl.Value)
Ca me fait erreur de compilation For sans Next alors qu'il y a bien le Next en dessous.