Bonsoir à tous,

Je parviens à imposer le format nombre lors du renseignement d'un textBox mais lorsqu'il arrive à destination, il se change en texte.

Voici le code utilisé
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Private Sub textBox1_Change() 'Force le format numérique pour le nombre entier du textBox1
    On Error Resume Next
 
    If Not IsNumeric(Right(TextBox1, 1)) Then
        MsgBox "Le caractere saisi n'est pas valide"
        TextBox1 = Left(TextBox1, Len(TextBox1) - 1)
    End If
End Sub
Ce code fonctionne dans la mesure ou il impose de taper du chiffre dans le textBox.
En revanche, une fois arrivé à destination il renvoie bien le bon nombre mais au format texte malgré que la cellule d'arrivée soit bien au format nombre.

Pourriez-vous me dire l'erreur que je commet ici.

J'ajoute que j'ai le même genre d'ennuis pour un numéro de sécurité sociale.

Merci d'avance.