Private Sub CommandButtonValider_Click()
Dim DerLig As Long
Call verifdoublon(code)
Cancel = code
If Me.ComboBoxClient1 = "" Then
MsgBox "Veuillez selectionner un client!"
Me.ComboBoxClient1.SetFocus
Exit Sub
End If
If Me.TextBoxModele = "" Then
MsgBox "Veuillez saisir un numéro de modèle!"
Me.TextBoxModele.SetFocus
Exit Sub
End If
Me.ComboBoxClient1 = Me.ComboBoxClient1
Me.TextBoxModele = UCase(Replace(Me.TextBoxModele, "#", "")) ' <--- Ligne modifiée
Me.LabelNumeroclient1 = UCase(Me.LabelNumeroclient1)
With Worksheets("MODELES")
DerLig = .Range("A65536").End(xlUp).Row + 1
Range("A" & DerLig).Select
Sheets("MODELES").Range("A" & DerLig) = Me.ComboBoxClient1 & Val(Me.LabelNumeroclient1) & Me.TextBoxModele & Me.ComboBoxSpecificite & Me.ComboBoxParticularite
Sheets("MODELES").Range("B" & DerLig) = Val(Me.LabelNumeroclient1)
Sheets("MODELES").Range("C" & DerLig) = Me.ComboBoxClient1
Sheets("MODELES").Range("D" & DerLig) = Me.TextBoxModele
Sheets("MODELES").Range("E" & DerLig) = Me.ComboBoxSpecificite
Sheets("MODELES").Range("F" & DerLig) = Me.ComboBoxParticularite
Sheets("MODELES").Range("G" & DerLig) = Me.TextBoxCommentaire
Sheets("MODELES").Range("H" & DerLig) = Date
Sheets("MODELES").Range("J" & DerLig) = Me.ChoixPhoto
End With
Sheets("MODELES").Select
Range("A1:J65536").Select
selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Sheets("ACCUEIL").Select
Unload USFNouveauModele
Unload USFBase
USFBase.Show
End Sub