Ajouter une valeur dans une liste si elle n'existe pas deja

Private Sub CmbCréer_Click()
Sheets("Base").Unprotect Password:="050463"

' Je teste si le numéro de serie n'existe pas déja.
If Me.ComboSerie.ListIndex <> -1 Then
' si il existe , on ne peut pas le créer
MsgBox " On ne peut pas créer un systeme avec un numéro de série existant ", vbExclamation, "Erreur"
Exit Sub
End If


If Me.ComboSerie.Value = "" Then
MsgBox "Numéro de série manquant", vbExclamation, "Attention !!"
Exit Sub
ElseIf Me.TxtClient.Value = "" Then
MsgBox " Veuillez indiquez le numéro client", vbExclamation, "Attention !!"
Exit Sub
ElseIf Me.TxtName.Value = "" Then
MsgBox " Veuillez indiquez le nom du client", vbExclamation, "Attention !!"
Exit Sub
ElseIf Me.TxtAdresse.Value = "" Then
MsgBox " Veuillez indiquez l'adresse", vbExclamation, "Attention !!"
Exit Sub
ElseIf Me.TxtVille.Value = "" Then
MsgBox " Veuillez indiquez la ville", vbExclamation, "Attention !!"
Exit Sub
ElseIf Me.TxtPostal.Value = "" Then
MsgBox " Veuillez indiquez le code postal", vbExclamation, "Attention !!"
Exit Sub
ElseIf Me.TxtTelephone.Value = "" Then
MsgBox " Veuillez indiquez le numéro de téléphone", vbExclamation, "Attention !!"
Exit Sub
ElseIf Me.ComboGammes.Value = "" Then
MsgBox " Veuillez indiquez la gamme", vbExclamation, "Attention !!"
Exit Sub
ElseIf Me.ComboContrat.Value = "" Then
MsgBox " Veuillez indiquez le type de contrat", vbExclamation, "Attention !!"
Exit Sub
End If


' si tout est ok je transfère les données dans la feuille base sur la première ligne vide
With Sheets("Base")
Derligne = .Range("A65536").End(xlUp).Row + 1
.Cells(Derligne, 2) = Me.TxtClient
.Cells(Derligne, 3) = Me.TxtName
.Cells(Derligne, 13) = Me.ComboSerie
.Cells(Derligne, 4) = Me.TxtAdresse
.Cells(Derligne, 5) = Me.TxtVille
.Cells(Derligne, 6) = Me.TxtPostal
.Cells(Derligne, 7) = Me.TxtTelephone
.Cells(Derligne, 11) = Me.ComboGammes
.Cells(Derligne, 14) = Me.ComboContrat
.Cells(Derligne - 1, 1).AutoFill .Cells(Derligne - 1, 1).Resize(2)

Derligne = .Range("AA65536").End(xlUp).Row + 1
.Cells(Derligne, 27) = Me.ComboGammes

Me.ComboSerie = ""
' j'envoi un message
MsgBox "Création effectuée", vbInformation, "INFO"
End With

Sheets("Base").Protect Password:="050463"
End Sub

Cliquez pour agrandir...

Jean-Marcel à dit:

Bonjour


nota: le fonctionnement de ton userform est surprenant mais c'est toi qui vois

Code:

Private Sub CmbCréer_Click()
[/QUOTE]
Que puis je modifier pour que le fonctionnement de mon userform soit plus rationnel
Merci

Cliquez pour agrandir...

Jean-Marcel à dit:

Bonjour
Par exemple taper un numéro de série qui n'existe pas dans la base efface toutes les saisies effectuées dans l'userform.
Cela me parait surprenant.
de plus ton numéro de série n'est pas ajouté dans ta combo série.
il faudrait peut être faire comme pour la combogamme.

Cliquez pour agrandir...