Saisie depuis textbox vers cellule et format erreur

Bonjour;

J'ai dans un usf une textbox qui me sert à mettre à jour un tarif dans une cellule qui elle est à la base au format monétaire en €.

A côté un bouton qui me permet de valider cette MAJ.

Tout se passe bien, sauf un logo d'erreur quand je sélectionne la cellule mise à jour :

"le nombre dans cette cellule est au format texte ou précédé d'une apostrophe"

Pourtant pas d'apostrophe de visible, et dans les propriétés de la cellule celle ci est toujours au format monétaire....bizarre...

Son code pour mise au format:

Private Sub TextBoxpx_AfterUpdate()
'format texte modifications
TextBoxpx.Value = Replace(TextBoxpx.Value, ".", ",")
TextBoxpx.Value = Format(TextBoxpx.Value, "#.## €")
End Sub

La 1° ligne sert a substituer une saisie éventuelle avec un "." par une ","

La 2° ligne à mettre le texte au bon format

Le bouton de MAJ vers la cellule:

Private Sub CommandButton5_Click()
'MAJ du prix
Dim ligne As Integer
ligne = Me.ListBox1.Column(1)
Sheets("cumul").Range("E" & ligne).Value = TextBoxpx.Value
TextBoxpx.Value = Null
End Sub

A l'arrivée dans la cellule tout est visiblement ok, sauf ce losange avec le point d'exclamation qui me cite l'erreur citée plus haut.

Merci d'avance pour vos éclaircissements.

Tu as regarder ce que te proposait le triangle ?

Souvent le triangle apparaît lorsque tu as des chiffres en format texte, il te propose donc de les passer au format chiffre (non obligatoire)

Sinon tu peux ignorer "l'erreur" ça supprimera le triangle vert.

Sans Fichier après c'est compliqué d'aider plus.

Avie a écrit :

Tu as regarder ce que te proposait le triangle ?

Souvent le triangle apparaît lorsque tu as des chiffres en format texte, il te propose donc de les passer au format chiffre (non obligatoire)

Sinon tu peux ignorer "l'erreur" ça supprimera le triangle vert.

Sans Fichier après c'est compliqué d'aider plus.

Je n'ai pas mis mon fichier, car celui ci me paraissait un peu lourd.

J'ai donc fait vite fait une feuille simplifiée light reproduisant la même erreur.

Naturellement on peut changer les option pour ignorer cette erreur, mais n'y a t'il pas d'autres solutions plus propres, et en plus étant une quiche en VBA, j'essaie d'apprendre et de comprendre en plus.

A+++

Re;

C'est bon j'ai trouvé la solution par moi même : CDbl

Sheets("cumul").Range("E" & ligne).Value = CDbl(TextBoxpx.Value)

au lieu de

Sheets("cumul").Range("E" & ligne).Value = TextBoxpx.Value

Et là plus d'avertissement, même si ce n'était qu'un détail...

Merci.

Si tu as trouvé alors c'est bon (mon internet est tellement lent aujourd'hui que je viens de me rendre compte que j'ai passer 18minutes à chercher exactement la même chose que ce que tu as trouvé...)

Le format que tu enregistrais était bien en format texte d'où l'erreur que cela t'affichait.

Eh oui, et pourtant après MAJ le format de ma cellule restait toujours monétaire dans les propriétés de la cellule...

Merci, je coche résolu tout de suite.