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

Bonjour,

Excel je suppose... Tu n'apparais pas dans les messages de cette catégorie...

Pour ce genre de question un fichier joint serait bienvenu.

A+

Bonsoir Galopin

Merci pour la réponse, sujet deplacer sur excel et joint fichier

Message original par bruce68

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

'MET LES TEXTBOX "TARIF" AU FORMAT MONETAIRE
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
UserForm1.TextBox2 = Format(UserForm1.TextBox2, "0.00" & " " & "€")
End Sub

ceci devrai t' aider