Bonjour à tous

Dans mon USERFORM j'ai plusieurs textBox à renseigner.

La macro du TextBox ci-dessous fonctionne correctement , sauf quand je veux sortir: Erreur d'execution13, Incompatibilité de type, le débogage se trouve sur la ligne en rouge .

Ce TextBox est le 1° à renseigner, si je le met en 2° position plus de prb ,comment faire pour le laisser en 1° position ?

Private Sub NClient_exit(ByVal Cancel As MSForms.ReturnBoolean)Dim plage As Range
Set plage = Range("C3:C3000")
If Application.CountIf(plage, CDbl(NClient)) > "" Then
MsgBox "Ce N° de Client existe déja !", vbOKOnly + vbInformation, "Doublons"
NClient.Value = ""
NClient.SetFocus
Cancel = True
End If

End Sub

Dans un autre TexBox je voudrais mettre " % " à la fin du chiffre comment faire ? ce chiffre peut avoir 2 chiffres + 2 chiffres apres la virgule

Remise.Value = Format(Remise.Value, (0# & " %")), ce type de format ne fonctionne pas.

Je remercie d'avance tous ceux qui prendrons le temps de me donner une solution

Ci joint le fichier

http://cjoint.com/?gyxSjzFy1W

Bonjour,

Tu as mis en place une procédure (NClient_exit) qui signifie : On ne quitte pas ce contrôle sans fournir une donnée valide.

Ce contrôle étant en premier, tu ne peux quitter le contrôle (pour cliquer sur un autre bouton) sans fournir une donnée valide... Sauf à y mettre une gestion d'erreur, (ce qui rendrait la procédure inutile) il n'y pas de solution.

Remarque 1 : Sauf cas d'école, la création d'un USF dans cette situation est parfaitement inutile... Une simple procédure Worksheet_Change ferait le même travail et permettrait une saisie directe. Pourquoi faire simple quand on peut faire compliqué ?

Remarque 2 : Je ne vois pas l'intérêt de 2 colonnes A et C contenant les mêmes données

A+